FiveTech Software tech support forums

Muy bien!

...   MSGALERT("Libreria: "+cLib+" No Cargada","Atención")    RETURN(0)ENDIFnHand  :=LoadLib32( cLib)*nHand  := LoadLibrary( cLib )IF ValType( nHand ) == "P"    nHand = PtrToNum( nHand )ENDIFIF ...

Estimado Gustavo,

Asegúrate de que estás usando el fichero DLL.ch de FWH más reciente ya que este fichero ahora realiza automaticamente la conversión de puntero a número largo

Busca por si tienes alguna versión más antigua de DLL.ch y bórrala

... que al llamar a las funciones internas de las DLL estas arrojen error. He probado con los samples que vienen en FWH (Que usan LoadLibrary or LoadLib32) y hacen lo mismo , por ejemplo EMF.PRG Error Time from start: 0 hours 0 mins 0 secs Error occurred at: 04/01/24, 11:43:31 Error description: ...

Mr Rao, I am using loadlib32() just like you originally suggested. The reason I was having problems is that I was using an older version of the Img2Pdf.dll. After Vilian provided the link, and I downloaded the newer version, all of ...

Mr. Tim

Please try using LoadLib32() instead of LoadLibrary()

...    CurDir(), .T. )   if Empty( cPdf )      return nil   endif   hLib := LoadLib32( "Image2PDF StdCall.dll" )// err := I2PDF_License( "xxx-xxxx-xxxxx-xxxxxx-xxxxxxx" )   err  := ...

Vilian, I have tried your code which is almost identical to mine. The differences: You use LoadLib32( ) and I'm using LoadLibrary( ) You are using the additional call: iErr := I2PDF_MetaTextFitBoundingRect() When I run it with your setup, I get 7 pop-up boxes saying ...

... 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 ) ) + " loading " + cDllName ...

... 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 ) ) + " loading " + cDllName ...

... #xcommand DLL32... si se pudiera añadir un #xcommand DLL64... . También hay funciones GetProcAdd/GetProc32 , FWCallDLL/FWCallDLL32 , LoadLibrary/LoadLib32 y FreeLibrary/FreeLib32 lo que denota que tuviste que adaptar el tema en su tiempo. Gracias. P.D.: Sea como fuere la solución esta aquí (alguien ...

... delete the dll32 function from see32.ch it stops at the debug line. Is there anything else I should link or take care of? I tried the method with loadlib32 and freelib as below static hLo32FUNCTION Main()xaxa:="1"? "debug SEEVER 6/17/2008", xaxareturnfunction FWOpenPngFile() ...

hmpaquito wrote:Compruebese que la dll es cargada con loadlibrary() y *NO* con loadlib32()

Paquito, el ejemplo no incluye ninguna llamada a la dicha dll, no obstante le agregue lo que indicas loadlibrary("FreeImag64.dll"), pero sigue con lo mismo.

Un abrazo y gracias.
Miguel

Compruebese que la dll es cargada con loadlibrary() y *NO* con loadlib32()

Esteban, A mi me funcionaba bien en XP pero no en Windows-7 Professional. Le añadí al principio del módulo Loadlib32 ("iphlpapi.dll") y entonces me funcionó. A los que ya le funcionen,perfecto. Pero a los que no,pueden probar añadiendo la librería. Saludos y gracias ...