FTP-Server abfrage?

[Jiro]

Jetzt hab ich wieder die gleich Fehlermeldung wie oben...

[Klaus01]

Un wenn Du *.html durch *.* oder *.htm ersetzt?

ftp.list(sl,'*.*',false);

[Jiro]

immer noch das gleiche (die datei existiert jetzt auch)
also text.html


edit:
Warum funktioniert das eigentlich nicht:
if anderes.Checked AND paenefeld.Text = '' then ?

Naja, das rausfinden ob die Datei da ist, ist wichtiger...

[Klaus01]

Hallo,

der untenstehen Code funktioniert bei mir ohne Probleme.
Die Datei existiert nicht, es gibt keine Exception wie die Deine.

Ich habe mit einem lokalen FTP Server getestet.

Delphi-Quellcode:

 
  idftp1.Host:='192.168.145.130';
  idftp1.Username:='.....';
  idftp1.Password:='.....';
  idftp1.Connect();
  if idftp1.size('test.htm') >= 0 then
    showMessage('da')
  else
    showMessage('nicht da');

Vielleicht kannst DU noch mit passive Mode testen.
 idftp1.Passive Mit einem anderen FTP Client kannst Du Dich zum Server verbinden?

zweite Frage:

if anderes.Checked AND (paenefeld.Text = '') then Grüße
Klaus

[Jiro]

So sieht der Code jetzt aus:

Delphi-Quellcode:

begin
ftp.ChangeDir('/htdocs');
sl := TStringList.create;
ftp.list(sl,'*.*',false);
if sl.indexOf('test.html') >= 0 then
   begin
     showmessage ('funzt');
   end
else
   begin
     showmessage ('funzt nicht');
   end;
sl.free;
 end;

Soll da noch was geändert werden? Also ich hab mit passiv auf true und false probiert. Klappt nicht. Die Daten sind ja richtig, da ich ja connecten kann. Aber wie muss man den Ordner schreiben? Also nach dem Root kommt der Ordner htdocs (da sind die Dateien drin).

[Klaus01]

Der Code schaut o.k.
Ich denke aber das schon etwas beim Verbindungsaufbau fehlschlägt.
Du bis dir sicher das die ftp Host Adresse "res7.worldserver.net" lauten muss
und ftp.res7.worldserver.net?

Wie verbindest Du Dich mit einem anderen FTP-Client auf den Server?
Grüße
Klaus

[Jiro]

Ich hab als Host ja niklas-nelson.de eingegeben, das ist auch beim meinem FTP Client so... und noch ein Problem, was muss ich eingeben, wenn in folgendes machen will
if anderes.Checked AND (paenefeld.Text is NOT = 'paene') AND (paenefeld.Text is NOT = '') then ?

[Klaus01]

if anderes.Checked AND not (paenefeld.Text = 'paene') AND not (paenefeld.Text = '') then oder
if anderes.Checked AND (paenefeld.Text <> 'paene') AND (paenefeld.Text <> '') then zum FTP Problem habe ich dir ein PN geschickt.

Grüße
Klaus

[Jiro]

Es funktioniert. Danke

[Klaus01]

...und, woran lag es denn?

Grüße
Klaus