Hallo Hansa,
probier mal, ob du das für deine Zwecke anpassen kannst:
Delphi-Quellcode:
uses
Classes,
DB;
function GetBlobText(mf: TMemoField):
String;
var
s: TStream;
begin
s := mf.DataSet.CreateBlobStream(mf, bmRead);
SetLength(Result, s.Size);
s.ReadBuffer(Result[1], Length(Result));
s.Free;
end;
Grüße vom marabu