Как изменить разрешение изображения?

[oxy-fox]

Хочу сделать так:
Открыть изображение и, если его ширина больше (например 600px), чтобы разрешение менялось на 600хХХХ - пропорционально, и сохранялось изображение в отдельный файл с уже измененным разрешением...

Возможно ли такое? И как это сделать? Если можно, то по-подробнее...

[KORN]

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBItmap;
  jpg: TJpegImage;
  scale: Double;
begin
  if opendialog1.execute then
  begin
    jpg := TJpegImage.Create;
    try
      jpg.Loadfromfile( opendialog1.filename );
      if jpg.Height > jpg.Width then scale := 50 / jpg.Height
                                else scale := 50 / jpg.Width;
      bmp:= Tbitmap.Create;
      try
        {Create thumbnail bitmap, keep pictures aspect ratio}
        bmp.Width := Round( jpg.Width * scale );
        bmp.Height:= Round( jpg.Height * scale );
        bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, jpg );
        {Draw thumbnail as control}
        Self.Canvas.Draw( 100, 10, bmp );
        {Convert back to JPEG and save to file}
        jpg.Assign( bmp );
        jpg.SaveToFile(ChangeFileext( opendialog1.filename, '_thumb.JPG' ));
      finally
        bmp.free;
      end;
    finally
      jpg.free;
    end;
  end;
end;

[mihali4]

Если я правильно понял, то:
1. После загрузки в режиме Autosize=True сделайте
- Autosize:=False;
- Stretch:=True;
2. Ну, а потом:

if Image.Width>Image.Height then
Image.Height:=Image.Width else
Image.Width:=Image.Height;

3. И напоследок
Image.Picture.SaveToFile('myfile.bm p');

[BOBAH13]

k := Min(MaxWidth / ImageWidth, MaxHeight / ImageHeight);

При отрисовке рисуем размеров в ImageWidth * k x ImageHeight * k.

По сути ответ дан в самом начале Просто я раскрыл тему