Antonio - por favor verifique estas declarações

[MGA]

Antonio, por favor verifique se estas declarações estão corretas:


//-> En PASCAL
function ConfigLpt(Endereco, Timeout:Word):Boolean; stdcall; external 'WTechLpt.dll'

//-> En FIVEWIN -> Equivalente, Igual, Correspondiente.
DLL FUNCTION ConfigLPT( Endereco AS LONG, TimeOut AS LONG ) AS BOOL LIB "WTechLpt.dll"

//-> En PASCAL
procedure Dll_PosCur (Terminal, Lin, Col: Byte); stdcall; external 'WTechLpt.dll'

//-> En FIVEWIN -> Equivalente, Igual, Correspondiente.
DLL FUNCTION Dll_PosCur( Terminal AS BYTE, Lin AS BYTE, Col AS BYTE ) AS VOID LIB 'WTechLpt.dll'

//-> En PASCAL
procedure Dll_Clear (Terminal:Byte); stdcall; external 'WTechLpt.dll'

//-> En FIVEWIN -> Equivalente, Igual, Correspondiente.
DLL32 FUNCTION Dll_Clear( Terminal as BYTE ) AS BYTE PASCAL LIB 'WTechLpt.dll'

//-> En PASCAL
procedure Dll_Echo (Terminal:Byte;Dado:char); stdcall; external 'WTechLpt.dll'

//-> En FIVEWIN -> Equivalente, Igual, Correspondiente.
DLL32 FUNCTION Dll_Echo( Terminal as BYTE, Dado as STRING ) AS CHAR PASCAL LIB 'WTechLpt.dll'

//-> En PASCAL
procedure Dll_Display (Terminal:Byte; Dado:string); stdcall; external 'WTechLpt.dll'

//-> En FIVEWIN -> Equivalente, Igual, Correspondiente.
DLL32 FUNCTION Dll_Display( Terminal as BYTE, Dado as STRING ) AS STRING PASCAL LIB 'WTechLpt.dll'

//-> En PASCAL
function Dll_Get(Terminal:Byte):char; stdcall; external 'WTechLpt.dll'

//-> En FIVEWIN -> Equivalente, Igual, Correspondiente.
DLL32 FUNCTION Dll_Get( Terminal as BYTE ) AS STRING PASCAL LIB 'WTechLpt.dll'

//-> En PASCAL
function Dll_Status(Terminal:Byte):Byte; stdcall; external 'WTechLpt.dll'

//-> En FIVEWIN -> Equivalente, Igual, Correspondiente.
DLL32 FUNCTION Dll_Status( Terminal as BYTE ) AS BYTE PASCAL LIB 'WTechLpt.dll'

//-> En PASCAL
function Dll_Print(Terminal:Byte;dado:char):Byte; stdcall; external 'WTechLpt.dll'

//-> En FIVEWIN -> Equivalente, Igual, Correspondiente.
DLL32 FUNCTION Dll_Print( Terminal as BYTE, Dado as STRING ) AS BYTE PASCAL LIB 'WTechLpt.dll'

//-> En PASCAL
function Dll_Serial(Terminal:Byte;dado:char):Byte; stdcall; external 'WTechLpt.dll'

//-> En FIVEWIN -> Equivalente, Igual, Correspondiente.
DLL32 FUNCTION Dll_Serial( Terminal as BYTE, Dado as STRING ) AS BYTE PASCAL LIB 'WTechLpt.dll'

//-> En PASCAL
function Dll_Acesso(Cmd:string):Integer;stdcall;external 'WTechLpt.dll'

//-> En FIVEWIN -> Equivalente, Igual, Correspondiente.
DLL32 FUNCTION Dll_Acesso( Cmd as STRING ) AS STRING PASCAL LIB 'WTechLpt.dll'


Muito obrigado Antonio.

[Antonio Linares]

Parecen correctas,

Funcionan bien ?

[MGA]

Antonio, esta acontecendo erro do windows: ESTE PROGRAMA ENCONTROU UM PROBLEMA E PRECISA SER FECHADO. segundo o pessoal da LIB do equipamento por exemplo a DLL_CLEAR esta retornando alguma coisa e esta função não retorna nada.

//-> En PASCAL
procedure Dll_Clear (Terminal:Byte); stdcall; external 'WTechLpt.dll'

//-> En FIVEWIN -> Equivalente, Igual, Correspondiente.
DLL32 FUNCTION Dll_Clear( Terminal as BYTE ) AS BYTE PASCAL LIB 'WTechLpt.dll'

Como ficaria Antonio?

[Antonio Linares]

DLL FUNCTION Dll_Clear( Terminal as BYTE ) AS VOID PASCAL LIB 'WTechLpt.dll'

prueba tambien sin PASCAL:

DLL FUNCTION Dll_Clear( Terminal as BYTE ) AS VOID LIB 'WTechLpt.dll'