Delphi XE6，從數據庫加載rtf

Question

如何將字符串轉換為從數據庫讀取的RTF格式？ 讀取時，richedit中將出現帶有標簽的字符串：/ par {ansistring .......

我嘗試使用此代碼，但結果是相同的。

    rtfString:= set1.fieldbyname('corpo_rtf').asansistring;
    stream := TMemoryStream.Create;
    stream.Clear;
    stream.Write(PAnsiChar(rtfString)^, Length(rtfString));
    stream.Position := 0;
    corpo.PlainText := False;
    corpo.Lines.LoadFromStream(stream);
    stream.Free;

Answer 1

如果內存流的內容是有效的RTF，則您的代碼可以正常工作。 嗯，事實並非如此。

您需要更深入地了解內存流的實際內容。 將其寫到擴展名為.rtf的文本文件中。 嘗試使用寫字板加載它。 走着瞧吧。 您應該看到與Delphi應用程序顯示的相同的內容。

那么，這可能在哪里出錯呢？ 一些可能的原因包括：

• 數據庫中的數據不是有效的RTF。
• 有一些不需要的文本轉換正在執行。 我們假設rtfString是AnsiString類型。 是嗎？