Ich konnte es jetzt wie folgt lösen:
Delphi-Quellcode:
procedure TForm2.SaveRTFTextToBlobField();
var
aMS : TMemoryStream;
begin
aMS := TMemoryStream.Create;
rte.PlainText := False;
rte.Lines.SaveToStream(aMS);
ADOCommand1.Parameters.ParamByName('pText').LoadFromStream(aMS, ftMemo);
ADOCommand1.Execute;
end;
procedure TForm2.GetRTFTextFromBlobField();
var
aMS : TMemoryStream;
begin
ADODataSet1.Active := False;
ADODataSet1.Active := True;
aMS := TMemoryStream.Create;
// ADODataSet1.Last;
ADODataSet1rtf.SaveToStream(aMS);
aMS.Position := 0;
rte.PlainText := False;
rte.Lines.LoadFromStream(aMS);
end;
Allerdings fiel mir kurz darauf auf, dass es ja eine DBRichEdit Komponente gibt
