It's called FTP4W and can be get from http://site.ifrance.com/freewares/zip/ftp4w302.zip. It is freeware.
For me, it satisfied some of the things I miss the most on Asinet's FTP :
1) Possibility
to set asc/binary mode
2) Site
commands
3) Directory
navigation/creation
It has not
been written specifically for XPP but, using DllCall, I could get
it working.
Should
anyone else want a sample, here's my little test program :
# INCLUDE "DLL.CH"
PROC MAIN
LOCAL LNIDENTIF, ;
LNHANDLE, ;
LCANSWER:=SPACE(5000)
WHILE .T.
? LNHANDLE:=DLLLOAD("FTP4W32.DLL")
? DLLCALL(LNHANDLE,DLL_CDECL,"FtpInit",0)
?
DLLCALL(LNHANDLE,DLL_CDECL,"FtpSetSynchronousMode")
? "IS
ASSINC",DLLCALL(LNHANDLE,DLL_CDECL,"FtpIsAsynchronousMode")
?
DLLCALL(LNHANDLE,DLL_CDECL,"FtpLogin","127.0.0.1","tuser","tpassword",0,0)
? DLLCALL(LNHANDLE,DLL_CDECL,"FtpSetType",65)
? "SITE",DLLCALL(LNHANDLE,DLL_CDECL,"FtpQuote","SITE
WHO",@LCANSWER,5000)
? "ANSWER",alltrim(LCANSWER)
?
"TRANSF",DLLCALL(LNHANDLE,DLL_CDECL,"FtpSendFile","C:\TEST\CL52\TEST8.CPC","LIXO",65,0)
? DLLCALL(LNHANDLE,DLL_CDECL,"FtpCloseConnection")
? DLLCALL(LNHANDLE,DLL_CDECL,"FtpRelease")
? DLLUNLOAD(LNHANDLE)
INKEY(0)
END WHILE
RETURN
--
Obrigado/Thanks a Lot,
Jose Adriano Baltieri
Analista de Sistemas/Systems Analyst
CPD - CENTRO / Data Processing Dept
UNIMEP - Universidade Metodista de Piracicaba/
UNIMEP - Methodist University of Piracicaba
PIRACICABA - SP - BRASIL
Fone : 055 0 XX 19 3124-1858 (english spoken)
Fax : 055 0 XX 19 3124-1898 (cx postal 42778)