RTF in Firebird via StoredProc

[dataspider]

Hi,

ich hoffe, es hilft dir weiter. Ich mache hier aus einem Stream einen String und zeige den Inhalt des RTF an:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  AStream: TMemoryStream;
  tmp: String;
begin
  AStream := TMemoryStream.Create;
  try
    RichEdit1.Lines.SaveToStream(AStream);
    AStream.Position := 0;
    SetLength(tmp, AStream.Size);
     AStream.Read(tmp[1], AStream.Size);
    // jetzt ist Alles im String tmp!
    MessageDlg(tmp, mtWarning, [mbOK], 0);
  finally
    AStream.Free;
  end;
end;

[EDIT]
als function

Delphi-Quellcode:

function GetRTFString(ARichEdit: TRichEdit): string;
Var
  AStream: TMemoryStream;
begin
  Result := '';
  AStream := TMemoryStream.Create;
  try
    ARichEdit.Lines.SaveToStream(AStream);
    AStream.Position := 0;
    if AStream.Size > 0 then
    begin
      SetLength(Result, AStream.Size);
      AStream.ReadBuffer(Result[1], AStream.Size);
    end;
  finally
    AStream.Free;
  end;
end;

Cu, Frank