Как сжать размер сохраняемого файла в Delphi?

Question

[Александр Шилов]

Есть изображение, вес которого равняется 558 Кб (скриншот)
С помощью кода на изображение накладывается текст и сохраняет изображение с текстом уже с размером 6,5 Мб, как можно сжать вес изображения при сохранении?

procedure TForm1.Button1Click(Sender: TObject);
var r : integer;
    numberStr : string;
    SR : tSearchRec;
    jpg:TJpegimage;
begin
Memo1.Clear;
numberStr:=Memo2.Lines[0];
r := FindFirst(Edit1.Text+numberStr+'.jpg', faAnyFile, SR);
  if r = 0 then begin
    Memo1.Lines.Add('Screen : '+FormatDateTime('mm/dd/yyyy hh:nn:ss',
      FileAccessDateToDateTime(SR.FindData.ftCreationTime)));
  end;
jpg:=TJpegImage.Create;
jpg.LoadFromFile(Edit1.Text+numberStr+'.jpg');
with Image1 do
 begin
   canvas.font.Size:=26;
   canvas.Font.Color:=clRed;
   picture.Bitmap.Assign(jpg);
   canvas.Brush.Style:=bsClear;
   canvas.TextOut(10,20,Memo1.Lines[0]);
   picture.SaveToFile(Edit1.Text+numberStr+'(number).png');
 end;
 Memo2.Lines.Delete(0);
end;

Answer 1

[Александр Шилов]

В итоге подредактировал по примерам kalapanga и добился результата

jpg.Assign(Image1.Picture.Graphic);
     jpg.CompressionQuality := 100;
     jpg.Compress;
     jpg.SaveToFile(Edit1.Text+'\SnapShots(new)\'+numberStr+'(new).bmp');
     jpg.Free;

Answer 2

[kalapanga]

TPicture про png ничего не знает. Посмотрите файл, он у Вас только с расширением png, а внутри обычный битмап. Нужно обратно к соответствующему классу перейти (TJPEGImage, TPNGImage):

jpgout := TJPEGImage.Create;
  try
    with jpgout do
    begin
      Assign(Image1.Picture.Bitmap);
      SaveToFile('myfile.jpg');
    end;
  finally
    jpgout.Free;
  end;

Comments

[Александр Шилов]

Прошу прощения, не исправил, просто я подумал, что это из-за .jpg много памяти съедало и решил попробовать с .png, но ничего не изменилось.

[kalapanga]

Александр Шилов, Я не понял, что Вы хотели сейчас сказать. TImage.picture.SaveToFile() не умеет сохранять ни в jpg ни в png, как бы вы файл не называли там всё равно будет обычный битмап. Вместо этого сохраняйте как я написал.
Вы же для чтения jpg файла используете класс TJpegImage, вот и для записи в jpg нужно его же использовать. png - аналогично.

[Александр Шилов]

kalapanga, я конечно сейчас попробую Ваш метод, но вообще Вы не правы, он умеет сохранять во всех форматах и .jpg и .png, а не только в .bmp. В спойлере привожу пример работы моей программы.

spoiler

[kalapanga]

Александр Шилов, Не путайте расширение файла и внутренний формат файла. Вы можете его хоть .cdr обозвать, но кореловским он от этого не станет :)

[Александр Шилов]

kalapanga, наверное я Вас понял)