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

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

Автор: 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 документ.

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