Ver Mensaje Individual
  #5  
Antiguo 12-04-2008
Avatar de Black_Ocean
Black_Ocean Black_Ocean is offline
Miembro
 
Registrado: nov 2006
Posts: 128
Reputación: 18
Black_Ocean Va por buen camino
josi,

Vaya pregunta, como dijo el amigo anterior, parece que te estás iniciando en Delphi. Mira, intentaré explicarte paso por paso el ejemplo señalado por el amigo de arriba.

Pondremos el código anterior en el evento OnClic del objeto Button1 de clase TButton (en resumen, un básico botón), cuyo código es el método que utilizaremos en respuesta a dicho evento, es decir en este caso, que el evento se generará cuando hagamos clic izquierdo del mouse (left clic) sobre el botón, el cuál quedaría así:

Código Delphi [-]
uses
  Graphics, JPEG;

procedure TForm1.Button1Click(Sender: TObject);
var
  j: TJPEGImage; // Variable de tipo TJPEGImage, que son contenedores para imágenes JPG/JPEG
  b: TBitmap; // Variable de tipo TBitmap, que son contenedores para imágenes BMP
begin
  j:= TJPEGImage.Create; //Creamos el objeto de clase TJPEGImage en la memoria
  b:= TBitmap.Create; //Creamos el objeto de clase TBitmap en la memoria
  try
    j.LoadFromFile('C:\Imagen.jpg'); //Cargamos al objeto de clase TJPEGImage una imagen deseada de formato Jpg/jpeg desde un archivo externo.
    b.Assign(j); // Asignamos (copiamos) la imagen contenida en el objeto de clase TBitmap al objeto de clase TJPEGImage que habíamos cargado anteriormente.
    b.SaveToFile('C:\Imagen.bmp'); //Guardamos al disco duro el archivo en formato BMP que es el que requerías.
  finally
    b.Free; //Liberamos el objeto de tipo TBitmap de la memoria porque, en este caso, ya no lo usaremos más
    j.Free; //Liberamos el objeto de tipo TJPEGImage de la memoria porque, en este caso, ya no lo usaremos más
  end;
end;

Espero que te sirva esta pequeña explicación.

Saludos =)

Última edición por Black_Ocean fecha: 12-04-2008 a las 08:30:11.
Responder Con Cita