Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: TRichEdit RTF Laden und Speichern in DB

  Alt 24. Mär 2012, 22:53
Ich mache derartiges mir allen möglichen Arten von Daten ständig, allerdings mit MSSQL (IB konnte ich für mich bisher vermeiden), zudem verwende ich keine StringStream und Blobfields.
Hast Du es mal mit Speicherung in ein VarBinary- Feld, so es dort so heißt versucht

Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
 ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
   Richedit1.Lines.SaveToStream(ms);
   ms.Position := 0;
   DS.Edit;
   TBlobField(DS.FieldByName('TEXT')).LoadFromStream(ms);
   DS.Post;
  finally
    ms.Free;
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
 ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
   TBlobField(DS.FieldByName('TEXT')).SaveToStream(ms);
   ms.Position := 0;
   Richedit2.Lines.LoadFromStream(ms);

  finally
    ms.Free;
  end;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat