Hola pablopessoa, por favor utiliza las etiquetas
[delph¡] Tu codigo aquí [/delphi]
Código Delphi
[-]uses jpeg;
procedure TForm1.Button1Click(Sender: TObject);
var bmp: TBitmap; jpg: TJPEGImage;
begin
jpg := TJPEGImage.Create;
jpg.LoadFromFile('c:\windows\web\wallpaper\cazador.jpg');
bmp := TBitmap.Create;
bmp.Assign(jpg);
bmp.Width := 640;
bmp.Height := 480;
jpg.Assign(bmp);
bmp.Destroy;
jpg.SaveToFile('c:\2.jpg');
jpg.Destroy;
end;
Si quieres una imagen que no pierda su relacion de aspecto que sea sencilla y de conversion rápida, manejandolo como thumbnail, puedes usar lo dicho
aquí asi:
Código Delphi
[-]procedure TForm1.Button2Click(Sender: TObject);
var Image: TBitmap;
begin
Image := GetImage('ClubDelphi.jpg', 640);
if Assigned(Image) then
begin
Image1.Picture.Assign(Image);
Image.Destroy;
end;
end;
Saludos