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

[CalganX]

Hi,
welche Indy-Version verwendest du? :gruebel: Bei mir - aktuelle Version von der Indy-Website - ist die Anzahl der Parameter korrekt.
Wenn du schreibst IdTCPClient1.WriteStream, dann eine ( machst und wartest, bekommst du eine Liste von den erwarteten Parametern. Was steht denn da?

Chris

[TheMiller]

Zitat:

Zitat von DJ-SPM

WriteStream(fs, true, true, 0); <---------ZU VIELE PARAMETER (die Null ist ang. zu viel)

An der Stelle sagt der Compiler: zu viele Parameter.

Wenn du was anderes wissen wolltest... Ich glaube dann habe ich deine Frage falsch verstanden.

[CalganX]

Hi,
das habe ich schon gelesen, ich wollte wissen, welche Parameter WriteStream bei deiner Indy-Version verlangt... ;) Lies dir noch mal durch, was ich geschrieben habe. *g*

Chris

[TheMiller]

Das steht bei mir da, sobal ich den Code schreibe (als Hint)

Delphi-Quellcode:

WriteStream(AStream:TStream,[const AAll:Boolean = True, [const AWriteByteCount: Boolean = False;])

[CalganX]

Hi,
das wollte ich wissen. ;) Und jetzt grübeln wir mal: ein Parameter vom Typ TStream, einer vom Typ Boolean und einer vom Typ Integer. In deinem Source stehen aber zwei Boolean. ;)
Folglich nimmst du ein true weg. ;)

Aber trotzdem solltest du dir eine etwas aktuellere Version von den Indy's zulegen. *g*

Chris

[edit]*whoah* Was rede ich? :wall: Du nimmst einfach die 0 weg und fertig ist. :wall: Also das True da lassen. ;)[/edit]

[TheMiller]

Also so?

Delphi-Quellcode:

WriteStream(fs, true, 0);

(geht auch nicht)

[CalganX]

Hi,

Zitat:

Zitat von Chakotay1308

[edit]*whoah* Was rede ich? :wall: Du nimmst einfach die 0 weg und fertig ist. :wall: Also das True da lassen. ;)[/edit]

sorry... kam wohl etwas zu spät... :oops:

Chris

[TheMiller]

dann passiert das (siehe Anhang)

[TheMiller]

Schon gut, ich hatte eine nicht gültige IP-Adresse angegeben! :wall:

Danke :witch: