TImage, me da problemas al cargar grandes imagenes.

[BlackDaemon]

Hola

la pregunta...

¿Cual es el método mágico?

Ya que yo quiero trabajar con imágenes grandes.

Saludos!

[MAXIUM]

El mismo que utilizaste. Ir cargando porciones de la imagen completa y "pegandolas", las otras las vas liberando, de ese modo el consumo de memoria en mi caso no supero los 400kb en una imagen de 5000x5000.

Pero el sistema a veces funcionaba otras no, nunca descubrí el porque, siempre me daba "Espacio insuficiente de almacenamiento para procesar este comando...". Solo me funcionaba en forma segura si no pasaba de los 3000x3000.

[BlackDaemon]

Hola

Aver, creo que andas equivocado, por que yo lo que hago es lo siguiente:
primero creo el Timage de X cantidad de pixeles, luego ir uniendo trozo por trozo, he creado imágenes grandes, pero necesito saber como crear de unos 60000 por 60000 px, como ves el tuyo de 3000 no se le acerca, esas de 3000 y más las puedo crear sin problemas, y tampoco puedes decir que vas creando y liberando la memória, por que en ese caso, el resutado sería solamente un trozo, osea el último, ya que lo que hacemos es ir añadiendo un trozo al Timage y este mismo lo guarda en memória, luego otro, etc y al final todo _junto_ se guarda en una sola imágen.

Saludos!

[MAXIUM]

Código Delphi [-]
Const
     Mapa: Array[0..5,0..9] of String =
    (('Quilicura_01.bmp', 'Quilicura_02.bmp', 'Quilicura_03.bmp', 'Quilicura_04.bmp', 'Quilicura_05.bmp',
      'Quilicura_06.bmp', 'Quilicura_07.bmp', 'Quilicura_08.bmp', 'Quilicura_09.bmp', 'Quilicura_10.bmp'),
     ('Quilicura_11.bmp', 'Quilicura_12.bmp', 'Quilicura_13.bmp', 'Quilicura_14.bmp', 'Quilicura_15.bmp',
      'Quilicura_16.bmp', 'Quilicura_17.bmp', 'Quilicura_18.bmp', 'Quilicura_19.bmp', 'Quilicura_20.bmp'),
     ('Quilicura_21.bmp', 'Quilicura_22.bmp', 'Quilicura_23.bmp', 'Quilicura_24.bmp', 'Quilicura_25.bmp',
      'Quilicura_26.bmp', 'Quilicura_27.bmp', 'Quilicura_28.bmp', 'Quilicura_29.bmp', 'Quilicura_30.bmp'),
     ('Quilicura_31.bmp', 'Quilicura_32.bmp', 'Quilicura_33.bmp', 'Quilicura_34.bmp', 'Quilicura_35.bmp',
      'Quilicura_36.bmp', 'Quilicura_37.bmp', 'Quilicura_38.bmp', 'Quilicura_39.bmp', 'Quilicura_40.bmp'),
     ('Quilicura_41.bmp', 'Quilicura_42.bmp', 'Quilicura_43.bmp', 'Quilicura_44.bmp', 'Quilicura_45.bmp',
      'Quilicura_46.bmp', 'Quilicura_47.bmp', 'Quilicura_48.bmp', 'Quilicura_49.bmp', 'Quilicura_50.bmp'),
     ('Quilicura_51.bmp', 'Quilicura_52.bmp', 'Quilicura_53.bmp', 'Quilicura_54.bmp', 'Quilicura_55.bmp',
      'Quilicura_56.bmp', 'Quilicura_57.bmp', 'Quilicura_58.bmp', 'Quilicura_59.bmp', 'Quilicura_60.bmp'));
Var
   MapaBMP: TBitmap;
   Horizontal, Vertical: Integer;
begin
     MapaBMP:= TBitmap.Create;

  // Mapea el plano cargando las imágenes.   
     Try
        For Vertical:= 0 To 5 Do
           For Horizontal:= 0 To 9 Do
           Begin
                MapaBMP.LoadFromFile(Directorio + 'plano\'+ Mapa[Vertical, Horizontal]);
                Image1.Canvas.Draw(Horizontal*510, Vertical*500, MapaBMP);
           End;
     Finally
        MapaBMP.Free; // <- Voy liberando memoria 
     End; 
end;

Cada imagen es de 510x500 pixeles, Las dimensiones del TImage las dejo definidas desde un principio y dentro de un ScrollBox. El consumo máximo de memoria no supera los 500kb para una imagen de 5100x5000 en este caso.

[BlackDaemon]

Hola

Mira, yo tengo una imágen creada de 3800 px X 3800px y sin usar lo que tu dices, tarda un poco en unirla, pero con un progress bar y un thread se soluciona, además yo no tengo imágenes definidas, eso lo hace el usuario, osea que no podría hacer lo del array, aunque podría emplear los arrays dinámicos, pero de igual forma tendría problemas con los nombres de las imágenes, etc, y para que hacer esto si como lo hago me funciona a la perfección, pero repetiré otra ves, necesito imágenes GRANDES, de 60000px de ancho y lado, y como te digo, mis 3800 y tus 3000 no me sirven de mucho
De todas formas muchas gracias por los datos, pero ahí en tu código en el Image1 es donde quisiera crearlo de ~60000px
Saludos