[PB 4.20 b1] Evtl. FTP-Bug mit Bitte um Bestätigung

[Kiffi]

Hallo,

ich habe z.Zt. folgendes Phänomen:

Ich melde mich auf einem FTP-Server an und gebe mir mit GetFTPDirectory()
den aktuellen Pfadnamen aus. Danach setze ich den Pfad neu und lasse ihn
mir noch einmal ausgeben.

Code: Alles auswählen

InitNetwork()

FTP = OpenFTP(#PB_Any, "MeinFtpServer", "MeinUsername", "MeinPasswort", 1)

If FTP = 0 : Debug "OpenFTP() failed" : End : EndIf

Debug "1: " + GetFTPDirectory(FTP)                       ; Ausgabe -> '/'
Debug "2: " + Str(SetFTPDirectory(FTP, "MeinNeuerPfad")) ; Ausgabe -> 1
Debug "3: " + GetFTPDirectory(FTP)                       ; Ausgabe -> '/MeinNeuerPfad'

CloseFTP(FTP)

so weit -- so gut. Funktioniert problemlos und ohne Fehler.

Nun lasse ich mir in einem zweiten Code vorher den Inhalt des aktuellen
FTP-Verzeichnisses ausgeben. Jetzt funktioniert jedoch nicht mehr die
Ausgabe des aktuellen Verzeichnisnamens bzw. das Setzen auf einen
neuen Pfad.

Code: Alles auswählen

InitNetwork()

FTP = OpenFTP(#PB_Any, "MeinFtpServer", "MeinUsername", "MeinPasswort", 1)

If FTP = 0 : Debug "OpenFTP() failed" : End : EndIf

If ExamineFTPDirectory(FTP)
  While NextFTPDirectoryEntry(FTP)
    Debug Str(FTPDirectoryEntryType(FTP)) + ": " + FTPDirectoryEntryName(FTP)
  Wend 
  FinishFTPDirectory(FTP)
Else     
  Debug "ExamineFTPDirectory() failed"
EndIf

Debug "1: " + GetFTPDirectory(FTP)                       ; Ausgabe -> ''
Debug "2: " + Str(SetFTPDirectory(FTP, "MeinNeuerPfad")) ; Ausgabe -> 0
Debug "3: " + GetFTPDirectory(FTP)                       ; Ausgabe -> ''

CloseFTP(FTP)

Ist das bei Euch auch so?

Danke im voraus & Grüße ... Kiffi

[H.Brill]

Komisch,
Bei mir funktioniert es bei Bsp. 2:
Ausgaben :

1 : '/'
2 : '1'
3 : '/meinOrdner'

Der Ordner muß alllerdings auch existieren, sonst
bekomme ich auch nichts angezeigt.

[Kiffi]

Komisch,
Bei mir funktioniert es bei Bsp. 2:

mmh, dann muss ich noch ein wenig weiter experimentieren...

Danke für Deine Rückmeldung!

Der Ordner muß alllerdings auch existieren, sonst
bekomme ich auch nichts angezeigt.

ja, das habe ich schon vorausgesetzt

Grüße ... Kiffi

[H.Brill]

Könnte ja nur irgendwie am Server im Internet liegen.
Ich habs jetzt auch nur auf meinem 10 MB Account von
...homepage.t-online.de probiert.

[Kiffi]

Könnte ja nur irgendwie am Server im Internet liegen.

ich habe mal unten einen öffentlichen FTP-Server von Netscape angegeben
und mehrfach gestartet. 9 von 10 Programmstarts verliefen erfolgreich.
Der erste ging schief. Scheint also eher so, als ob es kein PB-Bug ist,
sondern einer, der auch irgendwelche Verbindungsschwierigkeiten
zurückzuführen ist(?)

Code: Alles auswählen

InitNetwork()

FTP = OpenFTP(#PB_Any, "ftp.netscape.com", "anonymous", "", 1)

If FTP = 0 : Debug "OpenFTP() failed" : End : EndIf

If ExamineFTPDirectory(FTP)
  While NextFTPDirectoryEntry(FTP)
    Debug Str(FTPDirectoryEntryType(FTP)) + ": " + FTPDirectoryEntryName(FTP)
  Wend
  FinishFTPDirectory(FTP)
Else     
  Debug "ExamineFTPDirectory() failed"
EndIf

Debug "1: " + GetFTPDirectory(FTP)            
Debug "2: " + Str(SetFTPDirectory(FTP, "pub"))
Debug "3: " + GetFTPDirectory(FTP)            

CloseFTP(FTP)

Grüße ... Kiffi

[tobe]

hi kiffi,

ich hab es auch mal ausprobiert und beim netscape server klappt es meistens erst beim 2ten versuch.
bei meinem serv-u ftp im lan funktionierte es 2 mal bei 10 versuchen, aber laut server.log werden die ftp-kommandos alle ausgeführt.

mfG
Tobe