Ler/Gravar em Var que est� numa DLL

Question

Pessoal,tenho algumas vari�veis (integer, string) em uma unit que est� dentro de uma DLL, como fa�o pra ler ou gravar nessas vari�veis???abra�o,...

Andremuller · Answer

s� passando na assinatura do m�todo.se tu usasse packages a� era totalmente transparente...

Eniorm · Answer

[quote:cb5492d398=�andremuller�]s� passando na assinatura do m�todo.[/quote:cb5492d398]e neste caso como devo proceder?teria uma explica��o desse funcionamento?bye...

Andremuller · Answer

voc� tem a assinatura de m�todo que est� exportando. Nessa assinatura inclui os par�metros que precisa. Foi?...

Eniorm · Answer

[quote:28e334ac98=�andremuller�]voc� tem a assinatura de m�todo que est� exportando. Nessa assinatura inclui os par�metros que precisa. Foi?[/quote:28e334ac98]Amigo, me desculpe pela ignor�ncia, mas n�o estou acostumado a trabalhar com DLLs, poderia me dar um exemplo de c�digo?Abra�o...

Andremuller · Answer

No dpr da tua dll tu exporta m�todos, tipo:

library TesteDll;

(...)

procedure MostrarMensagem(WndHandle: THandle; Mensagem: string);
var
  frm: TFormMensagem;
begin
  Application.Handle := WndHandle;
  frm := TFormMensagem.Create(nil);
  try
    frm.ShowModal;
  finally
    frm.Free;
  end;
end;

exports MostrarMensagem;

begin
end.

na tua aplica��o tu carrega os m�todos, tipo:

procedure TForm1.ExecutarMensagem;
var
  Handle: THandle;
  MM: procedure(WndHandle: THandle; Mensagem: string);
begin
  Handle := 0;
  try
    Screen.Cursor := crHourGlass;
    Handle := LoadLibrary(PAnsiChar(�TesteDll.dll�));
    if Handle = 0 then
      ShowMessage(�N�o carregou.�)
    else
    begin
      MM := GetProcAddress(Handle, �MostrarMensagem�);
      MM(Application.Handle, Edit1.Text);
    end;
  finally
    FreeLibrary(Handle);
    Screen.Cursor := crDefault;
  end;
end;

O Handle que eu passo no exemplo � para a dll aparecer na mesma janela da aplica��o principal. MM � de declara��o igual ao m�todo exportado e � atrav�s dele que disparamos o que est� na dll.

Ent�o se tu precisar passar mais alguma coisa na dll inclui junto dos par�metros. No exemplo s� passo Mensagem: string, mas poderia ser Mensagem1, Mensagem2: string, o que tamb�m mudaria a declara��o de MM.

Foi?

Andremuller · Answer

n�o esque�a de que a unit ShareMem deve ser a primeira unit declarada nos dois dprs...