ftp upload

[dR4g0N]

weiß jmd wieso folgendes kleines prog bei button1.click sprich befehl zum uppen einer datei hängen bleibt?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin

IdFTP1.Host := 'ftp.host.de';
IdFTP1.Username := 'user';
IdFTP1.Password := 'pw';
IdFTP1.Connect;
IdFTP1.ChangeDir('/');

IdFTP1.Put('c:\test.txt','test.txt');
IdFTP1.Quit;
IdFTP1.Disconnect;

end;

[core]

Also bei mir gehts so ohne Probleme:

Delphi-Quellcode:

IdFTP1.Host := 'google.de';
IdFTP1.[b]User[/b] := 'google';
IdFTP1.Password := '123';
IdFTP1.Connect;
//IdFTP1.ChangeDir('/');

IdFTP1.Put('c:\test.txt','test.txt');
IdFTP1.Quit;
IdFTP1.Disconnect;

Bei mir heist es nicht IdFTP1.Username sondern IdFTP1.User!

Wichtig:
Wenn du in den Root des Servers uppen willst mach das ChangeDir weg!!!