OnClick executar Function/Proc armazenada no Banco
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
Curtidas 0
Respostas
Bruno Belchior
19/01/2006
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;
GOSTEI 0