Error: FWH2206 Parte1

[csincuir]

Hola Antonio
Estoy utilizando la versión FWH2206, y tengo dos problemas con la misma que con la versión FWH2203 no los tenía:

El primer problema es con la clase TImage, con este codigo:

Code: Select all  Expand view  RUN

DEFINE FONT oFont NAME "TIME NEW ROMAN" SIZE 0,-14 BOLD ITALIC

DEFINE BRUSH oBrush RESOURCE "Grad01"

DEFINE DIALOG oDlg RESOURCE "Acceso"  ;
          TRANSPARENT BRUSH oBrush ;
          TITLE " Ingreso al Sistema SEM "+cSemVer+::cVersion  ;
          HELPID "UsuarioyContraseña"

       REDEFINE GET oGet VAR ::oPara:cUser ID 11 OF oDlg PICTURE "@K" ;
                CUEBANNER "Ingrese su nombre de Usuario..."  //BITMAP "note2" ACTION VerificaHuella(.t.)
               
       REDEFINE GET oPass VAR ::oPara:cPass ID 12 OF oDlg PICTURE "@K" ACTION (oPass:lPassword := .f., oPass:Refresh(), SysWait(0.7), oPass:lPassword := .t., oPass:Refresh() ) ;
             CUEBANNER "Ingrese su Contraseña..."  BITMAP "search"

       REDEFINE BUTTONBMP ID 210 OF oDlg  RESOURCE "note2" TEXTTOP ACTION ::VerUser(oDlg, ::oPara:nServer, ::oPara:nTipoAutentica, ::oPara:cDsn, oGet, .t. )
       
       oPass:lBtnTransparent := .t.      
       oPass:lPassword := .t.

   REDEFINE BTNBMP ID 201 OF oDlg RESOURCE "Empresas" ;
               ACTION Host( cServer, aServer, cTipo, aTipo)
   
   REDEFINE BUTTON ID 20 ACTION ::VerUser(oDlg, ::oPara:nServer, ::oPara:nTipoAutentica, ::oPara:cDsn, oGet,, .t., nAcces  ) CANCEL

    REDEFINE IMAGE oBmp 501 OF oDlg  
    IF Len( cJpg := cResToStr( "TSSEM", RT_RCDATA ) ) != 0
       oBmp:LoadFromMemory( cJpg )
    EndIf

    REDEFINE SAY PROMPT ::cRev ID 5 OF oDlg UPDATE FONT oFont  COLOR RGB(0,0,200)

    REDEFINE BUTTON ID 21 ACTION  oDlg:End() CANCEL


ACTIVATE DIALOG oDlg CENTER

oFont:end()
oBrush:End()

RETURN .t
 

Cuando se ejecuta el mismo, me presenta una secuencia de 3 mensajes:


Para luego presentar correctamente el dialogo:


Como indicaba al inicio con la versión FWH2203 no tengo este inconveniente.
Podrías indicarme como puedo solucionar este problema por favor?

Saludos cordiales.

Carlos.

[Antonio Linares]

Carlos,

En que formato guardas esta imagen ?

Code: Select all  Expand view  RUN

   REDEFINE IMAGE oBmp 501 OF oDlg  
    IF Len( cJpg := cResToStr( "TSSEM", RT_RCDATA ) ) != 0
       oBmp:LoadFromMemory( cJpg )
    EndIf

[csincuir]

Antonio,
De esta forma lo tengo definido en mi archivo .rc

Code: Select all  Expand view  RUN

LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
TSSEM              10             "logosemt.png"
 

El mensaje lo presenta en esta linea:

Code: Select all  Expand view  RUN

REDEFINE IMAGE oBmp 501 OF oDlg

Ya que despues, lee correctamente la imagen en el archivo de recursos y la presenta correctamente.

Saludos cordiales.

Carlos

[Antonio Linares]

Carlos,

Me parece que este código:

Code: Select all  Expand view  RUN

IF Len( cJpg := cResToStr( "TSSEM", RT_RCDATA ) ) != 0
       oBmp:LoadFromMemory( cJpg )
    EndIf

