UDP » Dateien versenden

[hibbert]

Zitat von storm1988:

Zum Beispiel in diesem Beispiel von ManuMF müsstest du einfach die Procedure "procedure TSendeForm.DateiSendeButtonClick(Sender : TObject);" einfach immer in einer Schleife aufrufen wo bei du dass connect natürlich weglassen müsstest.

mhh das ist für Indy10 und ich habe die standart Indy Kompos die bei D7 mitinstalliert werden. Mir fehlt zb. die Datei IdStreamVCL.dcu


und ich habe dieses hier benutzt um die Bilder zu versenden:

Delphi-Quellcode:

procedure tform1.sendimage;
var
  fs: TFileStream;
begin
  with IdTCPClient1 do
  begin
    idtcpclient1.Host:=edit1.Text;

    fs := TFileStream.Create(fname+'.jpg', fmOpenRead or fmShareDenyWrite); //Datei in FileStream einlesen
idtcpclient1.Connect;
    try
      OpenWriteBuffer; //stellt sicher, dass alle Daten versendet werden
      try
        WriteStream(fs, true, true, 0); {das 2. true ist wichtig!, da es bewirkt, dass die Größe des Streams mittels WriteInteger zuerst verschickt wird}
        CloseWriteBuffer;
      except
        CancelWriteBuffer;
        raise;
      end;
    finally
    //  Disconnect;
      fs.Free;
    end;
  end;
end;

dabei habe ich auch das connect und disconnect weggelassen bzw. das connect vor der procedure ausgeführt. dann wurde das Bild einmal geschickt und danach nicht mehr...

hibbert