
Последние записи
- Форматирование таблиц в документе (Microsoft Office Word)
- Добавить текст на картинку JPEG
- Повторяющийся звук в Delphi
- Выгрузка TImage в Excel
- Где курсор
- Удалить повторы со сложением значений (Microsoft Office Excel)
- Bass регулировка по отдельности левого и правого каналов звука
- Как ускорить замену текста в MEMO?
- Вывод картинки (текстуры) на OpenGL 3.3 и Qt C++ с плавающем диапазоном координат по оси X
- Поиск ячеек определенного цвета (Microsoft Office Excel)

15th
Фев
Добавить текст на картинку JPEG
Posted by obzor under Delphi
Подскажите пожалуйста, как Image вывести текст?
Собственно, задача, которую мне нужно выполнить — есть огромное число фотографий, на которых нужно в углу написать название файла.
И второй вопрос — как потом сохранить фото как jpg ?
Код:
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;
Протестировал — работает.
Один минус только — размер файла вырастает так раза в 4 после этой операции. При том же разрешении изображения. И можно ли как-то устранить эту проблему?
Можно экспериментировать с
Код:
CompressionQuality
Ставить значение от 0 до 100. Соответственно будет влиять на качество изображения.
Можно смело ставить значение 80, внешне неотличимо от 100, а файл станет поменьше.
Случайные статьи

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)