deberías ejecutarlo desde el ON INIT del diálogo, ya que antes el control no tiene un handle válido

y además, está línea debería ser asi:

REDEFINE IMAGE oBmp ID 501 OF oDlg

te falta el ID

[csincuir]

Carlos,

Me parece que este código:

Code: Select all  Expand view  RUN

IF Len( cJpg := cResToStr( "TSSEM", RT_RCDATA ) ) != 0
       oBmp:LoadFromMemory( cJpg )
    EndIf

deberías ejecutarlo desde el ON INIT del diálogo, ya que antes el control no tiene un handle válido

y además, está línea debería ser asi:

REDEFINE IMAGE oBmp ID 501 OF oDlg

te falta el ID

Antonio, si tengo definido el ID, parece que lo borre cuando copie el codigo para colocarlo en el foro.
Hice lo que me indicas del ON INIT, pero me salieron los mismos 3 mensajes.

Code: Select all  Expand view  RUN

REDEFINE IMAGE oBmp RESOURCE("TSSEM") ID 501 OF oDlg  //TRANSPARENT //RESOURCE "TSSEM" //TRANSPARENT

REDEFINE SAY PROMPT ::cRev ID 5 OF oDlg UPDATE FONT oFont  COLOR RGB(0,0,200)

REDEFINE BUTTON ID 21 ACTION  oDlg:End() CANCEL

ACTIVATE DIALOG oDlg CENTER ;
         ON INIT CargaLogoPng(oBmp)

oFont:end()
oBrush:End()

RETURN .t.

//-------------------------------------------------------------------------------------------------------------------
FUNCTION CargaLogoPng(oBmp)
LOCAL cJpg

IF Len( cJpg := cResToStr( "TSSEM", RT_RCDATA ) ) != 0
   oBmp:LoadFromMemory( cJpg )
EndIf

RETURN .t.

Probé este ultimo código con la versión FWH2203 y todo correcto, sin ningún mensaje.

[Antonio Linares]

Si buscas en todos los *.prg y *.c de FWH verás que "Format image not supported" solo aparece aqui:

Code: Select all  Expand view  RUN

METHOD Save( cFile, nQuality, nBackClr ) CLASS GDIBmp

   local cExtension  := Upper( cFileExt( cFile ) )
   local cCLSID
   local hQuality    := nil
   local nScan       := aScan( ::aExtEnd, cExtension )
   local lRet
   //local cGUI := AnsiToWide("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}" )

   if nScan == 0
      MsgInfo( "Format image not supported" )
      Return .f.
   endif

 

no entiendo como se puede estar llamando a este método...

[csincuir]

Si buscas en todos los *.prg y *.c de FWH verás que "Format image not supported" solo aparece aqui:

Code: Select all  Expand view  RUN

METHOD Save( cFile, nQuality, nBackClr ) CLASS GDIBmp

   local cExtension  := Upper( cFileExt( cFile ) )
   local cCLSID
   local hQuality    := nil
   local nScan       := aScan( ::aExtEnd, cExtension )
   local lRet
   //local cGUI := AnsiToWide("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}" )

   if nScan == 0
      MsgInfo( "Format image not supported" )
      Return .f.
   endif

 

no entiendo como se puede estar llamando a este método...

Es correcto Antonio, yo hice lo mismo de buscar este mensaje y lo encontré cabalmente en el archivo "tgdiplus.prg" y me hice la misma pregunta, porque esta activándose el método SAVE() de esa clase, si no se esta usando??

Esta raro, raro.

Saludos.

Carlos.

[karinha]

Sería interesante que hicieras una DEMO y la enviaras a FIVETECH, para que el maravilloso equipo de programadores de FIVETECH pueda probarla con la última versión de FIVEWIN, para saber si el BUG continúa o si ya ha sido corregido. ¿Qué piensa usted?

Gracias.

Regards, saludos.

[csincuir]

Karinha, voy a generar un nuevo proyecto y veré si se replica el problema y se lo envío a Antonio.

Saludos cordiales.

Carlos.

[nageswaragunupudi]

We tried this test program with our FWH2206

