Технологии

• Всего ответов: 2


Евгений
9-й в
6 отзывов
код
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\dibitmap ';

SetLength(hexpict,(Length(bb) + Length(bi)) * 2);

I := 2;

for bis := 1 to Length(bi) do

begin

achar := Format('%x',[Integer(bi[bis])]);

if Length(achar) = 1 then

achar := '0' + achar;

hexpict[I-1] := achar[1];

hexpict[I] := achar[2];

Inc(I,2);

end;

for bbs := 1 to Length(bb) do

begin

achar := Format('%x',[Integer(bb[bbs])]);

if Length(achar) = 1 then

achar := '0' + achar;

hexpict[I-1] := achar[1];

hexpict[I] := achar[2];

Inc(I,2);

end;

rtf := rtf + hexpict + ' }}';

Result := rtf;

end;
 
и пример использования
{SS это TStringStream, RE это TRxRichEdit, а BMP это TBitmap содержащий картинку.}

SS := TStringStream.Create(BitmapToRTF(BMP));

RE.PlainText := False;

RE.StreamMode := [smSelection];

RE.Lines.LoadFromStream(SS);

SS.Free;
май 26, 2011 г.
Ответ понравился автору
Лучший ответ по мнению автора

Евгений
9-й в
6 отзывов
В стандартном RichEdit нельзя, для RichEdit с картинками используйте RichEdit из RxLib или JVCL.
май 26, 2011 г.

Похожие вопросы