VPF::Создать .bmp с нарисованым текстом

maestro2k

Дата 18.2.2007, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Создать .bmp и написать в нем текст?
Помогите плиз.

VICTAR

Дата 18.2.2007, 18:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 2
Всего: 80

Код


procedure TForm1.Button1Click(Sender: TObject);
var Bmp: TBitmap;
begin
Bmp:=TBitmap.Create;
Bmp.Width:=100;
Bmp.Height:=100;
Bmp.Canvas.TextOut(0,0,'Текст на bmp');
Bmp.SaveToFile('C:\1.bmp');
Bmp.Free;
end;

Bitter

Дата 18.2.2007, 18:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный лентяй

Профиль
Группа: Завсегдатай
Сообщений: 1209
Регистрация: 15.8.2004
Где: Харьков, Ukraine

Репутация: 6
Всего: 27

создать файл чтоли?

можно так:

Код


 Image1.Picture.BitMap.Width:=100;
 Image1.Picture.BitMap.Height:=100;
 Image1.Picture.BitMap.Canvas.Rectangle(0,0,100,100);
 Image1.Picture.BitMap.Canvas.TextOut(10,10,'HelloWorld'); // Печать текста
 Image1.Picture.SaveToFile('MyBmp.bmp');                    // Сохранение в файл

Добавлено @ 18:36
Блин, когда отвечал, сообщения выше ещё не было smile

))

Это сообщение отредактировал(а) Bitter - 18.2.2007, 18:38

maestro2k

Дата 18.2.2007, 19:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

А на чистых Апи... Есть битмап который дадо сохранить в файл.

Alexeyt

Дата 18.2.2007, 22:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: 1
Всего: 2

maestro2k,
зачем чистое API? Если у тебя HBITMAP, то скопируй его в TBitmap, а затем сохрани в файл.

Скопировать так:
FBitmap.Handle:= HBitmap

Alexeis

Дата 19.2.2007, 01:43 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Цитата(maestro2k @ 18.2.2007, 19:59

)

А на чистых Апи...

Хотел на АПИ, вот и на АПИ smile

Код


procedure TForm1.Button1Click(Sender: TObject);
var
 bmp   : hBitmap;
 DC    : hDC;
 pen   : HPen;
 bfont : hFont;

begin
  DC  := CreateCompatibleDC(GetDC(0));
  bmp := CreateCompatibleBitmap(DC, 200, 200);
  SelectObject(DC, bmp);

  PatBlt(DC, 0, 0, 200, 200, WHITENESS);

  pen := GetStockObject(BLACK_PEN);
  LineTo(DC, 100, 100);

  bfont := GetStockObject(DEVICE_DEFAULT_FONT);
  TextOut(DC, 20, 20, 'Пример вывода текста', length('Пример вывода текста'));

  BitBlt(Canvas.Handle, 20, 20, 200, 200, DC, 0, 0, SRCCOPY);

  DeleteDC(DC);
  DeleteObject(bmp);
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »