Hi, I'm using FWH Dec 2014 with the associated xHarbour version (1.2.3 build 20141106).
I always used tIpClientFtp to transfer files but now with a new server I'm unable to do it.
Please note that using a standard ftp client (example CuteFtp) all runs well and also this self contained sample runs with another server (but with a domain name).
I also checked the tIpClientFtp log sequence but I didn't understand the reason of the problem.
Do you think there are some problem using a direct ip instead of a domain name with tIpClientFtp ?
Anyway this is a small self contained sample that show the problem. Any help really appreciated. Thank you in advance.
include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local nTimeout,lTrace,cFsrv,cFusr,cFpsw,cFile,cUrl,oFtp
nTimeout=6000
lTrace:=.t.
cFsrv:="88.208.208.197"
cFusr:="test"
cFpsw:="password!"
cFile:="testftp.prg"
cFusr:=charrepl("@",@cFusr,"+")
cUrl:="ftp://"+cFusr+":"+cFpsw+"@"+cFsrv
oFtp:=tIPClientFtp():New(cUrl,lTrace)
oFtp:nConnTimeout:=nTimeOut
if .not. oFtp:open()
msginfo("Ftp error "+oFtp:LastErrorMessage())
quit
endif
if .not. oFtp:UploadFile(cFile)
msginfo("ftp error [upload] "+oFtp:LastErrorMessage())
quit
endif
oFtp:Close()
return nil
//----------------------------------------------------------------------------//
Marco Turco
SOFTWARE XP LLP
