Form em DLL

Question

Galera comecei a colocar meus forms dentro de DLLs p/ deixar a aplica��o mais leve e por ventura facilitar as atualiza��es,s� que n�o sei o tipo correto de criar esses forms peguei algumas dicas mais ...

Fabiano G�es · Answer

vou tentar te explicar,seguinte, imagine um Modulo de Clientes onde o arquivo de projeto seria assim: [code:1:ce51239163]program ModuloClientes;uses  Forms,  unFrmClientes in �unFrmClientes.pas� ;{$R *.res}begin  Application.Initialize;  Application.CreateForm(TfrmClientes, frmClientes);  Application.Run;end.[/code:1:ce51239163]para colocar este m�dulo em uma dll, altere-o assim:[code:1:ce51239163]library ModuloClientes;uses  SysUtils,  Classes,  Forms,  unFrmClientes in �unFrmClientes.pas� ;{$R *.res}procedure Iniciar; stdcall;begin  with TfrmClientes.Create(Application) do  try    ShowModal;  finally    Release;    Free;  end;end;exports  Iniciar;beginend.[/code:1:ce51239163]ao compilar este projeto(library) ser� gerado a seguinte dll: ModuloClientes.dllent�o crie um m�todo para chamar esta dll:[code:1:ce51239163]procedure AbreModuloDLL(FileName: TFileName);var  DLL: THandle;  Iniciar: procedure; stdcall;begin  DLL := LoadLibrary(PChar(FileName));  if (DLL = 0) then    RaiseLastOSError;  try    @Iniciar := GetProcAddress(DLL, �Iniciar�);    if (@Iniciar = nil) then      RaiseLastOSError;    Iniciar;  finally    FreeLibrary(DLL);  end;end;[/code:1:ce51239163]para fazer a chamada fa�a assim:[code:1:ce51239163]  AbreModuloDLL(�ModuloClientes.dll�);[/code:1:ce51239163]agpra e s� fazer um teste.Bom espero ter ajudado, quaquer duvida � s� postar ok.abra�o !!!...

Marcos Fernando · Answer

Guri valeu pela for�a deu certo, s� que assim: toda ves que eu chamo um form ele abre no iniciar tamb�m isso n�o � muito legal n�,,,Sabe me informar como corrigir isso?Thanks...

Marcos Fernando · Answer

Guri implementei sua SP para que eu possa chamar o form que eu quizer ficou assim:

procedure AbreModuloDLL(FileName: TFileName; F_n: String); var DLL: THandle; Form: procedure; stdcall; F_n2 : string; begin F_n2 := F_n; DLL := LoadLibrary(PChar(FileName)); if (DLL = 0) then RaiseLastOSError; try @Form := GetProcAddress(DLL, pchar(F_n2)); if (@Form = nil) then RaiseLastOSError; Form; finally FreeLibrary(DLL); end; end;

ai na chamada � s� indicar o nome assim:

AbreModuloDLL(�ModuloClientes.dll�,�pesqClientes�);

s� falta aquele BO do iniciar agora,

thanks

Rodc · Answer

Tem como meu aplicativo acessar as fun��es e vari�veis que est�o no form que est� dentro da DLL? E o contr�rio, tamb�m � poss�vel? Acessar as vari�veis do sistema de dentro da DLL?

Prmas · Answer

Ol� pessoal,Otima explica��odo Fabiano G�es.No meu caso por�m, o form est� ligado a fun��es em outros forms que est�o no aplicativo ou pretendo colocar em outra dll.Como posso chamar essas fun��es do aplicativo ou outra dll?Isso � poss�vel? Se algu�m tiver a respostam por favor me ajude...Obrigado a todos.Marcos...

Mmoreira · Answer

Pessoal,Alguem sabe como resolver o problema do:prmasEstou com a mesma duvida!!...

Eniorm · Answer

[quote:0ce297125b]procedure AbreModuloDLL(FileName: TFileName);var  DLL: THandle;  Iniciar: procedure; stdcall; [/quote:0ce297125b]o que vem a ser esse [b:0ce297125b]stdcall[/b:0ce297125b] e qual a finalidade do mesmo???fiz um teste aqui e resultou que, ao fechar o form (que est� na dll) � fechado o programa todo, � correto isso ???abra�o...

Vicente Santos · Answer

CARA isso tirou todas as minhas duvidas, valeu mesmo ! showww;...

Khushi · Answer

You can get the solution by visit on this link https://unfitpc.com here is the best solution of your problem....

F�rum Form em DLL #329279