Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-05-2008
kapullok_2006 kapullok_2006 is offline
Miembro
 
Registrado: mar 2007
Posts: 90
Poder: 18
kapullok_2006 Va por buen camino
Unhappy 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.
Responder Con Cita
  #2  
Antiguo 20-05-2008
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
¿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 (%)?
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 21-05-2008
kapullok_2006 kapullok_2006 is offline
Miembro
 
Registrado: mar 2007
Posts: 90
Poder: 18
kapullok_2006 Va por buen camino
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.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Guardar la configuracion en un archivo razor7 Varios 2 14-05-2007 07:15:37
Guardar archivo de Excel LinaC Varios 6 01-09-2006 15:21:18
Guardar jpg en archivo XML zemog76 OOP 13 27-06-2005 03:16:47
Guardar Archivo BlueSteel Varios 10 01-04-2005 01:43:08
Guardar un archivo en BD interbase Ronny Firebird e Interbase 2 17-01-2005 17:43:56


La franja horaria es GMT +2. Ahora son las 01:40:23.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi