XProfan

Jürgen
Strahl

"C:\\Users\uweskarke\Desktop\kurt.txt" statt "C://Users/uweskarke/Desktop/kurt.txt"

----------------------------------------------------------------------------
---Wer hier Schreibfehler findet, darf sie behalten .---
---Wer keine findet, hat Pech gehabt.----------------------
---------------------------------------------------------------------------

20.02.2014 ▲

E.T.

Etwas umgestrickt, so kann jeder testen (und funzen tut's auch noch)

:
Kompilieren Markieren Separieren

Cls
print FTP("Connect","freeftp","freeftp","ftp.xprofan.com","21")
print FTP("SetBinary",1)' muß hier nicht sein...
print FTP("GetFileSize","kurt.txt"), "Byte"
Var Ziel$ = winpaths() + "\\kurt.txt"
print "Ziel:",Ziel$
print FTP("Download","kurt.txt",Ziel$)
print "FTP-Meldung:",$FTPStatus'Statusmeldung von FTP - immer interessant.
waitinput
print FTP("Disconnect")
End

Proc WinPaths

    Declare Nummer%, Out$
    Nummer% = 16'Desktop des akt. Benutzers
    DEF @GSFP(4) ! "Shell32","SHGetSpecialFolderPathA"
    Out$ = Space$(255)
    GSFP(0,ADDR(Out$),Nummer%,0)
    Return @Trim$(Out$)

EndProc

Vlt. nicht nur einfach den Quelltext aus der Aiuto kopieren, sondern auch darüber nach denken: Local und FTP nutzen einmal Backslash und einmal Slash.

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

20.02.2014 ▲

XProfan X2
Win7 Home Premium, SP1, Core(TM) i5-3427U @ 1.80GHz

Muemmelmann

Hallo M.

das mit den BS und Slash hatte ich gestern schon probiert, da das auch meine erste Vermutung war, half aber nicht. Dein Hinweis mit Status FTP macht Sinn, daran liegt es auch irgendwie, versteh nur nicht wie so es bei dir funzt und hier nicht….

1
1
4 Byte
Ziel: xxxxx 'stimmt so
0

FTP-Meldung: 425 Cold not open data connection to port 49218: No route to host

FTP-Fehler 425 kann auf einen FTP-Client zurückgegeben werden, wenn der Server keinen Socket per die Datenübertragung öffnen kann…

LG
Uwe

XProfan X2
Win7 Home Premium, SP1, Core(TM) i5-3427U @ 1.80GHz

Muemmelmann

... er spricht einfach nicht mit mir !!!
Kompilieren Markieren Separieren

Cls
var ziel$ = getdir$("@")+"\kurt.txt"
print ziel$
print FTP("Connect","freeftp","freeftp","ftp.xprofan.com","21")," FTP-Meldung:",$FTPStatus
print
print FTP("SetBinary",1), " FTP-Meldung:",$FTPStatus
print
print FTP("GetFileSize","kurt.txt"), " FTP-Meldung:",$FTPStatus
print
print FTP("Download","kurt.txt",ziel$), " FTP-Meldung:",$FTPStatus
print
waitinput
print FTP("Disconnect"), " FTP-Meldung:",$FTPStatus
waitinput
bildschirmfoto-2014-02-21-um-17.09.59.png   28 kB
Hochgeladen: 21.02.2014
Downloadcounter:  
Download

XProfan X2
Windows 8 Pro, Core(TM)2 Duo P7450 @ 2.13GHz

Paul
Glatz

Kannst du die File mit einem anderen FTP Programm downloaden?

E.T.

Kann ich nicht nachvollziehen. Mit Deinem letzten Beispiel (auf Desktop gespeichert):

test.png	27 kB

Hochgeladen:	21.02.2014

Downloadcounter:
		Download

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Michael
Wodrich

Statt des Desktops sollte besser ein Verzeichnis gewählt werden, in dem man auch immer Schreibrechte hat. Das ist beim Desktop nicht immer gegeben.

PS.:
Bei mir corre es, aber die Firewall hatte sich zu Wort gemeldet.

XProfan X2
Windows (TM) Vista Ultimate, Core(TM) i7 920 @ 2.67GHz, 9206,26 MB
Programmieren, das spannendste Detektivspiel der Welt.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Oft ist die Ursache per solche Fehler bei Rolands FTP-Funktionen dass Download und Upload oft asynchron zum Programmablauf geschehen. Ich hatte das zwar schon hunderfach bemerkt und Workarounds gepostet (siehe iFTP-Diskussionen) aber es wird offiziell nicht ausreichend bemerkt.

09.07.2014 ▲