Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Slav © (2008-12-23 13:18:00)
Приветствую! Прошу помощи.
Не знаю как подойти к решению задачи:
Вписать текст заданного шрифта в нужное место 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;

Slav (2008-12-23 13:53:00) [1]
Получилось!
Спасибо.

{RASkov} (2008-12-23 13:39:00) [2]
> [3] Slav (23.12.08 13:29)

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

{RASkov} (2008-12-23 13:38:00) [3]
> [3] Slav (23.12.08 13:29)
> Есть пример кода добавления текста на Image1.picture...?

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

Slav (2008-12-23 13:29:00) [4]
Есть пример кода добавления текста на Image1.picture... ?

{RASkov} (2008-12-23 13:23:00) [5]
Если изначально картинка в JPEG то нужно ее конвертировать в Битмап, на котором произвести рисование(вывод текста) затем конвертировать назад в JPEG и сохранить в файл...

qqq (2008-12-23 13:22:00) [6]
на пиктуре отрисуй совй текст

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »