Blob direkt in File schreiben

[Sharky]

Zitat von day:

... Aber leider wird diese Funktion bei TStream nicht angeboten.

Und was ist wenn Du S gleich als TMemoryStream definierst?

Delphi-Quellcode:

var S: TMemoryStream; 
begin 
  S := TMemoryStream.create; 
  try 
    S := Table1.CreateBlobStream(Table1.FieldByName('TEXTMODULE'), bmRead); 
    S.SaveToFile ();
  finally 
    S.Free;
  end;
end;