Скачать: CL | DM;

Добавить текст на изображение 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?

---

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

> [3] Slav   (23.12.08 13:29)

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c