Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

#pragma Library( "ASINet10.lib" )
#include "UserData.ch"                 // MY_SERVER, MY_USER, MY_PW werden hier defined
#define TAB  chr(9)
#define CRLF chr(13)+chr(10)

PROCEDURE Main
   LOCAL cFtpServer := MY_SERVER
   LOCAL cUserName  := MY_USER
   LOCAL cPassword  := MY_PW
   LOCAL oFtp, cContents
   oFtp := FTPClient():new( cFtpServer, cUserName, cPassWord )
   IF .NOT. oFtp:connect()
      msgbox("Zugriff verweigert !"+CRLF+;
             "cFtpServer:"+TAB+"'"+cFtpServer+"'"+CRLF+;
             "cUserName:"+TAB+ "'"+cUserName+"'"+CRLF+;
             "cPassword:"+TAB+ "'"+cPassword+"'", "HB FTP Test")
   ELSE
      msgbox("Zugriff OK !", "HB FTP Test")
      // hier kommt der Rest
      oFtp:disconnect()
   ENDIF
RETURN

Code: Alles auswählen

#pragma Library( "XBFTP.LIB" )
#include "XbFtp.ch"
#include "UserData.ch"

*  METHODS:
*        :init( cAddress, cUserId, cPassword, cProxy, nPort )
*        :Open()                 // :connect() bei Asinet
*        :close()                - this also accepts a parameter - do not use it!
*                                  the parameter is entirely for internal use only
*        :destroy()              - a convenient way to properly close a connection
*        :getCurrentDirectory()
*        :setCurrentDirectory(cDirectry)
*        :createDirectory(cDirectry)
*        :deleteDirectory(cDirectry)
*        :deleteFile(cFile)
*        :renameFile(cFile, cNewName)
*        :getFile(cRemoteFile, cLocalFile, lOverWrite, fAttr, nTransferMode)
*        :putFile(cLocalFile, cRemoteFile, nTransferMode)
*        :directory(lSorted, cSpec)
#define TAB  chr(9)
#define CRLF chr(13)+chr(10)

PROCEDURE Main
   LOCAL cFtpServer := MY_SERVER
   LOCAL cUserName  := MY_USER
   LOCAL cPassword  := MY_PW
   LOCAL oFtp, cContents
   oFtp := XbFTP():new( cFtpServer, cUserName, cPassWord )
   IF .NOT. oFtp:open()
      msgbox("Zugriff verweigert !"+CRLF+;
             "cFtpServer:"+TAB+"'"+cFtpServer+"'"+CRLF+;
             "cUserName:"+TAB+ "'"+cUserName+"'"+CRLF+;
             "cPassword:"+TAB+ "'"+cPassword+"'", "HB FTP Test")
   ELSE
      msgbox("Zugriff OK !", "HB FTP Test")
      // hier kommt der Rest
      oFtp:close()
   ENDIF
RETURN