semdlg.prg

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local oDlg, oBrush, oFont, oGet, oPass, oBmp
   local cPass := Space(20)
   local cUser := Space(20)

   DEFINE FONT oFont NAME "TIME NEW ROMAN" SIZE 0,-14 BOLD ITALIC

   DEFINE BRUSH oBrush RESOURCE "Grad01"

   DEFINE DIALOG oDlg RESOURCE "Acceso"  ;
          TRANSPARENT BRUSH oBrush ;
          TITLE FWVERSION + " Ingreso al Sistema SEM "  ;
          HELPID "UsuarioyContraseña"

   REDEFINE GET oGet VAR cUser ID 11 OF oDlg PICTURE "@K" ;
            CUEBANNER "Ingrese su nombre de Usuario..."  //BITMAP "note2" ACTION VerificaHuella(.t.)

   REDEFINE GET oPass VAR cPass ID 12 OF oDlg PICTURE "@K" ;
      ACTION (oPass:lPassword := .f., oPass:Refresh(), SysWait(0.7), oPass:lPassword := .t., oPass:Refresh() ) ;
         CUEBANNER "Ingrese su Contraseña..."  BITMAP "search"

   oPass:lBtnTransparent := .t.
   oPass:lPassword := .t.

   REDEFINE BTNBMP ID 201 OF oDlg RESOURCE "Empresas" ;
               ACTION MsgInfo( "Host( cServer, aServer, cTipo, aTipo)" )

   REDEFINE BUTTON ID 20 ACTION MsgInfo( "::VerUser(oDlg, ::oPara:nServer, ::oPara:nTipoAutentica, ::oPara:cDsn, oGet,, .t., nAcces  )" ) CANCEL

   REDEFINE IMAGE oBmp ID 501 OF oDlg

   REDEFINE SAY PROMPT "Prompt" ID 5 OF oDlg UPDATE FONT oFont  COLOR RGB(0,0,200)

   REDEFINE BUTTON ID 21 ACTION  oDlg:End() CANCEL

   ACTIVATE DIALOG oDlg CENTER ON INIT CargaLogoPng(oBmp)

   oFont:end()
   oBrush:End()

RETURN .t.

#define RT_RCDATA 10

FUNCTION CargaLogoPng(oBmp)
LOCAL cJpg

IF Len( cJpg := cResToStr( "TSSEM", RT_RCDATA ) ) != 0
   oBmp:LoadFromMemory( cJpg )
EndIf

RETURN .t.

semdlg.rc

Code: Select all  Expand view  RUN

1         24      "semdlgbmp\WindowsXP.Manifest"

TSSEM     10      "semdlgbmp\logosemt.png"
GRAD01    BITMAP  "semdlgbmp\gradien2.bmp"
EMPRESAS  BITMAP  "semdlgbmp\database.bmp"

ACCESO DIALOG 179, 80, 249, 183
STYLE DS_3DLOOK | DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP
CAPTION "Ingreso al Sistema"
FONT 8, "MS Sans Serif"
{
    EDITTEXT        11, 91, 110, 150, 12, WS_GROUP | ES_WANTRETURN, WS_EX_LEFT
    EDITTEXT        12, 91, 126, 150, 12, WS_GROUP | ES_PASSWORD | ES_WANTRETURN, WS_EX_LEFT
    PUSHBUTTON      "&Ingresar", 20, 103, 155, 60, 14, 0, WS_EX_LEFT
    PUSHBUTTON      "&Cancelar", 21, 163, 155, 60, 14, 0, WS_EX_LEFT
    LTEXT           "Usuario", -1, 8, 112, 29, 10, SS_LEFT, WS_EX_LEFT
    LTEXT           "Contraseña", -1, 8, 129, 37, 8, SS_LEFT, WS_EX_LEFT
    CONTROL         "", 201, "TBtnBmp", 0x50000000, 226, 155, 14, 13, 0x00000000
    CONTROL         "", 501, "TImage", 0x50000000, 4294967293, 4294967295, 257, 96, 0x00000000
    CTEXT           "Rev.:", 5, 8, 155, 88, 14, WS_BORDER | SS_CENTER, WS_EX_LEFT
    LTEXT           "", -1, 4294967294, 95, 253, 3, WS_BORDER | SS_LEFT, WS_EX_LEFT
}

