FiveTech Software tech support forums

Muy bien!

... LoadLib24 (cLib)

LOCAL nHand

DEFAULT cLib:=""

IF !FILE(cLib)
MSGALERT("Libreria: "+cLib+" No Cargada","Atención")
RETURN(0)
ENDIF

nHand :=LoadLib32( cLib)
*nHand := LoadLibrary( cLib )
IF ValType( nHand ) == "P"
nHand = PtrToNum( nHand )
ENDIF
IF Abs( nHand ) <= 32
MsgStop( "No es Posible ...

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

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 the problems went away. In addition, my license works with the newer ...

Mr. Tim

Please try using LoadLib32() instead of LoadLibrary()

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

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 Error: 0. Loading: 0. and ...

... 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 )
lRet:=.F.
ELSE
lRet ...

... 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 )
lRet:=.F.
ELSE
lRet ...

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

... 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&#40;&#41;xaxa:="1"? "debug SEEVER 6/17/2008", xaxareturnfunction FWOpenPngFile&#40;&#41 ...

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 por tu código. Me ha sido muy ...