FiveTech Software tech support forums

... estaran en decimal no hay que traducir nada a hexadecimal o viceversa todo lo hago en el DLL. Ejemplo. function leerSC() Local _Vueltas:=0 LOCAL cDllName:="SCLib.DLL" ,_cuantos:=0 lOCAL Block := 5 , Fsalir1:=.T. ,fRetCode1,fRetCode2 ,Datos:=1 ACR120libHandle2 := LoadLibrary(cDllName) ...

... parametros en string tuve que utilizar un ini. Pero logre pasar paremetros de esta manera @Largo cuando es un string.. function incios... OCAL cDllName:="SCLib.DLL" Local fHandle:=0 Local ACR120libHandle := LoadLibrary( cDllName) HaveTag :=space(150) SerialNum :=space(110) Largo :=0 ...

... //ERR_READER_VALUE_INVALID_BLOCK = -4033, #define E36 -4034 //ERR_READER_VALUE_ACCESS_FAILURE = -4034; Function Prepago() LOCAL fPuerto := 0 LOCAL cDllName:="acr120u.DLL" Public frHandle:= 0, ACR120libHandle ,fretcode ACR120libHandle := LoadLibrary( cDllName) //Puerto del lector, es 0 ...

... que debe de rotornar como se tratan los arreglos es este caso ?? String , Long ect gracias desde ya.. Function Prepago() LOCAL fPuerto := 0 LOCAL cDllName:="acr120u.DLL" Local TagLength :={} && array[0..50] of Byte; local TagType :={} &&: array[0..50] of Byte; local TagFound:=0 ...

... que dan soporte tecnico. alli tienes una opcion de utilitario donde bajas manuales y demas. Static Function AbroDllPrinter() LOCAL lRet:=.F. LOCAL cDllName:="TFHKADIR.DLL" hFiscalDll:=LoadLib32(cDllName) if Abs( hFiscalDLL ) <= 32 MsgAlert( "Error code: " + LTrim( Str( hFiscalDLL ...

... que dan soporte tecnico. alli tienes una opcion de utilitario donde bajas manuales y demas. Static Function AbroDllPrinter() LOCAL lRet:=.F. LOCAL cDllName:="TFHKADIR.DLL" hFiscalDll:=LoadLib32(cDllName) if Abs( hFiscalDLL ) <= 32 MsgAlert( "Error code: " + LTrim( Str( hFiscalDLL ...

... FUNCTION md204() LOCAL clObj,hLib LOCAL PathCert:="\mlmall\config\pos\zofri.pfx" LOCAL PassCert:="Ah2Cfg723rQ" LOCAL cDllname:="\MLMall\Config\POS\MkSg.InterfazPOS.Security.dll" hLib := loadlibrary(cDllName) clObj:=CreateObject("cSecurity") // aca ...

... oHttp,Doc,cxmLbody2,oIni,oError,oInternet LOCAL PathCert:="\mlmall\config\pos\zofri.pfx" LOCAL PassCert:="Ah2Cfg723rQ" LOCAL cDllname:="\MLMall\Config\POS\MkSg.InterfazPOS.Security.dll" LOCAL ts_token:="",cXlmBody:="",tw_servidor:="" ...

... "Hbclass.ch" FUNCTION md204() LOCAL PathCert:="\mlmall\config\pos\zofri.pfx" LOCAL PassCert:="Ah2Cfg723rQ" LOCAL cDllname:="\MLMall\Config\POS\MkSg.InterfazPOS.Security.dll" LOCAL ts_token:="" LOCAL clObj hlib := loadlibrary(cDllName) INI oIni ...

I have defined cdllname as

M->CDLLNAME := 'cshtpav7.dll' // socket tools library

... RETVAL := .f. LOCAL LICENSEKEY := NIL // due to no license key for demo = not sure how to pass NULL PRIVATE HDLL M->HDLL := LOADLIBRARY( M->CDLLNAME ) // returns handle of 1349517312 RETVAL := HttpInitialize( @LICENSEKEY ) //RETVAL comes back as NIL. DLL FUNCTION HttpInitialize( cLicense ...

... cuando corre la funcion cierra la libreria. al principio del programa llamo a esta funcion Static Function AbroDllPrinte2() LOCAL lRet:=.F. LOCAL cDllName:="BEMAFI32.DLL" hFiscalDl2:=LoadLib32(cDllName) if Abs( hFiscalDL2 ) <= 32 MsgAlert( "Error code: " + LTrim( Str( hFiscalDL2 ...

... opened meanwhile you are using them, from one call to another. The way to solve it is to previously load the DLL: local hDLL := LoadLibrary( <cDLLName.dll> ) ... make your DLL functions calls ... FreeLibrary( hDLL ) Please try it this way and you should not get any GPF at all, thanks

Vilian,

FreeLibrary( GetModuleHandle( cDllName ) )

Thanks for the reply. It still isn't sorking. I have two choices. A)Merge the two dlls into one, or B)use Setresource(cDllName) before and after calls to that dll. DLL B is a general perpuse one that holds resources for the user login/out and movement tracking system. It's small so ...