FiveTech Software tech support forums

Code: Select all | Expand

   IF Len( aFiles ) > 0 

      oUrl              := tUrl():New( cUrl )

      oFTP              := tIPClientFtp():New( oUrl, .T. )

      oFTP:Open(cUrl)  

      cMyPath:="\teste"

      oFTP:CWD( cMyPath ) // Enrico, Do not change the directory...

      oFTP:nConnTimeout := 20000 
      oFTP:bUsePasv     := .T.

      IF oFTP:Open()=.f.

         usooff="S"

         MsgStop( "Nao conectou", "Atencao" )

         RETURN .F.

      endif

      if oFTP:Cwd( cMyPath )=.f.

         MsgStop( "Nao abriu pasta: "+cMyPath, "Atencao" ) // Do not change the directory..

         //oFTP:MKD(cMyPath)  // Cria o diretorio

         //return .f.

      endif

      oFTP:Cwd(cMyPath)  
      oFTP:reset()
 

Code: Select all | Expand

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL cUrl := "ftp://myuser@aruba.it:mypassword@ftp.emagsoftware.it"

    LOCAL oUrl := TUrl():New( cUrl )

    LOCAL oFtp := TIpClientFtp():New( oUrl, .T. )

    oFtp:Open( cUrl )

    ? oFtp:CWD( "/emagsoftware.it" )

    ? oFtp:DownloadFile( "email.gif" )

    oFtp:Close()

    RETURN NIL

Code: Select all | Expand

xHarbour 1.2.3 Intl. (SimpLex) (Build 20141206)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/