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

Советы » Bitmap » Как конвертировать bitmap в RTF код

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 {pictdibitmap0 ';
  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 код

Другое по теме:

Категории

Статьи

Советы