ja schon aber wie
???
Code:
var fs: TFileStream;
begin
try
with form1.IdTCPClient1 do
begin
try
try
fs := TFileStream.Create('...pfad...', fmOpenRead or fmShareDenyWrite);
OpenWriteBuffer; //<<-------hier
WriteStream(fs, true, true, 0);
CloseWriteBuffer;
except
CancelWriteBuffer;
raise;
end;
finally
fs.Free;
->OpenWriteBuffer //da gibt es schon probleme weil es den befehl beim server nicht gibt !
