Array
(
)

OnClick executar Function/Proc armazenada no Banco

Eniorm
   - 19 jan 2006

Pesso@l alguém sabe se tem como associar o evento OnClick (ou outro) ou até mesmo chamar um procedimento/function, mas que o nome dessa function/procedure esteja armazenada como string em um banco de dados???

tipo:

procedure TForm1.BitBtn1Click(Sender : TObject);
var
proc : String;
begin
proc := qry.FieldByName(´PROCEDIMENTO´).AsString;
{
agora, como executar esse procedimento cujo nome é uma string
esse procedimento está implementado numa dll
então, eu buscaria o nome dele e executava de um dll
}
end;

qquer sugestão será bem vinda!!!!![/tagcod]


Bruno Belchior
   - 20 jan 2006

um exemplo de linkagem dinâmica, ai você bastaria guardar o nome da dll e do procedimento...#Código

var
SetText: function (hWnd: HWND; lpString: PChar): BOOL of object;
HndlDLL: HINST;
begin
HndlDLL := LoadLibrary(´user32.dll´);
if HndlDLL > 0 then
begin
@SetText := GetProcAddress(HndlDLL, ´SetWindowTextA´);
if Assigned(SetText) then
SetText(Self.Handle, ´Novo Caption´);
end;
end;