Declarar funcoes de uma DLL (tenho exemplo em C)

Delphi

05/06/2009

Olá amigos,
estou tentando configurar a impressão de cheques em uma PertoCheck Paralela.
Recebi do suporte apenas exemplos em C.
Como poderia declarar essas funções em Delphi.

DLL: PertoChekPar.DLL

Exemplo em C:

Inicializa Porta = int habilita_paralela(LPSTR lpszParam);
Transmite comando para Pertochek = int transmite(LPSTR lpszBuf);
Recepção da resposta = int recebe(int nTimeout, LPSTR lpszBuf);
Libera a porta = int desabilita_paralela(void);
Pertochek ocupada = int  ParalelaOcupada(int nTimeOut);


Desde já agradeço.


Aldus

Aldus

Curtidas 0

Respostas

Woinch

Woinch

05/06/2009

Tem que ver se essa dll é compatível. Mas se ela foi escrita em C nos padrões do Windows, provavelmente ela deve ser compatível. Experimente essas declarações:

function habilita_paralela(lpszParam: PChar): Integer; external ´Caminho\nome_da_dll.dll´
function transmite(lpszBuf: PChar): Integer; ´Caminho\nome_da_dll.dll´
function recebe(nTimeout: Integer; lpszBuf: PChar): Integer; ´Caminho\nome_da_dll.dll´
function desabilita_paralela: Integer; ´Caminho\nome_da_dll.dll´
function ParalelaOcupada(nTimeOut: Integer): Integer; ´Caminho\nome_da_dll.dll´


Fiquei em dúvida quanto ao tipo LPSTR, deve ser feito uma pesquisa melhor referente a esse tipo, qual sua interface, etc... mas muito provavelmente as funções que só recebem e retornam tipos Inteiros devem funcionar.

Espero ter ajudado.
Caso tenha codificado algo errado favor me corrijam.


GOSTEI 0
Aldus

Aldus

05/06/2009

Boa tarde,
era isso mesmo que precisava, declarei as funções e compilou corretamente, depois vou testar o funcionamento.

att


GOSTEI 0
POSTAR