Übertragung Txt-file an ftp ... denkfehler!!!???

[DataCool]

Hi,

hier ein kleines Beispiel was alle Deine Fragen beantworten sollte :

Code:

procedure TForm1.cmdGoClick(Sender: TObject);
begin
  // Sicher gehen, das neu connected wird
  IdFTP1.Disconnect;
  // Verbindungsdaten setzen
  IdFTP1.Host := 'www.telwell.de';
  IdFTP1.Passive := false; // = true für passiven FTP-Transfer
  IdFTP1.Username := 'testuser';
  IdFTP1.Password := 'testpwd';
  // Alle Verbindungsdaten vorhanden jetzt versuchen zu verbinden
  try
    IdFTP1.Connect(true,5000); // Es wird 5 Sek. auf die FTP-Verbindung gewartet
    if IdFTP1.Connected then begin
      // sind wir schon im richtigen Verzeichis des Servers ? Hängt von den Userrechten auf dem SErver ab
      // wenn nötig Verzeichnis wechseln
      IdFTP1.ChangeDir('test');
      // Wie soll die Datei übertragen werden ? im AScii Format oder Binear
      // IdFTP1.TransferType := ftASCII; bei Textdateien verwenden
      IdFTP1.TransferType := ftBinary;
      // Datei jetzt hochladen
      IdFtp1.Put('C:\Autoexec.bat','AufDemServer.bat');
      // Eine Datei downloaden mit get !!
    end;
  except
    raise;  // Exception warum die Verbing fehlschlug ausgeben
  end;
end;

Außerdem ist noch wichtig, das Du die Komponente IdAntifreeze Komponente aus dem Register Indy-Misc auf die Form setzt, dabei bei längeren Operationen die Form nicht einfriert.

Gruß

Data