OnClick executar Function/Proc armazenada no Banco
19/01/2006
0
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!!!!![/code]
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!!!!![/code]
Eniorm
Curtir tópico
+ 0
Responder
Posts
20/01/2006
Bruno Belchior
um exemplo de linkagem dinâmica, ai você bastaria guardar o nome da dll e do procedimento...
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)