FTP download und entpacken geht nicht!?

[johann.boehme]

hiho ^^
ich möchte eine gepackte Preference-Datei von meinem FTP-Server laden und entpacken, aber irgendwie gehts nicht..
bringt mir immer #PB_FTP_Error
kennt das einer?

Code: Alles auswählen

InitNetwork()
OpenConsole()
PrintN("welche datei soll geladen und entpackt werden?")
datei$=Input()
ftp = OpenFTP(#PB_Any, "************", "*****", "******" )
If CheckFTPConnection(ftp) <> 0
  PrintN("FTP geoeffnet")
  If ReceiveFTPFile(ftp, "datei$", "datei$")
    PrintN("datei geholt")
  Else
    PrintN("datei nicht geholt")
  EndIf
Else
  PrintN("FTP konnte nicht aufgerufen werden")
EndIf

If FTPProgress(ftp) =#PB_FTP_Finished
  PrintN("fertig geladen")
  OpenPack(datei$)
  NextPackFile()
  ClosePack()
EndIf
If FTPProgress(ftp) =#PB_FTP_Error
  PrintN("ein Fehler ist aufgetreten")
EndIf

Input()

[STARGÅTE]

also:

Warum machst du VariableNamen zu Strings ?

Code: Alles auswählen

ReceiveFTPFile(ftp, "datei$", "datei$")

Damit wird immer versucht die Datei datei$ zu laden, die es nicht gbt.

Außerdem wieso ist der FTP-Path der selbe wie dein Speicherort ?
Fallst du Ordner hast würde es ja bei FTP so aussehen:
Ordner/Datei.txt
Beim Speicherord aber so:
Ordner\Datei.txt

Wenn du das änderst teste noch mal dein Code

Es sollte also ehr so aussehen :

Code: Alles auswählen

PrintN("welche datei soll geladen und entpackt werden?") 
datei$=Input() 
PrintN("Speichername der Datei ?") 
savedatei$=Input() 

; ...

  ReceiveFTPFile(ftp, datei$, savedatei$)

[johann.boehme]

hmm, ja das ist es aber nicht...
Der relative speicherort der Datei auf dem server und aufm pc ist der gleiche...

Die Dateien aufm server liegen alle im Root Verzeichnis und das Programm soll sie alle ins Verzeichnis der exedatei laden...

[Bisonte]

Versuche einmal den FTP-Pfad mitsamt dem Dateinamen in der Adresszeile deines Browsers aufzurufen.

Wenn der Browser das Ding runterlädt war der Name wenigstens schonmal richtig.... Gross-, und Kleinschreibung ist wichtig !

Edit:
Aber ich glaub da was von einem Bug gelesen zu haben ... ach da...
http://www.purebasic.fr/german/viewtopi ... iveftpfile