Ajuda em Invalid pointer operation numa DLL
06/03/2006
0
Pessoal, Criei um simples projeto para ilustrar meu problema.
Estou Fazendo uma chamada dinamica a uma dll, e na hora de dar um close, no form principal, o delphi me retorna Invalid pointer operation ....., detalhe, isso ocorre apenas em design-time
[b:8d6d4fb5e3]estou rodando apenas essa rotina no form principal:[/b:8d6d4fb5e3]
procedure TForm1.Button1Click(Sender: TObject);
var HD: THandle;
proc :function:string; stdcall;
mEmpresa:string;
begin
HD:= LoadLibrary(´lib.dll´);
if HD <> 0 then
begin
@proc := GetProcAddress(hd, ´Empresa´);
if @proc <> nil then
mEmpresa:=proc;
freelibrary(HD);
end;
showmessage(mEmpresa);
end;
[b:8d6d4fb5e3]minha DLL estah com o seguinte codigo:[/b:8d6d4fb5e3]
library Lib;
uses
ShareMem,
SysUtils,
Dialogs,
Classes;
{$R *.res}
function Empresa:string;Stdcall;
begin
result:=´ViP Computadores´;
end;
exports
Empresa name ´Empresa´;
begin
end.
Alguem poderia me Ajudar??
Grato
ATT
Ermindo Lopes
Estou Fazendo uma chamada dinamica a uma dll, e na hora de dar um close, no form principal, o delphi me retorna Invalid pointer operation ....., detalhe, isso ocorre apenas em design-time
[b:8d6d4fb5e3]estou rodando apenas essa rotina no form principal:[/b:8d6d4fb5e3]
procedure TForm1.Button1Click(Sender: TObject);
var HD: THandle;
proc :function:string; stdcall;
mEmpresa:string;
begin
HD:= LoadLibrary(´lib.dll´);
if HD <> 0 then
begin
@proc := GetProcAddress(hd, ´Empresa´);
if @proc <> nil then
mEmpresa:=proc;
freelibrary(HD);
end;
showmessage(mEmpresa);
end;
[b:8d6d4fb5e3]minha DLL estah com o seguinte codigo:[/b:8d6d4fb5e3]
library Lib;
uses
ShareMem,
SysUtils,
Dialogs,
Classes;
{$R *.res}
function Empresa:string;Stdcall;
begin
result:=´ViP Computadores´;
end;
exports
Empresa name ´Empresa´;
begin
end.
Alguem poderia me Ajudar??
Grato
ATT
Ermindo Lopes
Ermindo
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)