RxRichEdit,Rich98插入图像完全解决方案[Delphi]!

最新推荐文章于 2022-01-13 11:46:08 发布

D_Q

最新推荐文章于 2022-01-13 11:46:08 发布

阅读量3.8k

点赞数

分类专栏： RichEdit类文章标签： delphi rtf bbs integer function bi

本文链接：https://blog.csdn.net/d_q/article/details/51452

版权

RichEdit类专栏收录该内容

1 篇文章 0 订阅

订阅专栏

uses 
  RichEdit;//RxRichEdit 
 
//RxRichEdit 
type 
  TEditStreamCallBack = function(dwCookie: Longint; pbBuff: PByte; 
    cb: Longint; var pcb: Longint): DWORD; 
  stdcall; 
 
  TEditStream = record 
    dwCookie: Longint; 
    dwError: Longint; 
    pfnCallback: TEditStreamCallBack; 
  end; 
//RxRichEdit 
function EditStreamInCallback(dwCookie: Longint; pbBuff: PByte; 
  cb: Longint; var pcb: Longint): DWORD; stdcall; 
var 
  theStream: TStream; 
  dataAvail: LongInt; 
begin 
  theStream := TStream(dwCookie); 
  with theStream do 
  begin 
    dataAvail := Size - Position; 
    Result := 0; 
    if dataAvail <= cb then 
    begin 
      pcb := read(pbBuff^, dataAvail); 
      if pcb <> dataAvail then 
        Result := UINT(E_FAIL); 
    end 
    else 
    begin 
      pcb := read(pbBuff^, cb); 
      if pcb <> cb then 
        Result := UINT(E_FAIL); 
    end; 
  end; 
end; 
 
//RxRichEdit 
procedure PutRTFSelection(RichEdit: TRxRichEdit; SourceStream: TStream); 
var 
  EditStream: TEditStream; 
begin 
  with EditStream do 
  begin 
    dwCookie := Longint(SourceStream); 
    dwError := 0; 
    pfnCallback := EditStreamInCallBack; 
  end; 
  RichEdit.Perform(EM_STREAMIN, SF_RTF or SFF_SELECTION, Longint(@EditStream)); 
end; 
 
function BmpToRTF(Pict: TBitmap): string; 
var//RichEdit98 RxRichEdit 
  bi, bb, rtf: string; 
  bis, bbs: Cardinal; 
  achar: ShortString; 
  hexpict: string; 
  I: Integer; 
begin 
  Pict.PixelFormat := pf8bit; // 我这里用256色地图像 
  GetDIBSizes(Pict.Handle, bis, bbs); 
  SetLength(bi, bis); 
  SetLength(bb, bbs); 
  GetDIB(Pict.Handle, Pict.Palette, PChar(bi)^, PChar(bb)^); 
  rtf := '{/rtf1{/pict/dibitmap' + #13#10; //RTF头+个回车 
  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; 
 
//---RxRichedit 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  Temp: TStringStream; 
begin 
  Temp := TStringStream.Create(BmpToRTF(Image1.Picture.Bitmap)); 
  try 
    PutRTFSelection(RxRichEdit1, Temp); 
  finally 
    Temp.Free; 
  end; 
end; 
 
//---Richedit98 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  RichEdit981.RTFSelText := BmpToRTF(Image1.Picture.Bitmap); 
end;