XProfan

Jürgen
Strahl

"C:\\Users\uweskarke\Desktop\kurt.txt" instead of "C://Users/uweskarke/Desktop/kurt.txt"

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

02/20/14 ▲

E.T.

something umgestrickt, so can eachone testing (and funzen tut's too yet)

:
Compile Mark Separation

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

Perhaps. not only simply whom View source from the Help copy, separate too above to think: Local and FTP benefit once Backslash and once 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...

02/20/14 ▲

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

Muemmelmann

Hello M.

with the whom BS and Slash I had yesterday already probiert, there the my first supposition was, helped but not. your Info with status FTP power sense, on it lying it too somehow, versteh only not How so it with you working and here nicht….

1
1
4 byte
target: xxxxx 'stimmt so
0

FTP-Message: 425 Cold hardship open data connection to port 49218: No route to host

FTP-Error 425 can on a FTP-Client zurückgegeben go, if the Server none Socket for Datenübertragung open kann…

LG
Uwe

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

Muemmelmann

... it speaks simply not me !!!
Compile Mark Separation

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: 02/21/14
Downloadcounter:  
Download

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

Paul
Glatz

can you The File with a others FTP Program download?

E.T.

can I not understand. with Your last example (on Desktop stored):

test.png	27 kB

Hochgeladen:	02/21/14

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

but not the Desktops ought to rather a directory chosen go, in the one too always Schreibrechte has. this is at Desktop not always given.

PS.:
by me runs it, but the Firewall having itself To word 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

often is the cause for such Error Rolands FTP-functions that Download and Upload often asynchron to that Programmablauf happen. I had the of course already hunderfach notice and Workarounds posted (see iFTP-Diskussionen) but it'll official not enough notice.

07/09/14 ▲