Via FTP Datei hochladen

[Luckie]

Was ist an meinem nun wirklich einfachen Beispiel so schwierig?

[xXxKoGaxXx]

Ich bekomme das nicht bei mir in die Programmierung, aber hab es jetzt via cmd und batch datei gelöst! (Erstmal)
Wenn jemand das Richtig mir in die Programmierung machen kann wäre besser :D

Gruß

[jfheins]

Der relevante Teil ist übrigens der hier:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.Host := edtServer.Text;
  IdFtp1.Username := edtUser.Text;
  IdFTP1.Password := edtPW.Text;
  IdFTP1.Connect;
  IdFTP1.ChangeDir(edtRemDir.Text);
  IdFTP1.Put(edtFile.Text, ExtractFilename(edtFile.Text));
  IdFTP1.Disconnect;
end;

Aber ein bisschen selber machen wird hier schon von dir verlangt werden ;)

[Luckie]

Ich habe es mal kommentiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Zugangspaaremter setzen
  IdFTP1.Host := edtServer.Text; // Server
  IdFtp1.Username := edtUser.Text;  // Benutzername
  IdFTP1.Password := edtPW.Text;  // Passwort
  // verbinden
  IdFTP1.Connect;
  // in das Verzeichnis wechseln, z.B.: /html/meineDaten/
  IdFTP1.ChangeDir(edtRemDir.Text);
  // Datei hochladen (Quelldatei, Zieldatei)
  IdFTP1.Put(edtFile.Text, ExtractFilename(edtFile.Text));
  // trennen
  IdFTP1.Disconnect;
end;

Wo ist jetzt das Problem?

[xXxKoGaxXx]

Fehler: Undefinierter Bezeichner: 'IdFTP1'

kurz und knapp :D

[jfheins]

Suche in der Komponentenleiste (da wo auch die Eingabefelder und so drin sind) nach einem TIdFTP - ziehe das aufs Formular.

Und bevor die Frage kommt von der ich denke dass sie kommt: Verwende den Code hier:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  // Zugangspaaremter setzen 
  IdFTP1.Host := '<HOST>'; // Server 
  IdFtp1.Username := '<USER>';  // Benutzername 
  IdFTP1.Password := '<PASSWORT>';  // Passwort 
  // verbinden 
  IdFTP1.Connect; 
// Datei hochladen
  IdFTP1.Put('<DATEIPFAD>', '<DATEINAME>'); 
  // trennen 
  IdFTP1.Disconnect; 
end;

Und ersetzte die Sachen in den spitzen Klammern durch die korrekten Angaben ;)

[Luckie]

Zitat:

Zitat von xXxKoGaxXx

Fehler: Undefinierter Bezeichner: 'IdFTP1'

Also die Komponente musst du schon auf dein Formular legen, siehe jheins.

Delphi-Quellcode:

IdFTP1.Put('<QUELLDATEIPFAD+DATEINAME >', '<DATEINAME_WIE_ER_AUF_SERVER_HEISSEN_SOLL>');

Ich habe das Gefühl, als wenn ich einen Blinden durch ein Labyrinth führe. :?

[xXxKoGaxXx]

Da gibt es kein TIdFTP.
Wo konnte man das nochmal Downloaden? ^^

[jfheins]

Welche Delphiversion hast du?

Wenn du das nicht weist: Wie sieht das Icon aus? So ein rundes Etwas oder ne große Zahl?

@Luckie: Ich habe das Gefühl, als würde ich einem Blinden den Weg durchs Labyrinth beschreiben :stupid:

[Luckie]

Was für eine Delphi Version hast du?

http://www.indyproject.org/index.de.aspx

Zitat:

Zitat von jfheins

@Luckie: Ich habe das Gefühl, als würde ich einem Blinden den Weg durchs Labyrinth beschreiben :stupid:

Das trifft es noch besser. ;)

@xXxKoGaxXx: Sorry, wenn wir hier ein bischen rumflachsen.