Nuevo FWH 13.12

[Antonio Linares]

Miguel,

Prueba por favor este código:

MsgInfo( IsExe64() )

En tu aplicación de 64 bits, debería mostrar .T.

[El Loco]

Si Antonio, ya lo probé, unas de las primeras cosas que hice al revisar la clase.

"If( IsExe64(), MsgInfo("64bits"), MsgInfo("32bits") )" -> Devuelve "64bits".

Revise además, por las dudas, como me paso en el FTDN del mes anterior que hubiese algún patch erróneo, pero no esta todo correcto.
Ahora cuando lo compilo para 32bits funciona correcto. Las dos clases tanto para 32bits como para 64bits son identicas.
No se que puede estar pasando.
Abrazo.
Miguel

[Antonio Linares]

Miguel,

Puedes probar TestImg.prg de la carpeta samples ? Aqui funciona bien, gracias

[El Loco]

Antonio, funciona perfecto y realiza todas las funciones (print, copy, paste, save, etc....)

Abrazo.
Miguel

[Antonio Linares]

Miguel,

Lo has probado con FWH 64 ? Ese ejemplo usa FreeImage64.dll

[El Loco]

Si Antonio, en 64 y 32 bits, en las dos versiones funciona perfecto.
No pude mirar mucho, pero me parece que el error esta en el ejemplo, o mejor dicho cuando carga la imagen del comienzo.
Hoy voy a hacer unas pruebas y te cuento.

Abrazo.
Miguel

[El Loco]

Hasta ahora lo que pude descubrir es que el error lo provoca cuando TImage quiere cargar un PNG.
Reemplace las sentencias:

DEFINE IMAGE oImgEnd FILENAME "..\bitmaps\pngs\end.png"

por

DEFINE IMAGE oImgEnd FILENAME "end.bmp"

y así funciona, lo que si no muestra en el borde inferior derecho a "end.bmp"

Sigo investigando.
Abrazo.
Miguel

[JmGarcia]

Compruebo que de la versión de agosto a la de septiembre los ejecutables de la instalación de FWH han disminuido de
tamaño considerablemente.

Versión 13.09
27,7Mb fwh64.exe 4,2Mb mas pequeño que la versión anterior
30,6Mb fwh.exe 4,2Mb mas pequeño que la versión anterior

Versión 13.08
31,9Mb fwh64.exe
34,8Mb fwh.exe

[Antonio Linares]

JM,

Las DLLs de los previews ya no son necesarias y han sido borradas. Posiblemente se deba a eso.

[cnavarro]

Hasta ahora lo que pude descubrir es que el error lo provoca cuando TImage quiere cargar un PNG.
Reemplace las sentencias:

DEFINE IMAGE oImgEnd FILENAME "..\bitmaps\pngs\end.png"

por

DEFINE IMAGE oImgEnd FILENAME "end.bmp"

y así funciona, lo que si no muestra en el borde inferior derecho a "end.bmp"

Sigo investigando.
Abrazo.
Miguel

Antonio
Cuando intento poner un .Png en un Ribbon la aplicacion no se ejecuta y obtengo el siguiente error en hb_out.log

Application Internal Error - C:\Verce43\FiveUI\WNDUI09.Exe
Terminated at: 2013.11.13 00:51:49
Unrecoverable error 9011: hb_xfree called with a NULL pointer
Called from FWOPENPNGFILE(0)
Called from TRBTN:LOADBITMAPS(969) in .\source\classes\TRBTN.PRG
Called from TRBTN:NEW(404) in .\source\classes\TRBTN.PRG
.../...

[Antonio Linares]

Cristobal,

Arreglado para el próximo build de esta forma, gracias:

Code: Select all  Expand view

HB_FUNC( FWOPENPNGFILE )
{

   PFWPNG pPng = ( PFWPNG ) hb_xgrab( sizeof( FWPNG ) );
   char * name = ( LPSTR ) hb_parc( 1 );
   
   pPng->name = name;
   OpenPng( pPng );
   
   hb_retnl( ( LONG ) pPng->hBitmap );
   
   if( pPng->image_data )
      hb_xfree( pPng->image_data );
     
   if( pPng->row_pointers )  
      hb_xfree( pPng->row_pointers );
     
   hb_xfree( pPng );
}

