Hallo!
Folgendes Problem: Ich versuche, eine Datei über den Indy-FTP-Client auf einen FTP-Server zu stellen.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| begin
a:=random(9999);
filerenamed := 'blackbox' + inttostr(a) + '.txt';
form2.Memo2.Lines.Add('http://xxxxxxx.ath.cx/blackboxdecoder/' + filerenamed );
idftp1.host := 'xxxxxxx.ath.cx';
idftp1.Username := 'blackbox';
idftp1.Password := 'xxxxxxxxx';
idftp1.Connect(true);
idftp1.ChangeDir('blackboxdecoder');
idftp1.Put(pathregister, filerenamed, true);
idftp1.Disconnect |
"Pathregister" ist hierbei der Pfad auf der Festplatte der Datei, und "Filerenamed" die selbe Datei mit einer zufällig generierten, fünfstelligen Zahl als Endung.
Wenn ich den Code nun ausführe, bekomme ich einen Socket Error:
| Zitat: |
socket error #10060 (Connection timed out) |
Ich kann den FTP-Server allerdings über die DOS-Konsole problemlos ansteuern; die Firewall lässt mein Programm ebenfalls durch.
Irgendwelche Ideen?
Gruß,
- SD
