Code aus code-lib (dateien per indy...)

[TheMiller]

Hi,

dieser Code ist aus der Code-Lib benutze

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  fs: TFileStream; 
begin 
  if not OpenDialog1.Execute then exit; //erstmal besorgt man sich den Pfad der Datei, z.B. mit dem Standard Dialog TOpenDialog 
  with IdTCPClient1 do 
  begin 
    fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite); //Datei in FileStream einlesen 
    Connect;  //und Verbindung herstellen 
    try 
      OpenWriteBuffer; //stellt sicher, dass alle Daten versendet werden 
      try 
        WriteStream(fs, true, true, 0); <---------ZU VIELE PARAMETER (die Null ist ang. zu viel) 
        CloseWriteBuffer; 
      except 
        CancelWriteBuffer; 
        raise; 
      end; 
    finally 
      Disconnect; 
      fs.Free; 
    end; 
  end; 
end; 

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); 
var 
  fs: TFileStream; 
  SizeOfIncomingStream: integer; 
begin 
  if not SaveDialog1.Execute then exit; 
  fs := TFileStream.Create(SaveDialog1.Filename, fmCreate or fmShareExclusive); 
  with AThread.Connection do 
    try 
      SizeOfIncomingStream := ReadInteger; //Größe des Streams empfangen 
      ReadStream(fs, SizeOfIncomingStream); //und übergeben 
    finally 
      Disconnect; 
      fs.Free; 
    end; 
end;

dann kommt bei mir an der oben markierten Stelle die Compilermeldung: Zu viele parameter. Ich denke aber, dass das wichtig ist. Was mache ich falsch?

danke im vorraus