[cnavarro]

Antonio
Sigo obteniendo un GPF cuando intento cargar un .PNG en un RBTTN, o en un BTNBMP de un BAR, o un mensaje de Anormal Terminacion del programa
Te adjunto el contenido del hb_out

Application Internal Error - C:\VmhUI\VMHUI.exe
Terminated at: 2014.01.26 12:52:54
Unrecoverable error 6005: Exception error:

Exception Code:C0000005
Exception Address:004673B9
EAX:FFFFFFFE EBX:FFFFFFF6 ECX:00000000 EDX:00000006
ESI:00000000 EDI:006DD875 EBP:0018F76C
CS:EIP:0023:004673B9 SS:ESP:002B:0018F70C
DS:002B ES:002B FS:0053 GS:002B
Flags:00010286
CS:EIP: 8B 43 04 83 E0 03 83 F8 01 0F 84 85 07 00 00 8B
SS:ESP: 006DD875 00000000 03BE1394 00000000 03BE1394 0018F744 005062B6 006EFCD7 00000000 00000000 00000000 00000000 00000000 00000000 0018F768 005533C8

C stack:
EIP: EBP: Frame: OldEBP, RetAddr, Params...
004673B9 0018F76C 0018F778 0046888F FFFFFFFE
0046888F 0018F778 0018F788 00553ACF 00000002 006F23E0
00553ACF 0018F788 0018F7A4 00481E28 0000004A 00000000 002DE994 00000000 00000000
00481E28 0018F7A4 0018F8B8 0047BFD6 00000001 006DC950 00000000 006DA8C4 00576AF8 00576D88 000000E8 0018F810
0047BFD6 0018F8B8 0018F8C8 00541C8C 006DD5B7 006DA154
00541C8C 0018F8C8 0018F8E8 00481FE5 006F23E0 0000002F 00000000 002DE994 02510024 0000033E
00481FE5 0018F8E8 0018F9FC 0047C090 00000008 00567DDE 00000000 005657D4 006F23E0 006F23E0 0028E364 006F278C
0047C090 0018F9FC 0018FA0C 00541B0C 006DC4EE 006DA154
00541B0C 0018FA0C 0018FA2C 00481FE5 006F23E0 0000002B 00000000 002C0D5C 024F0024 00000170
00481FE5 0018FA2C 0018FB40 0047C090 00000019 00566F13 00000000 006F23E0 006F23E0 00000000 006F2774 0000000A
0047C090 0018FB40 0018FB68 00401678 00567D56 005650A4 00481E28 00000028 00000000 002C0D5C 00000000 0000045A
00401678 0018FB68 0018FC7C 0047BF53 00000001 006F23E0 FFFFFFFF 0028DE64 00000000 00000000 00000001 00050702
0047BF53 0018FC7C 0018FCB4 004821A1 00566EE5 005650A4 006A0F71 00000000 0069B3C8 00481FE5 006F23E0 00000010
004821A1 0018FCB4 0018FDC8 0047C090 00000001 00566F3C 00000000 00565434 00000000 006F23E0 00882920 0088FA74
0047C090 0018FDC8 0018FDD8 0053F4C8 006A0AF4 0069B198
0053F4C8 0018FDD8 0018FDF8 00481FE5 006F23E0 00000001 00000000 002C0D5C 00E90009 000003E4
00481FE5 0018FDF8 0018FF0C 0047C090 00000013 00000000 00000001 0058A51E 00270358 0028DB44 0028DA04 00000004
0047C090 0018FF0C 0018FF34 004015B0 00566348 005650A4 00481E28 00000000 00000000 00000000 00000000 0000025E
004015B0 0018FF34 0018FF48 0047B2AC 00000000 00565034 00891C7D
0047B2AC 0018FF48 0018FF54 0047AD82 00000001


