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;