Добавить текст на картинку JPEG

Posted by obzor under Delphi

Подскажите пожалуйста, как Image вывести текст?
Собственно, задача, которую мне нужно выполнить — есть огромное число фотографий, на которых нужно в углу написать название файла.

И второй вопрос — как потом сохранить фото как jpg ?

Shouldercannon

Vcl.Imaging.jpeg
...
procedure TForm1.Button1Click(Sender: TObject);
var
  jpeg: TJpegImage;
  bm: TBitMap;
begin
  bm := TBitMap.Create;
  jpeg := TJpegImage.Create;
  jpeg.CompressionQuality := 100;
  jpeg.LoadFromFile('pic.jpg');
  bm.Assign(jpeg);
  bm.Canvas.Font.Name := 'Courier New';
  bm.Canvas.Font.Color := clWhite;
  bm.Canvas.Font.Style := [fsBold];
  bm.Canvas.Font.Size := 14 ;
  bm.Canvas.Brush.Style := bsClear;
  bm.Canvas.TextOut(50, 100, 'Something');
  jpeg.Assign(bm);
  jpeg.SaveToFile('s.jpg');
  Image1.Canvas.Draw(0, 0, bm);
  bm.Destroy;
  jpeg.Destroy;
end;

Kronos913

Протестировал — работает.
Один минус только — размер файла вырастает так раза в 4 после этой операции. При том же разрешении изображения. И можно ли как-то устранить эту проблему?

Shouldercannon

Можно экспериментировать с

CompressionQuality

Ставить значение от 0 до 100. Соответственно будет влиять на качество изображения.

Arigato

Можно смело ставить значение 80, внешне неотличимо от 100, а файл станет поменьше.

тема на форуме

Случайные статьи

• Как загрузить в Мemo список файлов в каталоге?
• Подсчитать количество дней в месяце?
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить клавишу ESC при вводе значения в textbox на форме
• Пример извлечения из HTML страницы куска кода?
• Как написать макрос который бы по клику по ячейке скрывал столбец?
• Как сделать подсказку у кнопки в delphi?
• Cохранить в файл структуру
• GetDIBits пишет за буфер => Heap corruption detected.
• Выход из бесконечного цикла