Problema ao carregar dll em runtime

Question

Bom dia, pessoal.Dei uma procurada no histórico de mensagens mas não encontrei resposta ao meu problema.Seguinte: construí uma dll para impressão de notas fiscais de nossos clientes, sendo que cada um...

Carlosfim · Answer

Marcelo,Vc está usando a Unit ShareMem do Delphi?Quando vc precisa passar parâmetros ou receber retornos de funções armazenadas em Dll que não sejam declarados com os tipos nativos do Windows vc precisa usar ShareMem tanto no Aplicativo quanto na Dll. Esta deve ser declarada na Unit do projeto, e deve ser a primeira.Espero ter ajudado...

Schmidt · Answer

Olá Carlos.Obrigado pela dica, rapaz, mas ainda assim não funcionou. Testei em uma aplicação com um único form e botão que simplesmente chama a dll em questão com o ShareMem no topo dos uses do .dpr. Prá esse funcionou. Agora, pra aplicação onde ele é prá funcionar de verdade, não consigo de jeito nenhum... e é sempre no mesmo lugar: na hora de passar a TADOConnection prá TADOQuery.Muito obrigado, Carlos, mas se não for pedir demais, tens mais alguma sugestão?__________________Marcelo Schmidt...

Carlosfim · Answer

Não, amigo, não tenho nenhuma outra idéia.Só vendo o código mesmo....

Schmidt · Answer

Olá Carlos, tudo bem?Bem, vou tentar postar o código aqui.Esse é o código da função que eu exporto da dll[code:1:3964bd6986]procedure imprimir(var con: TADOConnection; inicio: integer; fim: integer = 0); safecall; export;var  impressao: TImpressaoFMate;begin  dtmDados:= TdtmDados.Create(Application);  dtmDados.setConexao(con);  impressao:= TImpressaoFMate.criar();  impressao.imprimir(inicio, fim);  impressao.destruir();  dtmDados.Destroy;  end;[/code:1:3964bd6986]OK?, bom, o setConexao é um setter normal que recebe o parâmetro e o atribui a uma variável privada, com uma única diferença: o parãmetro é passado por referência.No mais , tá tranquilo.Vamos para a parte de criação da query:[code:1:3964bd6986]constructor TEnderecoMdl.criar();begin  inherited create();  Fqry:= TADOQuery.Create(dtmDados);  Fqry.Connection:= dtmDados.getConexao;end;[/code:1:3964bd6986]Esse é o construtor de uma classe da dll. Como se vê, eu crio a qry dinamicamente, o que acontece normalmente. Mas quando a terceira linha do construtor é executada, dá pau que nem adianta colocar aqui, pq não diz nada. diz só que houveram muitas exceções. Debugando a dll, descobri que parece que ela distorce o objeto TADOConnection, pq a descrição não tem nada a ver com isso.Lembrando: eu coloquei a ShareMem nos dpr dos dois projetos, tanto na aplicação quanto na dll.Qualquer coisa eu agradeço..__________________Marcelo Schmidt...

Massuda · Answer

Uma sugestão (talvez não funcione)...

Compile tanto seu programa como sua DLL usando packages (Project|Options|Packages|Build with runtime packages), incluindo apenas os packages do Delphi; por exemplo, se for Delphi 5, esses packages seriam Vcl50, Vclx50, Vcldb50, Vclbde50, vcldbx50.

A VCL utiliza algumas variáveis globais internas para controlar forms e datamodules. Quando você cria um programa + DLLs que não compartilham as mesmas variáveis globais costuma dar problema.

Carlosfim · Answer

Cara, não sei se vai adiantarno seu caso, mas uma sugestão é trocar a diretiva safecall por stdcall.

Já tive problemas de estouro de memória usando safecall e quando troquei para stdcall o problema foi resolvido, porém eu utilizava a dll em questão estaticamente.

Vale apena tentar!!!

Fórum Problema ao carregar dll em runtime #283988