FiveTech Software tech support forums

Code: Select all

     IF !ConectaServerFTP("xxx.sitio.com","user","password",@oFtp)     
        MsgStop("No pudo conectar")
     ENDIF 
     SubeArchivoFtp(cArchivo,"xxx/public/carpeta-destino/destino.xxx",oFtp)
*****************************************
*** Conectar al servidor FTP
FUNCTION ConectaServerFTP(cNomSer,cNomUsr,cClaUsr,oFtp)
LOCAL cServer, cUser, cPassword, oUrl, cUrl
cServer := cNomSer 
cUser := cNomUsr
cPassword := cClaUsr 
cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer
cUser:= strtran(cUser,"@","&at;")
oUrl := tUrl():New( cUrl )
IF At( "@", cUser ) > 0
   oUrl:cUserID := strtran(cUser,"&at;","@")
   oUrl:cPassword := cPassword
ENDIF
oFTP := tIPClientFtp():New( oUrl, .T. )
oFTP:nConnTimeout := 20000
oFTP:bUsePasv := .T.
oFtp:bTrace := {|| .t.}
oFTP:Open( )
IF oFtp <> NIL
   RETURN .T.
ENDIF
RETURN .F.

******************************************************************************


FUNCTION SubeArchivoFtp(cFileOri,cFileDes,oFtp)
oFtp:Dele( cFileDes )
oFtp:UpLoadFile( cFileOri, cFileDes )
RETURN .T.
 

Code: Select all

#define INTERNET_FLAG_PASSIVE       0x08000000  // used for FTP connections  // AD2K


// AD2K (Puerto y Modo Pasivo)
METHOD New( cFTPSite, oInternet, cUserName, cPassword, nPort, lPassiveMode ) CLASS TFTP

   DEFAULT nPort := FTP_PORT
   DEFAULT lPassiveMode := .F.

   ::oInternet = oInternet
   ::cSite     = cFTPSite
   ::cUserName = cUserName
   ::cPassword = cPassword

   if oInternet:hSession != nil
      ::hFTP = InternetConnect( oInternet:hSession, cFTPSite, nPort /*FTP_PORT*/,;
                                ::cUserName, ::cPassword,;
                                INTERNET_SERVICE_FTP, iif(lPassiveMode, INTERNET_FLAG_PASSIVE, 0), 0 )
      if GetLastError() == 0
         aAdd( oInternet:aFTPs, Self )
      else
         ::hFTP := NIL
      endif
   endif

return Self