Как оптимизировать код перевода BMP в JPEG

[artemavd]

Добрый вечер! Сделал перевод из формата BMP в JPEG. Сжатие поставил минимальное. Впринципе устраивает размер получаемых файлов, код работает, все переводится. Но не устраивает скорость работы. Может есть способ как-то оптимизировать и ускорить данный процесс? Вот мой код:

procedure TMainForm.JPEG1Click(Sender: TObject);
var
 x,y,i:integer;
 b:TBitmap;
 sr:TSearchRec;
 s:string;
 jpg: TJpegImage;
begin
 b:=TBitmap.Create;
 jpg:=TJpegImage.Create;
 FindFirst(MainForm.RzStatusPane2.Caption +'*.bmp',faAnyFile,sr);
 with StringGrid1 do
  for i:=0 to RowCount-1 do begin
   b.LoadFromFile(MainForm.RzStatusPane2.Caption + sr.Name);

   b.Canvas.Font.Color:=clBlack;
   b.Canvas.Rectangle(1290,200,1800,90);
  //îòðèñîâêà ðåïåðîâ (ïðÿìîóãîëüíèêîâ)
   b.Canvas.Brush.Color:=clBlack;
   b.Canvas.Rectangle(1300,125,1325,100);
   b.Canvas.Rectangle(1300,163,1325,188);
   b.Canvas.Rectangle(1760,163,1785,188);
   b.Canvas.Rectangle(1760,125,1785,100);

   b.Canvas.Brush.Color:=clWhite;
   b.Canvas.Font.Color:=clBlack;
   b.Canvas.Font.Size:=50;
   b.Canvas.Font.Name:='Verdana';
   b.Canvas.TextOut(1350,100,Cells[0,i]);
   jpg.Assign(b);
   jpg.CompressionQuality:=1;
   jpg.Compress;
   jpg.SaveToFile(MainForm.RzStatusPane4.Caption + MainForm.StringGrid1.Cells[0,i] + '.jpeg');
   if FindNext(sr)<>0 then break;
  end;
   b.Free;
   jpg.Free;
   FindClose(sr);
   ShowMessage('             Âûïîëíåíî!             ');
 end;

т.е. сначала в переменную типа TBitmap грузятся изображения в формате BMP, затем на них отрисовывается текст, а затем каждое изображение пересохраняется в JPEG формат.

[Пепел Феникса]

да помоему тут ничего и не сделаешь...

[BOBAH13]

Исходя из размеров которые как я вижу и 1800, правда на 200 по высоте, получаемая скорость думаю предельна.

[artemavd]

1800 и 200 - это не размеры изображения. Это координаты прямоугольника. Сохраняемое изображение имеет размер 2408х1882. Значит никак не ускорить? Жалко, думал можно .

[Arigato]

А на что больше времени уходит, на отрисовку или перевод в jpeg?

[artemavd]

На пересохранение в jpeg. Например, я открываю папку, в которую сохраняются файлы и вижу, как они туда по 2-3 штуки добавляются. Процесс впринципе по времени не долго идет, но, думал, что можно как-то ускорить не теряя качество файлов, но, если нет, то ладно

[Arigato]

Можно использовать другие форматы, к примеру, BMP+RLE - сжатие без потерь, но размер будет больше jpeg (хотя, это еще от рисунка зависит).

[x128]

jpg.CompressionQuality:=1;

При таком качестве от картинки должны остаться только квадратики 8х8 с мусором, соответственно если уменьшить картинку в 8 раз и сжать ее с нормальным качеством, скорость будет на порядок выше и качество картинки останется приемлемым. Можно попробовать PNG, для определенного класса изображений этот формат будет предпочтительней. Для JPEG-a можно использовать библиотеку IJL (Inter JPEG Library), в которой кодирование оптимизировано под современные процессоры и соответственно производительность намного выше стандартного JPEG-а в делфи.