Alaska Software Inc. - XbFtp
Username: Password:
AuthorTopic: 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