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 ...

Boa tarde , preciso de uma ajuda , usava esta rotina , e tempos depois nao condigo mais.

cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer


? "cUrl",cUrl

oUrl := tUrl():New( cUrl ) //// AQUI O SISTEMA TRAVA

? "tUrl..."

oFtp := TIPClientFtp():New( oUrl ,.T. )

? "TIPClientFtp ...