[Solved]Datasnap: RTF-Text "on the fly" in PlainText konvertieren, wie?

[DeddyH]

Ich habe in meinem Datasnap-Server dem entsprechenden Dataset mit dem Feldeditor ein Feld hinzugefügt (Name PlainText, BlobType ftMemo, FieldKind fkInternalCalc). Im OnCalcFields des Dataset steht momentan dieser Code:

Delphi-Quellcode:

procedure TServerMethods1.TexteTableCalcFields(DataSet: TDataSet);
var
  RE: TRichEdit;
  Stream, PlainStream: TStream;
begin
  RE := TRichEdit.CreateParented(HWND_MESSAGE);
  try
    Stream := DataSet.CreateBlobStream(DataSet.FieldByName('Text'),
      TBlobStreamMode.bmRead);
    try
      Stream.Seek(0, TSeekOrigin.soBeginning);
      RE.PlainText := false;
      RE.Lines.LoadFromStream(Stream);
      RE.PlainText := true;
      PlainStream := TStringStream.Create;
      try
        RE.Lines.SaveToStream(PlainStream);
        PlainStream.Seek(0, TSeekOrigin.soBeginning);
        (DataSet.FieldByName('PlainText') as TBlobField)
          .LoadFromStream(PlainStream);
      finally
        PlainStream.Free;
      end;
    finally
      Stream.Free;
    end;
  finally
    RE.Free;
  end;
end;

Damit ernte ich bei der Ausführung "Datenmenge weder im Editier- noch im Einfügemodus". Füge ich ein Dataset.Edit ein, enthält es keine Daten.

[Sir Rufo]

Irgendwie schwebt mir im Kopf herum, dass ein TBlobField nicht berechnet werden kann.

[DeddyH]

Das wär aber ausgesprochen blöd, dann müsste ich mir was anderes überlegen.

[Dejan Vu]

Wie wäre es mit einem TStringField?

[DeddyH]

Damit geht es, nach kurzer Recherche sind das maximal 8000 Zeichen, das sollte aber genügen.

[mkinzler]

Ein Textblobfeld sollte sich, wenn es kleiner 32KB ist als Textfeld ansprechen lassen.

[bernd2015]

Habe von Nicht-Windows null Ahnung, aber wie wärs mit einem unsichtbaren Memo, in das man den Text des RichEdits rüberkopiert?
Und dann halt wieder zurück?