FiveTech Software tech support forums

Dear Jimmy, When Harbour crashes it generates a hb_out.log file. Your example reports this: Called from FWCALLDLL(0) Called from DEVICEIOCONTROL(459) in jimmy.prg Called from LOCKVOLUME(340) in jimmy.prg Called from EJECTMEDIA(191) in jimmy.prg Called from (b)USBEJECT(77) in ...

... C:\WINDOWS\System32\coml2.dll 65BF0000 0005C000 C:\WINDOWS\SYSTEM32\ntshrui.dll 66950000 0000E000 C:\WINDOWS\SYSTEM32\cscapi.dll Called from FWCALLDLL(0) Called from CREATEFILE(0) in .\HBEJECT.PRG Called from CREATEVOLHANDLE(0) in .\HBEJECT.PRG Called from EJECTMEDIA(0) in .\HBEJECT.PRG Called ...

... 00124000 C:\Windows\SYSTEM32\MFC42.DLL 00E30000 0000A000 C:\crystal\IMPLODE.DLL 75A40000 00103000 C:\Windows\System32\MSCTF.dll Called from FWCALLDLL(0) Called from TCCRPE:PEOPENENGINE(0) in .\Tcrw.PRG Called from TCCRPE:NEW(0) in .\Tcrw.PRG Called from MAIN(0) in .\testcrys.PRG ------------------------------------------------------------------------ ...

Gracias, Enrico, de nuevo. He seguido tus instrucciones y he cambiado de Tcrw.prg todas las referencias de CallDll por FWCallDll. Ahora se genera el exe sin errores, pero no se abre.

https://mega.nz/file/s0Z0RZBJ#m6Jer5IQfDZqu3L6LDfUCYwBmLLojDOtr-mbCRRMpt8

Perdona las molestias

Replace CALLDLL() with FWCALLDLL().

EMG

Juan,

Si no tiene CallDll() prueba con FWCallDll()

... requieren de FW, por lo tanto no me sirve para utilizar con Harbour nativo. Cristobal, el código ppo de la opcion que me sugieres, hecha mano de FWCallDLL y GetProcAdd de FW function GetTextW( nHandle,cT,nMax ) ; local _hDLL := If( ValType( "user32.dll" ) == "N", "user32.dll", ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

June 2017 ========= * Enhancement: FWH 64 bits function FWCallDLL() now supports up to 12 parameters. This change was required to support the TensorFlow DLL: http://forums.fivetechsupport.com/viewtopic.php?f=17&t=34151&p=202384#p202384 * Enhancement: ...

Luis,

He añadido ese método a la Clase TImage para la próxima versión de FWH y he realizado unos cambios en la función FWCallDll() para que soporte el parámetro DOUBLE correctamente.

Te he enviado las nuevas librerias por email

Gracias!

... SS:RSP:002B:000000000014A480 DS:002B ES:002B FS:0053 GS:002B Flags:00010202 Exception Parameters: 0000000000000000 0000000000000002 Called from FWCALLDLL(0) Called from FIGETFILETYPE(0) in .\source\classes\IMAGE.PRG Called from FILOADIMG(0) in .\source\classes\IMAGE.PRG Called from TIMAGE:LOADIMAGE(0) ...

JM, Este código está funcionando bien con FWH 64. He implementado unos cambios en la funcion FWCALLDLL() para 64 bits, que aunque se llama igual que la usada en 32 bits, su código es muy diferente: Te envío por email las librerias modificadas. En la próxima versión de ...

... de cabecera tienes #xcommand DLL... #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 ...

Esas funciones se han renombrado como FWCallDLL() y GetProcAdd() para evitar conflictos con Harbour

Maurizio,

Please review FWH\include\dll.ch and there you will see that you have to use:

GetProcAdd() and FWCallDLL()

thanks