Через что можно загрузить с компьютера текст с картинками? - вопрос №83938

код

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;