Convertendo string para um Objeto ( S� para os Feras )

Question

Ol� Pessoal !!!   � o seguinte tenho umas dl�s e dentro delas algumas fun��es que envolvem objetos e a minha d�vida � a seguinte se tem como eu passar como String e Transforma-la num objeto, como Form...

Anonymous · Answer

S� para os feras:Equinha poc�to;Mula sem cabe�a;Cuca;sthan sthan sthan sthan sthan sthan...

Qmd · Answer

de uma olhada na funcao FindComponent()com ela vc poderia tratar a classe do objeto retornar e fazer um typecast ou algo do tipo...Showmessage( TCustomEdit( FindComponent(�Edit1�) ).Text );...

E_gama · Answer

Se a DLL foi escrita em Delphi, vc pode passar diretamente objeto que vc quer. Veja um exemplo

Crie uma DLL (DLL.DLL, por exemplo com o c�digo abaixo - OBSERVE A CLAUSULA �USES�):

uses
  SysUtils,
  Classes,
  Forms;

{$R *.res}

procedure AlteraCaption(Frm: TForm);
begin
  Frm.Caption := �Esse Caption foi alterado pela DLL�;
end;

exports
  AlteraCaption;

begin
end.

Agora, na unit que vai utilizar a DLL, fa�a:

implementation

procedure AlteraCaption(Frm: TForm); external �DLL.DLL�;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  AlteraCaption(Self);
end;

Com vc ver�, o �caption� do formul�rio de sua aplica��o, ser� modificado pela DLL.

Carlos Filho · Answer

essa � bem complexa hein amigo?? mas eu sei como ajudar:

Suponha que voc� tenha um DLL com duas fun��es chamadas triplo e dobro que respectivamente triplica e dobra um valor passado como par�metro. Suponha um Form com 1 Edit, um SpinEdit e um bot�o comum com o r�tulo CHAMAR

No Edit vc deve escrever o nome da fun��o que vc quer chamar (Triplo ou Dobro) e no SpinEdit vc poe o n�mero que quer processar (dobrar ou triplicar)

no clique do bot�o do formul�rio voce poe:

procedure TForm1.Button1Click(Sender: TObject);
var
  HInst: THandle;
  FPointer: TFarProc;
  MyFunct: TIntFunction;
begin
  HInst := LoadLibrary (DllName);
  if HInst > 0 then
  try
    FPointer := GetProcAddress (HInst,
      PChar (Edit1.Text));
    if FPointer <> nil then
    begin
      MyFunct := TIntFunction (FPointer);
      SpinEdit1.Value := MyFunct (SpinEdit1.Value);
    end
    else
      ShowMessage (Edit1.Text + � Fun��o DLL n�o encontrada�);
  finally
    FreeLibrary (HInst);
  end
  else
    ShowMessage (DllName + � biblioteca n�o encontrada�);
end;

Lembrando que voc� deve ter criado uma biblioteca corretamente com as fun��es Triplo e Dobro (nesse exemplo) definidas e exportadas e que voc� est� fazendo refer�ncia no form1 a essas fun��es.

No c�digo acima, DllName � uma variavel ou constante que pode ser global contendo o caminho completo para o local onde est� a sua DLL

O exemplo do c�digo do bot�o � gen�rico, j� que voc� j� pode usa-lo em seu programa para chamar suas fuin��es! :)

Se eu consegui ajuda-lo, n�o deixe de me avisar OK?

Carlos Filho · Answer

[quote:d4df726ea0=��erek Wildstar�]essa � bem complexa hein amigo?? mas eu sei como ajudar:

Suponha que voc� tenha um DLL com duas fun��es chamadas triplo e dobro que respectivamente triplica e dobra um valor passado como par�metro. Suponha um Form com 1 Edit, um SpinEdit e um bot�o comum com o r�tulo CHAMAR

No Edit vc deve escrever o nome da fun��o que vc quer chamar (Triplo ou Dobro) e no SpinEdit vc poe o n�mero que quer processar (dobrar ou triplicar)

no clique do bot�o do formul�rio voce poe:

procedure TForm1.Button1Click(Sender: TObject);
var
  HInst: THandle;
  FPointer: TFarProc;
  MyFunct: TIntFunction;
begin
  HInst := LoadLibrary (DllName);
  if HInst > 0 then
  try
    FPointer := GetProcAddress (HInst,
      PChar (Edit1.Text));
    if FPointer <> nil then
    begin
      MyFunct := TIntFunction (FPointer);
      SpinEdit1.Value := MyFunct (SpinEdit1.Value);
    end
    else
      ShowMessage (Edit1.Text + � Fun��o DLL n�o encontrada�);
  finally
    FreeLibrary (HInst);
  end
  else
    ShowMessage (DllName + � biblioteca n�o encontrada�);
end;

Lembrando que voc� deve ter criado uma biblioteca corretamente com as fun��es Triplo e Dobro (nesse exemplo) definidas e exportadas e que voc� est� fazendo refer�ncia no form1 a essas fun��es.

No c�digo acima, DllName � uma variavel ou constante que pode ser global contendo o caminho completo para o local onde est� a sua DLL

O exemplo do c�digo do bot�o � gen�rico, j� que voc� j� pode usa-lo em seu programa para chamar suas fuin��es! :)

Se eu consegui ajuda-lo, n�o deixe de me avisar OK?[/quote:d4df726ea0]

Esqueci mais um detalhe:
ap�s a se��o implementation, nesse exemplo, coloque

type
        TIntFunction = function (I: Integer): Integer; stdcall;

isso define um ponteiro de m�todo que possui um tipo de degini��o do �formato� de suas fun��es, que nesse caso espec�fico �: function (I: Integer): Integer;

F�rum Convertendo string para um Objeto ( S� para os Feras ) #149265