Author | Topic: XbFtp | |
---|---|---|
Frankie | XbFtp on Mon, 02 May 2011 17:47:39 +0800 Hi All, I've been using XbFtp to upload & download zip files to 3 web servers (1 paid server, 2 free servers) regularly for the pass few years without problem. Recently it fail to work on the paid server but the 2 free servers works fine. So i started to debug XbFtp and found out the cause of the problem in the method below. METHOD XbFTP:findFirst(cSpec) STATIC cTpl default cSpec to "*.*" if !Right(cSpec,1) == Chr(0) cSpec += Chr(0) endif if cTpl == NIL cTpl := DllprepareCall("wininet.dll",DLL_STDCALL,"FtpFindFirstFileA") endif ::pData := ::win32_find_data() ::hFind := DLLExecuteCall( cTpl, ::ftpHandle, cSpec, @::pData, 0, 0 ) return ::hFind <> 0 If i put cSpec as *.* it will works. But if i specified cSpes as a file name ie "ABC.ZAP" it fail. DLLExecuteCall( cTpl, ::ftpHandle, cSpec, @::pData, 0, 0 ) will return 0( not found) if cSpec is a file name. This only occur on the paid server but not the free server. Anyone has any idea? TIA Frankie |