Hi,
ich denke hier läuft was falsch:
Delphi-Quellcode:
if DSData.FieldByName('doc').IsBlob then
begin
ts := DSData.CreateBlobStream(DSData.FieldByName('doc'), bmRead);
doc := ts;
ts.Free;
end;
doc und ts zeigen hier auf den selben Stream und den gibts du danach frei.