Problem mit Indy FTP-Client und Vista Firewall

[kuba]

Hallo,

seit Tagen experementiere ich mit dem Indy FTP-Client unter Vista. Das kuriose ist, dass mein Programm mit 2000 oder XP einwandfrei funktioniert. Nur Vista macht Probleme und zwar die Firewall. Bei abgeschalteter Firewall funktioniert die FTP-Übertragung einwandfrei, wenn ich das Programm als "Ausnahme" in der Firewall hinzufüge funktioniert es leider auch nicht. Das kann doch wohl nicht sein, oder ?

Ich erhalte bei Datenübertragung den Fehler #10054 - Socket error

mein Code sieht so aus:

Delphi-Quellcode:

idftp1.Username := Edit1.Text;
   idftp1.Password := Edit2.Text;
   idftp1.Host := Edit4.Text;
   idftp1.Port := StrToInt(Edit3.Text);
   idFtp1.Passive := True;
   idFtp1.Connect;
   if idFTP1.Connected then
   try
   idFtp1.Put('remote.ini','remote.ini',true);
   ListBox1.AddItem('Execute File Command sent ...', nil);
   idFtp1.Quit;
   except
        ListBox1.items.Clear;
        ListBox1.AddItem('Not logged in ...',nil);
   end;
   idFtp1.Disconnect;

Wenn ich die Zeile idFtp1.Put('remote.ini','remote.ini',true); herausnehme funktioniert es, selbstverständlich ohne die gewünschte Datenübertragung. Anscheinend ein Problem mit "Put".
Wie kann ich die Vista-firewall überzeugen dass mein Programm so in Ordnung ist ? Oder ist da wirklich was falsch ?

KUBA

[Bernhard Geyer]

Wie hast du die Ports freigeschaltet. AFAIK benötigst du u.U. für Datenübertragung noch weitere Ports.

[Klaus01]

Zitat:

Zitat von Bernhard Geyer

Wie hast du die Ports freigeschaltet. AFAIK benötigst du u.U. für Datenübertragung noch weitere Ports.

FTP benötigt die Ports 20 und 21.

Grüße
Klaus

[kuba]

Hallo,

habe den Fehler gefunden, mit dieser Zeile gehts:

Delphi-Quellcode:

idFtp1.Passive := false;

kuba