Hi all,
I always succesfully used the tIpClientFtp xharbour class to manage ftp connections.
Now I updated my xharbour 1.2.1 from rev. 6717 to rev. 9656 provided with FWH Dec 2012 and any ftp connection doesn't runs anymore,
for example, this function I made to delete a remote file require now 20 second instead of the 2-3 with the previous xHarbour version.
Any ideas ? Thanks in advance.
FUNCTION FtpEraseFile(cFtpSite,cFtpUser,cFtpPassword,cFtpFileToDelete)
local cUrl,oFtp,aDirs
local lTrace
lTrace:=.f.
cFtpUser:=charrepl("@",@cFtpUser,"+")
cUrl:="ftp://"+cFtpUser+":"+cFtpPassword+"@"+cFtpSite
oFtp:=tIPClientFtp():New(cUrl,lTrace)
oFtp:nConnTimeout:=60000
if .not. oFtp:open()
msginfo("ftp error "+oFtp:LastErrorMessage())
return(.f.)
endif
oFtp:dele(cFtpFileToDelete)
oFtp:Close()
RETURN .t.
Marco Turco
SOFTWARE XP LLP
