Zitat:
Dann wirst Du mit 2 Streams arbeiten müssen:
Wie meinst du das? Also folgender massen geht es.
Aber das Problem ist jetzt noch, dass ich das file nicht mehr überschreiben kann. Falls ich es erneut ausgeben möchte.
Code:
procedure TForm1.Button5Click(Sender: TObject);
var S: TStream;
begin
S:=TFileStream.create('test.doc',fmOpenWrite);
try
S:=Table1.CreateBlobStream(Table1.FieldByName('TEXTMODULE'), bmRead);
finally
S.Free
end;
end;