Problem mit TFileStream und Indy TidStreamVCL

[Dani]

Vielleicht liegt es daran, wie du den Stream auf Serverseite ausließt, versuch mal

Delphi-Quellcode:

// Server 
procedure TEmpfangsForm.TCPReceiverExecute(AContext: TIdContext); 
var FStream : TFileStream; 
    IDS : TidStreamVCL; 
begin 
  FStream := TFileStream.Create(DateiName, fmCreate or fmShareDenyWrite); 
  IDS := TidStreamVCL.Create(FStream, true); 
  try
   AContext.Connection.Socket.ReadStream(IDS); 
   AContext.Connection.Disconnect; 
   IDS.Position := 0;
  // (Weitere Behandlung des File-Streams) 
  finally
   IDS.Free; 
  end;
  // (Weitere Behandlung der Datei)
end;