4

次のように savetostream を使用せずにリッチエディットから RTF データを取得する方法はありますか

strStream := TStringStream.Create('') ;
try
  RichEdit.Lines.SaveToStream(strStream);
  Text := strStream.DataString;
  strStream.CleanupInstance;
finally
  strStream.Free
4

2 に答える 2

5

リッチエディット コントロールから RTF データを取得する唯一の方法はストリームを使用することです。これはEM_STREAMOUT、RTF データを取得する Windows メッセージ ( ) がEditStreamCallback構造体を必要とするためです。 .

したがって、独自のサンプル コードを使用するか、windows メッセージへの呼び出しを実装できますEM_STREAMOUT。

于 2010-09-03T19:13:21.813 に答える
3 
function RichTextToStr(red : TRichEdit) : string;

var   ss : TStringStream;

begin
  ss := TStringStream.Create('');

  try
    red.Lines.SaveToStream(ss);
    Result := ss.DataString;
  finally
    ss.Free;
  end;
end;

procedure CopyRTF(redFrom,redTo : TRichEdit);

var   s : TMemoryStream;

begin
  s := TMemoryStream.Create;

  try
    redFrom.Lines.SaveToStream(s);
    s.Position := 0;
    redTo.Lines.LoadFromStream(s);
  finally
    s.Free;
  end;
end;

パターンからの逸脱がフラストレーションをもたらすことは証明できます....

于 2010-09-30T21:56:18.177 に答える