Con este codigo cargas la imagen y la guardas con el nombre que quieras
Código Delphi
[-]
Jpg:= TJPEGImage.Create;
try
Jpg.LoadFromFile(Ruta_origen+nombre +'.jpg');
proporcional(Jpg,500,500);
Jpg.SaveToFile(Ruta_destino+nombre +'.jpg');
finally
Jpg.Free;
end;
la funcion proporcional la ajusta al tamaño que quieras
Código Delphi
[-]
procedure Proporcional(Imagen: TGraphic; Ancho, Alto: Integer);
var
Bitmap: graphics.TBitmap;
begin
Bitmap:= graphics.TBitmap.Create;
try
if Imagen.Width < ancho then ancho := Imagen.Width;
if Imagen.Height < alto then alto := Imagen.Height;
if (Ancho/Imagen.Width) < (Alto/Imagen.Height) then
Alto:= Trunc((Ancho*Imagen.Height)/Imagen.Width)
else
Ancho:= Trunc((Imagen.Width*Alto)/Imagen.Height);
Bitmap.Width:= Ancho;
Bitmap.Height:= Alto;
Bitmap.Canvas.StretchDraw(Bitmap.Canvas.ClipRect,Imagen);
Imagen.Assign(Bitmap);
finally
Bitmap.Free;
end;
end;