Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как конвертировать bitmap в RTF код

Delphi , Графика и Игры , Bitmap

Как конвертировать bitmap в RTF код

Автор: http://www.swissdelphicenter.ch

function BitmapToRTF(pict: TBitmap): string;
var
  bi, bb, rtf: string;
  bis, bbs: Cardinal;
  achar: ShortString;
  hexpict: string;
  I: Integer;
begin
  GetDIBSizes(pict.Handle, bis, bbs);
  SetLength(bi, bis);
  SetLength(bb, bbs);
  GetDIB(pict.Handle, pict.Palette, PChar(bi)^, PChar(bb)^);
  rtf := '{\rtf1 {\pict\dibitmap0 ';
  SetLength(hexpict, (Length(bb) + Length(bi)) * 2);
  I := 2;
  for bis := 1 to Length(bi) do
  begin
    achar := IntToHex(Integer(bi[bis]), 2);
    hexpict[I - 1] := achar[1];
    hexpict[I] := achar[2];
    Inc(I, 2);
  end;
  for bbs := 1 to Length(bb) do
  begin
    achar := IntToHex(Integer(bb[bbs]), 2);
    hexpict[I - 1] := achar[1];
    hexpict[I] := achar[2];
    Inc(I, 2);
  end;
  rtf := rtf + hexpict + ' }}';
  Result := rtf;
end;

Статья Как конвертировать bitmap в RTF код раздела Графика и Игры Bitmap может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


:: 2011-02-22 13:46:29 :: re:Как конвертировать bitmap в RTF код

пользователь: xxx.

Проверял ли кто нибудь этот код на работоспособность?! У меня почему то ничего Word и WordPad не хочет отображать после того как конвертирование выполнено! Возможно потому что пытаюсь какие нибудь BMP-шки кривые конвертировать.. А может быть потому что не хватает описания важных параметров, таких как например \wbmbitspixel \wbmplanes \wbmwidthbytes. Если у кого подобные проблемы пишите, будем вместе решать!=) slijikav@stu.ru


:: 2011-02-23 21:25:16 :: re:Как конвертировать bitmap в RTF код

пользователь: kan.

Код должен работать.
Обратите внимание, на то, что это преобразование именно картинки, которую можно вставить в подготовленный RTF документ.


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Bitmap ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
17.05.2021 03:44:10/0.0010101795196533/0