Modules:
0x00400000 0x0031D000 C:\VmhUI\VMHUI.exe
0x77BD0000 0x00168000 C:\WINDOWS\SYSTEM32\ntdll.dll
0x75C60000 0x00140000 C:\WINDOWS\SYSTEM32\KERNEL32.DLL
0x77350000 0x000CF000 C:\WINDOWS\SYSTEM32\KERNELBASE.dll
0x77790000 0x00077000 C:\WINDOWS\SYSTEM32\ADVAPI32.DLL
0x753D0000 0x0005E000 C:\WINDOWS\SYSTEM32\WINSPOOL.DRV
0x6EB30000 0x001E5000 C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.9600.16384_none_a9f4965301334e09\COMCTL32.DLL
0x77640000 0x00087000 C:\WINDOWS\SYSTEM32\COMDLG32.DLL
0x75840000 0x00108000 C:\WINDOWS\SYSTEM32\GDI32.DLL
0x6D6F0000 0x00006000 C:\WINDOWS\SYSTEM32\MSIMG32.DLL
0x76010000 0x011A3000 C:\WINDOWS\SYSTEM32\SHELL32.DLL
0x779A0000 0x0014F000 C:\WINDOWS\SYSTEM32\USER32.DLL
0x77890000 0x0010B000 C:\WINDOWS\SYSTEM32\OLE32.DLL
0x77420000 0x00087000 C:\WINDOWS\SYSTEM32\OLEAUT32.DLL
0x776D0000 0x000BE000 C:\WINDOWS\SYSTEM32\msvcrt.dll
0x75F60000 0x0003E000 C:\WINDOWS\SYSTEM32\sechost.dll
0x75950000 0x000B1000 C:\WINDOWS\SYSTEM32\RPCRT4.dll
0x75620000 0x00041000 C:\WINDOWS\SYSTEM32\SHLWAPI.dll
0x75E10000 0x0014E000 C:\WINDOWS\SYSTEM32\combase.dll
0x75600000 0x0001D000 C:\WINDOWS\SYSTEM32\SspiCli.dll
0x755F0000 0x00009000 C:\WINDOWS\SYSTEM32\CRYPTBASE.dll
0x749C0000 0x00077000 C:\WINDOWS\SYSTEM32\SHCORE.DLL
0x75590000 0x00051000 C:\WINDOWS\SYSTEM32\bcryptPrimitives.dll
0x75DE0000 0x00025000 C:\WINDOWS\system32\IMM32.DLL
0x774B0000 0x000F7000 C:\WINDOWS\SYSTEM32\MSCTF.dll
0x6F720000 0x000DC000 C:\WINDOWS\system32\uxtheme.dll
0x6D770000 0x00019000 C:\WINDOWS\system32\dwmapi.dll
0x754D0000 0x00009000 C:\WINDOWS\SYSTEM32\kernel.appcore.dll
0x77810000 0x0007D000 C:\WINDOWS\SYSTEM32\clbcatq.dll

Called from FWOPENPNGFILE(0)
Called from TBTNBMP:LOADBITMAPS(830) in .\source\classes\BTNBMP.PRG
Called from TBTNBMP:NEWBAR(368) in .\source\classes\BTNBMP.PRG
Called from HAZBARRBB(1114) in C:\VMHUI\Source\vmh.prg
Called from (b)MAIN(606) in C:\VMHUI\Source\vmh.prg
Called from TMDIFRAME:ACTIVATE(996) in .\source\classes\WINDOW.PRG
Called from MAIN(606) in C:\VMHUI\Source\vmh.prg
------------------------------------------------------------------------

No he podido probar la funcion que pusiste en el post anterior ya que obtengo errores al intentar usarla, aunque imagino que ya está incluida en la versiones actuales.

[Antonio Linares]

Cristobal,

Las claves que recibistes (como obsequio por tu gran labor y ayuda) te permiten actualizar cada mes (en marzo tal vez cambien), asi que actualizate a FWH 13.12 y prueba con lo más actual, gracias

[cnavarro]

Antonio
Está probado con la 13.12

Ejecuto la aplicacion y me da este error

La siguiente, no me da error pero no me saca la imagen
En la siguiente que ejecuto me vuelve a dar el error y asi consecutivamente.
Saludos y gracias

[cnavarro]

Antonio, indicarte también que en la clase TBar, hay que inicializar la nueva DATA ::l2013 en el Metodo NewAt (está inicializada en el Metodo New) pero no en el que te indico
Si no es asi y no la inicializas después de llamar al metodo, la aplicacion da error.

Code: Select all  Expand view

oBar1 := TBar():NewAt( 4,4,104,16,16,16,oBar,.F.,,,.F.,,,)
   oBar1:l2013 := .F.
 

Saludos