FiveTech Software tech support forums

Posted: **Mon Feb 19, 2007 10:12 am**

Hola,

Me encuentro con la siguiente limitacion. Si uso la clase image me carga perfectamente una foto en formato jpg. Si intento cargar mas de 3/4 en un dialog no lo consigo. Parece una limitacion de memoria. Alguien ha soventado el problema ?. Pongo un ejemplo sencillo para test.

Code: Select all

#include "FiveWin.ch"
#include "Image.ch"

//----------------------------------------------------------------------------

function Main()

   LOCAL oDlg, oImage1, oImage2, oImage3, oImage4, oImage5, oImage6
   LOCAL cFile := cGetFile( curdrive() + ':\' + CurDir() + '\*.jpg' )

   DEFINE DIALOG oDlg FROM 0, 0 TO 39, 50 ;
      TITLE FWDESCRIPTION + " JPG,JIF,GIF,BMP,DIB,RLE,TGA,PCX support!"

     @ 0 ,  0  IMAGE oImage1 FILE cFile SIZE 100, 100 OF oDlg ADJUST
     @ 7 ,  0  IMAGE oImage2 FILE cFile SIZE 100, 100 OF oDlg ADJUST
     @ 14,  0  IMAGE oImage3 FILE cFile SIZE 100, 100 OF oDlg ADJUST
     @ 0 , 12  IMAGE oImage4 FILE cFile SIZE 100, 100 OF oDlg ADJUST
     @ 7 , 12  IMAGE oImage5 FILE cFile SIZE 100, 100 OF oDlg ADJUST
     @ 14, 12  IMAGE oImage6 FILE cFile SIZE 100, 100 OF oDlg ADJUST


     oDlg:bStart := MsgInfo( 'oImage1:hBitmap ' + str( oImage1:hBitmap ) + CRLF + ;
                             'oImage2:hBitmap ' + str( oImage2:hBitmap ) + CRLF + ;
                             'oImage3:hBitmap ' + str( oImage3:hBitmap ) + CRLF + ;
                             'oImage4:hBitmap ' + str( oImage4:hBitmap ) + CRLF + ;
                             'oImage5:hBitmap ' + str( oImage5:hBitmap ) + CRLF + ;
                             'oImage6:hBitmap ' + str( oImage6:hBitmap ) )

   ACTIVATE DIALOG oDlg CENTER ;


return nil

Gracias.

Posted: **Mon Feb 19, 2007 12:13 pm**

a mi me funciona bien el ejemplo

FWH 2.8

Saludos
Patricio

Posted: **Mon Feb 19, 2007 2:05 pm**

Hola Patricio,

Con ficheros pequeños funciona ok, pero p.e. yo uso ficheretes de 700 Kb. (fotos a 3 Mpix.) y alli empieza el problema. Q tamaño tenia el fichero q has probado ?

Testeado en FWH 2.8

Posted: **Mon Feb 19, 2007 3:51 pm**

DIMENSION 359 X 124, 8,97 KB

AHORA CON 1027X647 1.90MB

Y TB FUNCIONA OK

SALUDOS
PATRICIO

Posted: **Mon Feb 19, 2007 5:02 pm**

Patricio,

Gracias por tu test. Voy a probarlo en diferentes maquinas, a ver...

No se si sera mi equipo.

FiveTech Software tech support forums

Limitacion TImage() / FreeImage.dll

Limitacion TImage() / FreeImage.dll