Программное открытие изображение, изменение размера, сохранение без потерь

[chandrasecar]

Посоветуйте. Мне нужно: программно открыть изображение и изменить его размер, причем изменяя ширину, высота должна изменяться пропорционально. После нужно сохранить изображение под др. именем. При всех этих операциях изображение не должно терять качество (кроме случая изменения размера). Форматы изображений: TIFF, JPEG.
Заранее благодарю за дельные советы.

[mihali4]

И в чем затруднения ?
Например:

var
  Form1: TForm1;
  k: extended;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.AutoSize:=True;
Image1.Stretch:=True;
if OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
Image1.Repaint;
Application.ProcessMessages;
k:=Image1.Width/Image1.Height;
Image1.AutoSize:=False;
Application.ProcessMessages;
TrackBar1.Max:=Image1.Height*2;
TrackBar1.Position:=Image1.Height;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Image1.Height:=TrackBar1.Position;
Image1.Width:=Round(Image1.Height*k);
end;

С диалогом сохранения, надеюсь, справитесь?
Если нет - качайте книгу "100 компонентов Дельфи" и пусть она будет вашей настольной книгой:
http://www.programmersclub.ru/

[chandrasecar]

Спасибо. Я уже разобрался с открытием и сохранением - это ерунда. А вот изменение размера без потери качества не получается с моим кодом. Например если изменять размер изображения кот. весит 5Мб моей программой, то получается 82 Кб (+ большая зершистость), а если фотошопом - 275 Кб.

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]

Сообщение от chandrasecar

А вот изменение размера без потери качества не получается с моим кодом.

А оно и не получится. Это довольно сложный вопрос и существует не так уж и много специализированных программ, которые позволяют сглаживать потерю качества...
Представьте себе, что у вас на рисунке где-то есть группа пикселов
красный -> зеленый
белый -> красный
При уменьшении картинки ровно в 2 раза эти 4 пиксела превращаются в один.
И какой цвет ему задать ?

[chandrasecar]

Я вас понял. Если можно такое сделать, значит будем делать...
Спасибо за помощь.


Я нашел компонент ImageEn. Получилось менять размер изображения и сохранять в файл. Есть фильтры сглаживания. Картинка очень хорошая получается. Но качество не дотягивает, идет какое-то сжатие, размер файла 407*675 56Кб против 200Кб Фотошопа.

Кто работал с ImageEn? Может есть возможность как-то это исправить?