PC Toledo

Boa tarde alguem ja desenvolveu rotina para a leitura do peso da balança urano de ckeckout , ela tem uma dll ( lepeso.dll )

xdll_urano := LoadLibrary("LePeso.dll")

AlteraModeloBalanca_Urano(2)

AlteraModoOperacao_Urano(0)
***************************************************
lporta_urano = AbrePortaSerial_Urano( "COM3" ) ---- AQUI NAO RETORNO A ABERTURA DA PORTA ( 1 )

******************************************************


DLL32 FUNCTION AbrePortaSerial_Urano( Porta_Urano AS LPSTR ) AS LONG PASCAL FROM "AbrePortaSerial" LIB xdll_urano

DLL32 FUNCTION FechaPortaSerial_Urano( ) AS LONG PASCAL FROM "AbrePortaSerial" LIB xdll_urano

DLL32 FUNCTION LePeso_Urano( ) AS LONG PASCAL FROM "LePeso" LIB xdll_urano

DLL32 FUNCTION AlteraModeloBalanca_Urano( Modelo_Urano AS LPSTR ) AS LONG PASCAL FROM "AlteraModeloBalanca" LIB xdll_urano

DLL32 FUNCTION AlteraModoOperacao_Urano( Modo_Urano AS LPSTR ) AS LONG PASCAL FROM "AlteraModoOperacao" LIB xdll_urano

Judson, sua pergunta deveria ser no tópicos do FiveWin. Veja:

https://fivewin.com.br/index.php?/topic ... -xharbour/

https://fivewin.com.br/index.php?/topic ... ogger-dll/

Regards, saludos.