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

← →
Slav (2008-12-23 13:18) [0]

Приветствую! Прошу помощи.
Не знаю как подойти к решению задачи:
Вписать текст заданного шрифта в нужное место jpg изображения и сохранить обратно в файл.

Вот что я нашел по работе с jpg модуль JPEG. Это мне понятно:

var jpg:TJpegImage;
begin
{создаем экземпляр объекта}
jpg:=TJpegImage.Create;
{присваиваем ему изображение}
jpg.Assign(image1.picture.graphic);
{устанавливаем степень сжатия (качество) 1..100}
jpg.CompressionQuality:=60;
{Упаковываем графику}
jpg.Compress;
{сохраняем}
jpg.SaveToFile("D:first.jpg");
{уничтожаем экземпляр объекта}
jpg.free;
end;

← →
qqq (2008-12-23 13:22) [1]

на пиктуре отрисуй совй текст

← →
{RASkov} © (2008-12-23 13:23) [2]

Если изначально картинка в JPEG то нужно ее конвертировать в Битмап, на котором произвести рисование(вывод текста) затем конвертировать назад в JPEG и сохранить в файл...

← →
Slav (2008-12-23 13:29) [3]

Есть пример кода добавления текста на Image1.picture... ?

← →
{RASkov} © (2008-12-23 13:38) [4]

> [3] Slav (23.12.08 13:29)
> Есть пример кода добавления текста на Image1.picture...?

А какого формата изоброжение в Image1.picture?

> [3] Slav (23.12.08 13:29)

Bmp.Canvas.TextOut(X, Y, "Text");
где Bmp: TBitmap;

← →
Slav (2008-12-23 13:53) [6]

Получилось!
Спасибо.

Добавить текст на изображение JPEG Найти похожие ветки