Guardar captura de imagen a un tamaño determinado

[BrunoBsso]

Hola.
Hace poco hice un programa para redimensionar imágenes y guardarlas en distintos formatos.
Te salvaste que estoy en la PC de escritorio y no en la note
Te dejo el código para que veas como se hace.

Código Delphi [-]
procedure TFPrincipal.Redimensionar(var Img:TBitmap; Alto,Ancho:Integer);
var
  BMP:TBitmap;
  Rect:TRect;
begin
  BMP:=TBitmap.Create;

  {Redimensionar}
  BMP.Width:=Ancho;
  BMP.Height:=Alto;
  Rect.Left:=0;
  Rect.Top:=0;
  Rect.Right:=Ancho;
  Rect.Bottom:=Alto;
  BMP.Canvas.StretchDraw(Rect,Img);

  {Devolver la imagen redimensionada}
  Img.Assign(BMP);
  BMP.Destroy;
end;

Saludos!

PD: si trabajaras con otro formato de imagen, por ejemplo JPGE, también sirve este código; solamente hay que convertir el formato después de redimensionarla.