OnClick executar Function/Proc armazenada no Banco

19/01/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!!!!![/code]


Eniorm

Respostas

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 Citar