We copied the above semdlg.prg and semdlg.rc to our FWJ2206\samples folder
and we kept the images in a subfolder semdlgbmp inside the samples folder like this

Code: Select all  Expand view  RUN

Directory of C:\FWH2206\samples\semdlgbmp

11-02-2024  19:18    <DIR>          .
11-02-2024  19:28    <DIR>          ..
11-02-2024  14:57               246 DATABASE.BMP
11-02-2024  14:57            11,254 GRADIEN2.BMP
11-02-2024  14:57            46,553 logosemt.png
11-02-2024  14:57               694 WindowsXP.Manifest
 

We built the application using both buildh.bat and buildx.bat
We did not encounter any errors.



So the errors you experience have nothing to do with creation of the dialog, but must be due to some other issues in your program not connected with creation of this dialog.

[nageswaragunupudi]

We also advise using TXImage instead of TImage and you can dispense using freeimage.dll

prg:

Code: Select all  Expand view  RUN

  REDEFINE XIMAGE oBmp ID 501 OF oDlg RESOURCE "TSSEM"

rc

Code: Select all  Expand view  RUN

   CONTROL         "", 501, "TXImage", 0x50000000, 4294967293, 4294967295, 257, 96, 0x00000000

Advantages of using TXImage over TImage
1. No need for freeimage.dll
2. Simpler program code
3. Better image quality

[csincuir]

Estimado Rao, gracias por apoyarme con estos problemas.
He hecho el cambio de TImage por TXImage, pero ahora me dio este error:

Code: Select all  Expand view  RUN

Application
===========
   Path and name: G:\svnsem\semtest\sem32.exe (32 bits)
   Size: 5,142,528 bytes
   Compiler version: Harbour 3.2.0dev (r2008190002)
   FiveWin  version: FWH 22.03
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 12-02-2024, 07:08:05
   Error description: Error BASE/1004  Message not found: TXIMAGE:LOADFROMMEMORY
   Args:
     [   1] = O   TXIMAGE

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TXIMAGE:ERROR( 148 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 77 )
   Called from: ../../../tobject.prg => TXIMAGE:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TXIMAGE:LOADFROMMEMORY( 142 )
   Called from: .\source\SEMEMP.PRG => CARGALOGOPNG( 166 )
   Called from: .\source\SEMEMP.PRG => (b)TSEMEMP_INGRESOSISTEMA( 154 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 934 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1203 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 306 )
   Called from: .\source\SEMEMP.PRG => TSEMEMP:INGRESOSISTEMA( 154 )
   Called from: .\source\SEM32.PRG => TSEMMAIN:INIT( 316 )
   Called from: .\source\SEM32.PRG => MAIN( 34 )

System
======
   CPU type: Intel(R) Core(TM) i7-7700T CPU @ 2.90GHz 2904 Mhz
   Hardware memory: 12164 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 4
      1 ,                                                                                                    
      2 , C:\Windows\System32\shcore.dll                                                                      
      3 , G:\svnsem\semtest\sem32.exe                                                                        
      4 GDI+ Window (sem32.exe), C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.22000.2003_none_93fcfb98d9f105

Variables in use
================
   Procedure     Type   Value
   ==========================
   __ERRRT_SBASE
     Param   1:    O    Class: ERROR
   TXIMAGE:ERROR
     Param   1:    N    13
     Param   2:    N    1004
     Param   3:    C    "Message not found"
     Param   4:    C    "TXIMAGE:LOADFROMMEMORY"
     Param   5:    N    1
     Param   6:    O    Class: TXIMAGE
     Local   1:    U    
     Local   2:    U    
   (b)HBOBJECT
     Param   1:    C    "Message not found"
     Param   2:    C    "TXIMAGE"
     Param   3:    C    "LOADFROMMEMORY"
     Param   4:    N    1004
   TXIMAGE:MSGNOTFOUND
     Param   1:    O    Class: TXIMAGE
     Param   2:    C    "LOADFROMMEMORY"

