imagen jpg a bitmap

[josi]

saludos



el delphi habra una forma de convertir una imagen jpg a bitmap


gracias

[ixMike]

La hay, pero me da que no la has buscado (por favor, utilízala la próxima vez, sino la del foro, Google u otro similar, este código está reproducido en mil sitios, por ejemplo, www.q3.nu/trucomania; gracias).

Código Delphi [-]
var
 j: TJPEGImage;
 b: TBitmap;
begin
 j:=JPEGImage.Create;
 b:=TBitmap.Create;
 j.LoadFromFile('C:\Imagen.jpg');
 b.Assign(j);
 b.SaveToFile('C:\Imagen.bmp');
 b.Free;
 j.Free;
end;

Salu2.

[josi]

donde pongo este codigo

Código Delphi [-]var j: TJPEGImage; b: TBitmap; begin j:=JPEGImage.Create; b:=TBitmap.Create; j.LoadFromFile('C:\Imagen.jpg');
b.Assign(j);
b.SaveToFile('C:\Imagen.bmp');
b.Free;
j.Free;
end;



Salu2.[/quote]

[[Delphius]]

Empezado por josi

donde pongo este codigo

Código Delphi [-]var j: TJPEGImage; b: TBitmap; begin j:=JPEGImage.Create; b:=TBitmap.Create; j.LoadFromFile('C:\Imagen.jpg');
b.Assign(j);
b.SaveToFile('C:\Imagen.bmp');
b.Free;
j.Free;
end;



Salu2.

[/quote]
Josi, ese código deberás ponerlo en donde lo necesites... Por lo que veo, eres iniciado en Delphi. Te invito a que te asomes a las secciones FTP y Wiki. Allí hay material de estudio y ejemplos que te puede ayudar a comprender Delphi.

Saludos,

[Black_Ocean]

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 =)

[ixMike]

Empezado por Delphius

Josi, ese código deberás ponerlo en donde lo necesites... Por lo que veo, eres iniciado en Delphi. Te invito a que te asomes a las secciones FTP y Wiki. Allí hay material de estudio y ejemplos que te puede ayudar a comprender Delphi.

De casi obligada lectura: La cara oculta de Delphi 4 (no, tranquilo, vale para cualquier versión, va desde lo más básico, a un nivel alto).

Empezado por josi

donde pongo este codigo

Esto sí es de obligada lectura.


Salu2