Trabalhando com imagens

Question

Pessoal como eu poderia fazer para carregar uma imagem em jpeg e depois redimensionar o tamanho dela e gravar essa nova imagem(a redimensionada) em um arquivo, ou seja quero abrir uma imagem, alterar o tamanho dela e gravar essa mudanca em um novo arquivo.

obrigado, qualquer ajuda!

Wilson Brito · Answer

Fiz um procedimento, espero que seja �til.

implementation

{$R *.dfm}

Uses jpeg;

Procedure RedimensionarIMG(ArqOriginal,ArqNovo:String;Largura,Altura:Integer);
var
  Img1,Img2 : TImage;
  JPG: TJPEGImage;
begin
  //Imagem Original
  Img1 := TImage.Create(nil);
  Img1.Picture.LoadFromFile(ArqOriginal);

  //Imagem Nova
  Img2 := TImage.Create(nil);
  Img2.Width := Largura;
  Img2.Height := Altura;
  Img2.Canvas.StretchDraw(Img2.Canvas.ClipRect,Img1.Picture.Graphic);

  //Cria em jpg
  JPG := TJPEGImage.Create;
  JPG.Assign(IMG2.Picture.Graphic);
  JPG.SaveToFile(ArqNovo);

  //Libera as vari�veis
  Img1.Free;
  Img2.Free;
  JPG.Free;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  RedimensionarIMG(�C:\origem.jpg�,�c:\destino.jpg�,100,100);
end;

[/code]

F�rum Trabalhando com imagens #292945