Как выбрать оптимальный формат для графического файла?

[artemavd]

Добрый вечер еще раз! Я через программу XnView сканирую кое какие файлы в BMP формат, т.к. из него потом перевожу в JPEG, который затем перевожу в PDF. Проблема в размерах файлов после сканирования, слишком большие. Например, один BMP скан весит 500kb, перевожу его в JPEG и сжимаю так:

 b:=TBitmap.Create;
 jpg:=TJpegImage.Create;
 FindFirst(Form1.RzStatusPane10.Caption +'*.bmp',faAnyFile,sr);
 with RzStringGrid5 do
  for t:=0 to RowCount-1 do
  begin
   b.LoadFromFile(Form1.RzStatusPane10.Caption + sr.Name);
   jpg.Assign(b);
   jpg.CompressionQuality:=5;
   jpg.Compress;
   jpg.SaveToFile(Form1.Edit2.Text + Form1.RzStringGrid5.Cells[0,t] + '.jpeg');
   Application.ProcessMessages;
   if FindNext(sr)<>0 then break;
  end;
   b.Free;
   jpg.Free;
   FindClose(sr);

получаю файл размером примерно в 200кб. Это тоже много очень для одного файл. Вопрос в том как крутить формата так, чтобы конечный JPEG файл был около 90-100кб, и после получился бы PDF файл размером на 10-20кб меньше. Какой формат испозовать: GIF? PNG?

[_SERGEYX_]

Качество Jpeg, считается приемлемым при 65% процентов сжатия.
Поэкспериментируй со значением jpg.CompressionQuality

[artemavd]

А размер уменьшится?

[_SERGEYX_]

А попробовать?
Я проверил...

 jpg.CompressionQuality:=65;

Картинка 1024 х 768
Размер bmp - 2,2 мб
Jpeg на выходе около 115 кб.
Если значение CompressionQuality < 50 - заметны искажения... но это от картинки зависит.

[mihali4]

В общем случае сильно зависит от содержимого. Поэтому и так много различных форматов. Картинки с разным содержимым могут иметь наименьший размер либо в JPG, либо в PNG, а иногда даже и в BMP.

[artemavd]

Картинка Ч/Б. Размер скана после сканирования 2000х1000 с чем-то...

[mihali4]

Выкладывайте пример, помухлюю...

[pproger]

2mihali4

Картинки с разным содержимым могут иметь наименьший размер либо в JPG, либо в PNG, а иногда даже и в BMP.

бред. никогда изображение в формате bmp не будет меньше аналогичного в джепеге или пнг. вне зависимости от содержимого

[Somebody]

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

бред. никогда изображение в формате bmp не будет меньше аналогичного в джепеге или пнг. вне зависимости от содержимого

Меньше png не будет, но чёрно-белый BMP 1 bpp меньше jpg'а с качеством 50.

[artemavd]

И все такие не получается загрузить и связать через Assign GIF и JPEG.

var
 jpg: TJpegImage;
 gif: TGIFImage;
begin
 gif:=TGIFImage.Create;
 jpg:=TJpegImage.Create;
 FindFirst(Form1.RzStatusPane2.Caption +'*.gif',faAnyFile,sr);
 with RzStringGrid1 do
  for t:=0 to RowCount-1 do
  begin
   gif.LoadFromFile(Form1.RzStatusPane2.Caption + sr.Name);
   jpg.Assign(gif);
   jpg.SaveToFile(Form1.Edit1.Text + Form1.RzStringGrid1.Cells[0,t] + '.jpeg')

может кто подскажет как перевести?