Aparte como le comente a Antonio por correo, le he quitado todas la librerías de terceros y cambie el BC740 por BCC700 que estoy utilizando , pero igual, sigo con los mismos problemas.

Saludos cordiales.

Carlos.

[karinha]

porque usted usa:

Code: Select all  Expand view  RUN

LOADFROMMEMORY
 

?? No comprendo.

Gracias.

Regars, saludos.

[csincuir]

Karinha,
Como es una imagen ".Png" en la TImage se usa con LoadFromMemory y se me olvido quitarlo cuando probé con la TXImage.
Gracias por el dato, pero igual, sigo teniendo el mensaje de "Format image not supported"

Saludos cordiales.

Carlos.

[csincuir]

Estimado Rao, gracias por apoyarme con estos problemas.
He hecho el cambio de TImage por TXImage, pero ahora me dio este error:

Code: Select all  Expand view  RUN

Application
===========
   Path and name: G:\svnsem\semtest\sem32.exe (32 bits)
   Size: 5,142,528 bytes
   Compiler version: Harbour 3.2.0dev (r2008190002)
   FiveWin  version: FWH 22.03
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 12-02-2024, 07:08:05
   Error description: Error BASE/1004  Message not found: TXIMAGE:LOADFROMMEMORY
   Args:
     [   1] = O   TXIMAGE

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TXIMAGE:ERROR( 148 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 77 )
   Called from: ../../../tobject.prg => TXIMAGE:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TXIMAGE:LOADFROMMEMORY( 142 )
   Called from: .\source\SEMEMP.PRG => CARGALOGOPNG( 166 )
   Called from: .\source\SEMEMP.PRG => (b)TSEMEMP_INGRESOSISTEMA( 154 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 934 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1203 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 306 )
   Called from: .\source\SEMEMP.PRG => TSEMEMP:INGRESOSISTEMA( 154 )
   Called from: .\source\SEM32.PRG => TSEMMAIN:INIT( 316 )
   Called from: .\source\SEM32.PRG => MAIN( 34 )

System
======
   CPU type: Intel(R) Core(TM) i7-7700T CPU @ 2.90GHz 2904 Mhz
   Hardware memory: 12164 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 4
      1 ,                                                                                                    
      2 , C:\Windows\System32\shcore.dll                                                                      
      3 , G:\svnsem\semtest\sem32.exe                                                                        
      4 GDI+ Window (sem32.exe), C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.22000.2003_none_93fcfb98d9f105

Variables in use
================
   Procedure     Type   Value
   ==========================
   __ERRRT_SBASE
     Param   1:    O    Class: ERROR
   TXIMAGE:ERROR
     Param   1:    N    13
     Param   2:    N    1004
     Param   3:    C    "Message not found"
     Param   4:    C    "TXIMAGE:LOADFROMMEMORY"
     Param   5:    N    1
     Param   6:    O    Class: TXIMAGE
     Local   1:    U    
     Local   2:    U    
   (b)HBOBJECT
     Param   1:    C    "Message not found"
     Param   2:    C    "TXIMAGE"
     Param   3:    C    "LOADFROMMEMORY"
     Param   4:    N    1004
   TXIMAGE:MSGNOTFOUND
     Param   1:    O    Class: TXIMAGE
     Param   2:    C    "LOADFROMMEMORY"

Aparte como le comente a Antonio por correo, le he quitado todas la librerías de terceros y cambie el BC740 por BCC700 que estoy utilizando , pero igual, sigo con los mismos problemas.

Saludos cordiales.

Carlos.

Estimado Rao, como le indicaba a Karinha, por error deje el ON INIT para utilizar el "LoadFromMemory" y por eso me dió el error.
Ya se lo he quitado, pero igual sigo teniendo el mensaje de "Format image not supported" reportado al inicio, despues de ese mensaje, presenta bien el dialogo con la imagen, eso es lo que no entiendo porque sale el mensaje de imagen no soportada, si despues, siempre se presenta.

Saludos cordiales.

Carlos