topic-6025

Posts: 1283

Joined: Fri Feb 10, 2006 02:34 PM

Limitacion TImage() / FreeImage.dll
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 Collapse

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

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Limitacion TImage() / FreeImage.dll
Posted: Mon Feb 19, 2007 12:13 PM

a mi me funciona bien el ejemplo

FWH 2.8

Saludos
Patricio

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Carles

Posts: 1283

Joined: Fri Feb 10, 2006 02:34 PM

Limitacion TImage() / FreeImage.dll
Posted: Mon Feb 19, 2007 02: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

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Limitacion TImage() / FreeImage.dll
Posted: Mon Feb 19, 2007 03:51 PM

DIMENSION 359 X 124, 8,97 KB

AHORA CON 1027X647 1.90MB

Y TB FUNCIONA OK

SALUDOS
PATRICIO

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Carles

Posts: 1283

Joined: Fri Feb 10, 2006 02:34 PM

Limitacion TImage() / FreeImage.dll
Posted: Mon Feb 19, 2007 05:02 PM

Patricio,

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

No se si sera mi equipo.

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

FiveTech Support Forums

Continue the discussion