Vamos dar uma melhorada:
type
TTipoFuncao = function(selection: integer; FileName: PChar): integer; stdcall;
var
lFuncao: TTipoFuncao;
lHandle: THandle;
begin
lHandle := LoadLibrary('Winppla.dll');
if lHandle> 0 then
begin
@lFuncao := GetProcAddress(lHandle, 'A_CreatePrn');
if not Assigned(lFuncao) then
ShowMessage('Função não encontrada!')
else if lFuncao(1,'ppla.txt') <> 0 then
beep;
FreeLibrary(lHandle);
end;
end;
Sds.
________________________________
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Fri, 2 May 2008 16:19:51 -0300
Subject: [delphi-br] Ajuda com dll dinâmica
AI galera, pesquisei na internet e achei alguns artigos sobre o carregamento de
dll.
Fiz da seguinte maneira,
type
TTipoFuncao = function( selection:integer;FileName:pchar):integer;
var
funcao: TTipoFuncao;
Dll: THandle;
begin
Dll := LoadLibrary('Winppla.dll');
@funcao := GetProcAddress(Dll, 'A_CreatePrn');
Dll:=funcao(1,'ppla.txt');
if Dll <> 0 then
beep;
FreeLibrary(Dll);
end;
QUando tento executar isto, acontece o erro "The variable for selection is
error". No título da msg de erro aparece o nome do método que estou tentando
acessar. Pelo que parece a dll é carregada, mas parece que não encontra a
função especificada.
Alguém tem alguma idéia do que possa ser??
Essa dll é uma dll de impressora, não é alguma criada por mim, será que tem
haver alguma coisa disso???
----------------------------------------------------------
Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe
---------------------------------
http://www.curricular.com.br/berdam
Visite
http://passandoveneno.blogspot.com
----------------------------------------------------------
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
_________________________________________________________________
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
