Guardar Picture de TImage en un archivo bmp
 

Hola, sé como se guarda el picture del Timage en un fichero. Lo que pasa es que se me queda pillado la aplicacion cuando pincho el boton, que hace para guardar el picture en un bmp.

Os enseño parte de mi código:

Código Delphi [-]

//IMPRIMIMOS
 else if dialogo_mostrado=2 then
 begin
  n:= 0;
  while n < cantidades.Count do
  begin


      if (Ventana_Foto_Concreta_Form.Image1.Visible=true) then
      begin

       DeleteFile('C:\fichero.bmp');
           Ventana_Foto_Concreta_Form.Image1.Picture.SaveToFile('C:\fichero.bmp');

      end

      else if(Ventana_Foto_Concreta_Form.ImageEfecto1.Visible=true) then
      begin
       DeleteFile('C:\fichero.bmp');
       Ventana_Foto_Concreta_Form.ImageEfecto1.Picture.SaveToFile('C:\fichero.bmp');

      end

      else
      begin

      end;

      if StrToInt(cantidades.Strings[n])>0 then
      begin
       PonerFaenaImpresion('C:\fichero.bmp',StrToInt(cantidades.Strings[n]));
       Inc(n);
      end;
      
   end;

  end

Tanto Image1 como ImageEfecto1 provienen de la clase Timage.
He probado por ejemplo con Image1.free despues de salvar el Image1, y sale algun error de alguna instruccion.
Tambien pruebo, despues de salvar, y si libero con Image1.picture.free , también error de instruccion.

Saludos.

¿Qué quiere decir que se te queda pillado?
¿Llega a grabar la imagen en disco? ¿No se quedará ejecutando el bucle de forma indefinida?
¿Cómo está la CPU (%)?

ya lo he resuelto, la cuestion era que se incrementaba siempre 'n' muchas veces, por lo que había que poner 'inc(n)' más abajo del código.


Saludos.