Code: Select all
@REQUIRE "hurl"
Function p_ReadFunc(len)
If rlen + len > flen Then len = flen - rlen
If len > 0
rlen = rlen + len
Return(ReadBytes(1, len))
Else
Return("")
EndIf
EndFunction
usr$ = StringRequest("", "User?")
pwd$ = StringRequest("", "Password?")
f$ = FileRequest("Select file")
OpenFile(1, f$)
flen = FileLength(1)
e = hurl.easy({url = "ftp://myserver.com/destdir/" .. FilePart(f$), username = usr$, password = pwd$, readfunction = p_ReadFunc, upload = 1, infilesize = flen})
e:perform()
e:close()
CloseFile(1)