pb调用ftp.doc

powerbuilder 利用wininet,实现FTP上传与下载第一，定义一个结构体global type st_filetime from structureunsignedlong dwLowDateTimeunsignedlong dwHighDateTimeend type-第二，还是定义一个结构体global type st_win32finddata from structureunsignedlong dwFileAttributesst_filetime ftCreationTimest_filetime ftLastAccessTimest_filetime ftLastWriteTimeunsignedlong nFileSizeHighunsignedlong nFileSizeLowunsignedlong dwReserved0unsignedlong dwReserved1character cFileName256character cAlternateFileNameend type-第三，定义一个FTP对象forwardglobal type ue_ftp from nonvisualobjectend typeend forwardshared variablesend variablesglobal type ue_ftp from nonvisualobjectend typeglobal ue_ftp ue_ftptype prototypes/检查连接FUNCTION Long InternetCheckConnection ( String lpszUrl, Long dwFlags, Long dwReserved) LIBRARY wininet.dll ALIAS FOR InternetCheckConnectionA/激活连接FUNCTION Long InternetAttemptConnect ( Long dwReserved) LIBRARY wininet.dll/初始化一个连FUNCTION Long InternetOpen ( String lpszAgent, Long dwAccessType, String lpszProxy, String lpszProxyBypass, Long dwFlags) LIBRARY wininet.dll ALIAS FOR InternetOpenA/连接服务器FUNCTION Long InternetConnect (Long hInternet, String lpszServerName, long nServerPort, String lpszUserName, String lpszPassword, Long dwService, Long dwFlags, REF Long dwContext) LIBRARY WinInet.dll ALIAS FOR InternetConnectA/打开一个URlFUNCTION Long InternetOpenUrl ( Long hInternet, String lpszUrl, String lpszHeaders, Long dwHeadersLength, Long dwFlags, REF Long dwContext) LIBRARY wininet.dll ALIAS FOR InternetOpenUrlA/断开连接FUNCTION Long InternetCloseHandle ( Long hInternet) LIBRARY wininet.dll/向FTP服务器发送指令FUNCTION Boolean FtpCommand (Long hConnect,Boolean lfExpectResponse,Long dwFlags,ref String lpszCommand,Long dwContext,ref Long phFtpCommand) LIBRARY WinInet.dll ALIAS FOR FtpCommandA/ 文件操作函数/ File Operator Function/下载文件-Download FileFUNCTION Boolean FtpGetFile (Long hConnect, String lpszRemoteFile, String lpszNewFile, Boolean fFailIfExists, Long dwFlagsAndAttributes,Long dwFlags, REF Long dwContext) LIBRARY WinInet.dll ALIAS FOR FtpGetFileA/上传文件-Upload fileFUNCTION Boolean FtpPutFile (Long hConnect, String lpszLocalFile, String lpszNewRemoteFile, Long dwFlags, Long dwContext) LIBRARY WinInet.dll ALIAS FOR FtpPutFileA/删除文件-Delete fileFUNCTION Boolean FtpDeleteFile (Long hConnect, String lpszFileName) LIBRARY WinInet.dll ALIAS FOR FtpDeleteFileA/打开文件-Open fileFUNCTION Long FtpOpenFile(Long hConnect,ref String lpszFileName,Long dwAccess,Long dwFlags,ref Long dwContext) LIBRARY WinInet.dll ALIAS FOR FtpOpenFileA/取得文件大小-Get file sizeFUNCTION Long FtpGetFileSize(Long hFile,ref Long lFileSizeHigh) LIBRARY WinInet.dll ALIAS FOR FtpGetFileSizeA/读取文件-Read fileFUNCTION Boolean InternetReadFile ( Long hFile, ref string lpBuffer, Long dwNumberOfBytesToRead, REF Long lpdwNumberOfBytesRead) LIBRARY wininet.dll/ FTP目录操作函数/ Directory Operator Function/取得当前目录FUNCTION Boolean FtpGetCurrentDirectory (Long hConnect, REF String lpszCurrentDirectory, REF Long lpdwCurrentDirectory) LIBRARY WinInet.dll ALIAS FOR FtpGetCurrentDirectoryA/创建一个目录FUNCTION Boolean FtpCreateDirectory(Long hConnect,ref String lDirectory) LIBRARY WinInet.dll ALIAS FOR FtpCreateDirectoryA/文件的信息或者指定文件夹下面第一个文件/文件夹的信息。FUNCTION Long FtpFindFirstFile(Long hConnect,ref String lpszSearchFile,ref st_win32finddata lpFindFileData,long dwFlags,ref Long dwContext) LIBRARY WinInet.dll ALIAS FOR FtpFindFirstFileA/取得目录下一个文件/文件夹的信息FUNCTION Boolean InternetFindNextFile(Long hFirstName,ref st_win32finddata lpFindFileData) LIBRARY wininet.dll ALIAS FOR InternetFindNextFileA/改变当前目录FUNCTIOn BOOLEAN FtpSetCurrentDirectory(Long hConnect,ref String lDirectory) LIBRARY WinInet.dll ALIAS FOR FtpSetCurrentDirectoryA/ 本地目录操作函数/ Directory Operator Function/取得本地目录下一个文件/文件夹的信息FUNCTION Long FindFirstFile(string sFirstName,ref st_win32finddata lpFindFileData) LIBRARY Kernel32.dll ALIAS FOR FindFirstFileAFUNCTION boolean FindNextFile(long sFirstName,ref st_win32finddata lpFindFileData) LIBRARY Kernel32.dll ALIAS FOR FindNextFileAFUNCTION boolean FindClose(long sFirstName) LIBRARY Kernel32.dll ALIAS FOR FindCloseAend prototypestype variables/初始化返回值Long ii_Seesion/连接服务器返回值Long ii_ServerSeesion/当前目录String is_CurrDirectory/ftp server上的指定的文件的信息或者指定文件下面第一个文件/文件夹的信息st_win32finddata it_finddata/当前打开文件返回值long ii_FileSeesion/文件属性值CONSTANT Long FILE_ATTRIBUTE_NORMAL = 0CONSTANT Long FILE_ATTRIBUTE_READONLY =1CONSTANT Long FILE_ATTRIBUTE_HIDDEN =2CONSTANT Long FILE_ATTRIBUTE_SYSTEM =4CONSTANT Long FILE_ATTRIBUTE_VOLUME =8CONSTANT Long FILE_ATTRIBUTE_DIRECTORY =16CONSTANT Long FILE_ATTRIBUTE_ARCHIVE =32CONSTANT Long FILE_ATTRIBUTE_ALIAS =64CONSTANT Long FILE_ATTRIBUTE_COMPRESSED=128CONSTANT Long INTERNET_MAX_PATH_LENGTH =2048CONSTANT Long GENERIC_READ = 2147483648CONSTANT Long GENERIC_Write = 1073741824CONSTANT Long GENERIC_RW = 3221225472/Internet连接标识CONSTANT Long CONNECTION_MODEM = 1CONSTANT Long CONNECTION_LAN = 2CONSTANT Long CONNECTION_PROXY = 4CONSTANT Long CONNECTION_MODEM_BUSY = 8CONSTANT Long INTERNET_FLAG_ASYNC = 268435456CONSTANT Long INTERNET_FLAG_SECURE = 8388608/Internet自动拨号标识CONSTANT Long AUTODIAL_FORCE_ONLINE = 1CONSTANT Long AUTODIAL_FORCE_UNATTENDED = 2CONSTANT Long AUTODIAL_FAILIFSECURITYCHECK = 4/Internet拨号标识CONSTANT Long INTERNET_DIAL_UNATTENDED = 32768/打开Internet标识CONSTANT Long INTERNET_OPEN_TYPE_PRECONFIG = 0CONSTANT Long INTERNET_OPEN_TYPE_DIRECT = 1CONSTANT Long INTERNET_OPEN_TYPE_GATEWAY = 2CONSTANT Long INTERNET_OPEN_TYPE_PROXY = 3/连接端口标识CONSTANT Long INTERNET_INVALID_PORT_NUMBER = 0CONSTANT Long INTERNET_DEFAULT_FTP_PORT = 21CONSTANT Long INTERNET_DEFAULT_GOPHER_PORT = 70CONSTANT Long INTERNET_DEFAULT_HTTP_PORT = 80CONSTANT Long INTERNET_DEFAULT_HTTPS_PORT = 443CONSTANT Long INTERNET_DEFAULT_SOCKS_PORT = 1080/服务/命令类型标识CONSTANT Long INTERNET_SERVICE_FTP = 1CONSTANT Long INTERNET_SERVICE_GOPHER = 2CONSTANT Long INTERNET_SERVICE_HTTP = 3/Internet标识CONSTANT Long INTERNET_FLAG_RELOAD = 2147483648CONSTANT Long INTERNET_FLAG_NO_CACJE_WRITE = 67108864CONSTANT Long INTERNET_FLAG_RAW_DATA = 1073741824CONSTANT Long INTERNET_FLAG_NEED_FILE = 16/ protocol-specific flags:CONSTANT Long INTERNET_FLAG_PASSIVE = 134217728 / used for FTP connections/传输类型标识CONSTANT Long FTP_TRANSFER_TYPE_UNKNOWN = 0CONSTANT Long FTP_TRANSFER_TYPE_ASCII = 1CONSTANT Long FTP_TRANSFER_TYPE_BINARY = 2CONSTANT Long FTP_TRANSFER_TYPE_MASK = 3/错误信息CONSTANT uint ERROR_NO_MORE_FILES = 18CONSTANT uint INTERNET_ERROR_BASE = 12000CONSTANT uint ERROR_INTERNET_OUT_OF_HANDLES = (INTERNET_ERROR_BASE + 1)CONSTANT uint ERROR_INTERNET_TIMEOUT = (INTERNET_ERROR_BASE + 2)CONSTANT uint ERROR_INTERNET_EXTENDED_ERROR = (INTERNET_ERROR_BASE + 3)CONSTANT uint ERROR_INTERNET_INTERNAL_ERROR = (INTERNET_ERROR_BASE + 4)CONSTANT uint ERROR_INTERNET_INVALID_URL = (INTERNET_ERROR_BASE + 5)CONSTANT uint ERROR_INTERNET_UNRECOGNIZED_SCHEME = (INTERNET_ERROR_BASE + 6)CONSTANT uint ERROR_INTERNET_NAME_NOT_RESOLVED = (INTERNET_ERROR_BASE + 7)CONSTANT uint ERROR_INTERNET_PROTOCOL_NOT_FOUND = (INTERNET_ERROR_BASE + 8)CONSTANT uint ERROR_INTERNET_INVALID_OPTION = (INTERNET_ERROR_BASE + 9)CONSTANT uint ERROR_INTERNET_BAD_OPTION_LENGTH = (INTERNET_ERROR_BASE + 10)CONSTANT uint ERROR_INTERNET_OPTION_NOT_SETTABLE = (INTERNET_ERROR_BASE + 11)CONSTANT uint ERROR_INTERNET_SHUTDOWN = (INTERNET_ERROR_BASE + 12)CONSTANT uint ERROR_INTERNET_INCORRECT_USER_NAME = (INTERNET_ERROR_BASE + 13)CONSTANT uint ERROR_INTERNET_INCORRECT_PASSWORD = (INTERNET_ERROR_BASE + 14)CONSTANT uint ERROR_INTERNET_LOGIN_FAILURE = (INTERNET_ERROR_BASE + 15)CONSTANT uint ERROR_INTERNET_INVALID_OPERATION = (INTERNET_ERROR_BASE + 16)CONSTANT uint ERROR_INTERNET_OPERATION_CANCELLED = (INTERNET_ERROR_BASE + 17)CONSTANT uint ERROR_INTERNET_INCORRECT_HANDLE_TYPE = (INTERNET_ERROR_BASE + 18)CONSTANT uint ERROR_INTERNET_INCORRECT_HANDLE_STATE = (INTERNET_ERROR_BASE + 19)CONSTANT uint ERROR_INTERNET_NOT_PROXY_REQUEST = (INTERNET_ERROR_BASE + 20)CONSTANT uint ERROR_INTERNET_REGISTRY_VALUE_NOT_FOUND=(INTERNET_ERROR_BASE + 21)CONSTANT uint ERROR_INTERNET_BAD_REGISTRY_PARAMETER = (INTERNET_ERROR_BASE + 22)CONSTANT uint ERROR_INTERNET_NO_DIRECT_ACCESS = (INTERNET_ERROR_BASE + 23)CONSTANT uint ERROR_INTERNET_NO_CONTEXT = (INTERNET_ERROR_BASE + 24)CONSTANT uint ERROR_INTERNET_NO_CALLBACK = (INTERNET_ERROR_BASE + 25)CONSTANT uint ERROR_INTERNET_REQUEST_PENDING = (INTERNET_ERROR_BASE + 26)CONSTANT uint ERROR_INTERNET_INCORRECT_FORMAT = (INTERNET_ERROR_BASE + 27)CONSTANT uint ERROR_INTERNET_ITEM_NOT_FOUND = (INTERNET_ERROR_BASE + 28)CONSTANT uint ERROR_INTERNET_CANNOT_CONNECT = (INTERNET_ERROR_BASE + 29)CONSTANT uint ERROR_INTERNET_CONNECTION_ABORTED = (INTERNET_ERROR_BASE + 30)CONSTANT uint ERROR_INTERNET_CONNECTION_RESET = (INTERNET_ERROR_BASE + 31)CONSTANT uint ERROR_INTERNET_FORCE_RETRY = (INTERNET_ERROR_BASE + 32)CONSTANT uint ERROR_INTERNET_INVALID_PROXY_REQUEST = (INTERNET_ERROR_BASE + 33)CONSTANT uint ERROR_INTERNET_NEED_UI = (INTERNET_ERROR_BASE + 34)CONSTANT uint ERROR_INTERNET_HANDLE_EXISTS = (INTERNET_ERROR_BASE + 36)CONSTANT uint ERROR_INTERNET_SEC_CERT_DATE_INVALID = (INTERNET_ERROR_BASE + 37)CONSTANT uint ERROR_INTERNET_SEC_CERT_CN_INVALID = (INTERNET_ERROR_BASE + 38)CONSTANT uint ERROR_INTERNET_HTTP_TO_HTTPS_ON_REDIR = (INTERNET_ERROR_BASE + 39)CONSTANT uint ERROR_INTERNET_HTTPS_TO_HTTP_ON_REDIR = (INTERNET_ERROR_BASE + 40)CONSTANT uint ERROR_INTERNET_MIXED_SECURITY = (INTERNET_ERROR_BASE + 41)CONSTANT uint ERROR_INTERNET_CHG_POST_IS_NON_SECURE = (INTERNET_ERROR_BASE + 42)CONSTANT uint ERROR_INTERNET_POST_IS_NON_SECURE = (INTERNET_ERROR_BASE + 43)CONSTANT uint ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED= (INTERNET_ERROR_BASE + 44)CONSTANT uint ERROR_INTERNET_INVALID_CA = (INTERNET_ERROR_BASE + 45)CONSTANT uint ERROR_INTERNET_CLIENT_AUTH_NOT_SETUP = (INTERNET_ERROR_BASE + 46)CONSTANT uint ERROR_INTERNET_ASYNC_THREAD_FAILED = (INTERNET_ERROR_BASE + 47)CONSTANT uint ERROR_INTERNET_REDIRECT_SCHEME_CHANGE = (INTERNET_ERROR_BASE + 48)CONSTANT uint ERROR_INTERNET_DIALOG_PENDING = (INTERNET_ERROR_BASE + 49)CONSTANT uint ERROR_INTERNET_RETRY_DIALOG = (INTERNET_ERROR_BASE + 50)CONSTANT uint ERROR_INTERNET_HTTPS_HTTP_SUBMIT_REDIR= (INTERNET_ERROR_BASE + 52)CONSTANT uint ERROR_INTERNET_INSERT_CDROM = (INTERNET_ERROR_BASE + 53)CONSTANT uint ERROR_FTP_TRANSFER_IN_PROGRESS = (INTERNET_ERROR_BASE + 110)CONSTANT uint ERROR_FTP_DROPPED = (INTERNET_ERROR_BASE + 111)CONSTANT uint ERROR_FTP_NO_PASSIVE_MODE = (INTERNET_ERROR_BASE + 112)CONSTANT uint ERROR_GOPHER_PROTOCOL_ERROR = (INTERNET_ERROR_BASE + 130)CONSTANT uint ERROR_GOPHER_NOT_FILE = (INTERNET_ERROR_BASE + 131)CONSTANT uint ERROR_GOPHER_DATA_ERROR = (INTERNET_ERROR_BASE + 132)CONSTANT uint ERROR_GOPHER_END_OF_DATA = (INTERNET_ERROR_BASE + 133)CONSTANT uint ERROR_GOPHER_INVALID_LOCATOR = (INTERNET_ERROR_BASE + 134)CONSTANT uint ERROR_GOPHER_INCORRECT_LOCATOR_TYPE = (INTERNET_ERROR_BASE + 135)CONSTANT uint ERROR_GOPHER_NOT_GOPHER_PLUS = (INTERNET_ERROR_BASE + 136)CONSTANT uint ERROR_GOPHER_ATTRIBUTE_NOT_FOUND = (INTERNET_ERROR_BASE + 137)CONSTANT uint ERROR_GOPHER_UNKNOWN_LOCATOR = (INTERNET_ERROR_BASE + 138)CONSTANT uint ERROR_HTTP_HEADER_NOT_FOUND = (INTERNET_ERROR_BASE + 150)CONSTANT uint ERROR_HTTP_DOWNLEVEL_SERVER = (INTERNET_ERROR_BASE + 151)CONSTANT uint ERROR_HTTP_INVALID_SERVER_RESPONSE = (INTERNET_ERROR_BASE + 152)CONSTANT uint ERROR_HTTP_INVALID_HEADER = (INTERNET_ERROR_BASE + 153)CONSTANT uint ERROR_HTTP_INVALID_QUERY_REQUEST = (INTERNET_ERROR_BASE + 154)CONSTANT uint ERROR_HTTP_HEADER_ALREADY_EXISTS = (INTERNET_ERROR_BASE + 155)CONSTANT uint ERROR_HTTP_REDIRECT_FAILED = (INTERNET_ERROR_BASE + 156)CONSTANT uint ERROR_HTTP_NOT_REDIRECTED = (INTERNET_ERROR_BASE + 160)CONSTANT uint ERROR_HTTP_COOKIE_NEEDS_CONFIRMATION = (INTERNET_ERROR_BASE + 161)CONSTANT uint ERROR_HTTP_COOKIE_DECLINED = (INTERNET_ERROR_BASE + 162)CONSTANT uint ERROR_HTTP_REDIRECT_NEEDS_CONFIRMATION= (INTERNET_ERROR_BASE + 168)CONSTANT uint ERROR_INTERNET_SECURITY_CHANNEL_ERROR = (INTERNET_ERROR_BASE + 157)CONSTANT uint ERROR_INTERNET_UNABLE_TO_CACHE_FILE = (INTERNET_ERROR_BASE + 158)CONSTANT uint ERROR_INTERNET_TCPIP_NOT_INSTALLED = (INTERNET_ERROR_BASE + 159)CONSTANT uint ERROR_INTERNET_DISCONNECTED = (INTERNET_ERROR_BASE + 163)CONSTANT uint ERROR_INTERNET_SERVER_UNREACHABLE = (INTERNET_ERROR_BASE + 164)CONSTANT uint ERROR_INTERNET_PROXY_SERVER_UNREACHABLE=(INTERNET_ERROR_BASE + 165)CONSTANT uint ERROR_INTERNET_BAD_AUTO_PROXY_SCRIPT = (INTERNET_ERROR_BASE + 166)CONSTANT uint ERROR_INTERNET_UNABLE_TO_DOWNLOAD_SCRIPT=(INTERNET_ERROR_BASE + 167)CONSTANT uint ERROR_INTERNET_SEC_INVALID_CERT = (INTERNET_ERROR_BASE + 169)CONSTANT uint ERROR_INTERNET_SEC_CERT_REVOKED = (INTERNET_ERROR_BASE + 170)CONSTANT uint ERROR_INTERNET_FAILED_DUETOSECURITYCHECK = (INTERNET_ERROR_BASE + 171)CONSTANT uint INTERNET_ERROR_LAST = ERROR_INTERNET_FAILED_DUETOSECURITYCHECKend variablesforward prototypespublic function boolean uf_connect (string servername, string username, string password)public function boolean uf_putfile (string localfile, string remotefile)public subroutine uf_closeconnect ()public function Boolean uf_command ()public function boolean uf_createdirectory (string directoryname)public function boolean uf_init (string applicationname)public function boolean uf_getcurrentdirectory ()public function boolean uf_deletefile (string filename)public function boolean uf_getfile (string remotefilename, string locafilename)public function boolean uf_openfile (string filename)public function long uf_getfilesize ()public function boolean uf_changdirectory (string directoryname)public function boolean uf_ftpfindfirstfile (ref string searchfile, ref long firstfile)public function boolean uf_internetfindnextfile (long firstfile, ref string nextfilename)public function long uf_findfirstfile (ref string ls_filename)public function boolean uf_findnextfile (long firstfile, ref string filename)public function boolean uf_closefile (long filename)end prototypespublic function boolean uf_connect (string servername, string username, string password);long ll_Context = 0ii_ServerSeesion = InternetConnect(ii_Seesion,servername, INTERNET_DEFAULT_FTP_PORT,username,password,INTERNET_SERVICE_FTP,0,ll_Context)if ii_ServerSeesion = 0 then return falseend ifreturn trueend functionpublic function boolean uf_putfile (string localfile, string remotefile);Boolean lb_putfilelong ll_Context = 0lb_putfile = FtpPutFile(ii_ServerSeesion,localfile,remotefile,FTP_TRANSFER_TYPE_ASCII,ll_Context)if not lb_putfile then InternetCloseHandle(ii_ServerSeesion) InternetCloseHandle(ii_Seesion) return falseend ifreturn lb_putfileend functionpublic subroutine uf_closeconnect ();InternetCloseHandle(ii_Seesion)InternetCloseHandle(ii_ServerSeesion)end subroutinepublic function Boolean uf_command ();return falseend functionpublic function boolean uf_createdirectory (string directoryname);boolean lb_retstring ls_CurrentPath = space(255)setnull(ls_CurrentPath)ls_CurrentPath = directorynamelb_ret = FtpCreateDirectory(ii_ServerSeesion,ls_CurrentPath)if not lb_ret then return falseend ifreturn lb_retend functionpublic function boolean uf_init (string applicationname);string pbNullStringsetnull(pbNullString)/打开一个internet连接ii_Seesion = InternetOpen(applicationname, INTERNET_OPEN_TYPE_DIRECT, pbNullString, pbNullString, 0);if ii_Seesion = 0 thenreturn falseend ifreturn trueend functionpublic function boolean uf_getcurrentdirectory ();String ls_CurrentPathLong ll_CurrentDirectoryboolean lb_ftpfilels_CurrentPath = space(255)ll_CurrentDirectory = 255setnull(ls_CurrentPath)lb_ftpfile = FtpGetCurrentDirectory(ii_Seesion,ls_CurrentPath,ll_CurrentDirectory)if not lb_ftpfile then return falseend ifis_CurrDirectory = ls_CurrentPathreturn lb_ftpfileend functionpublic function boolean uf_deletefile (string filename);boolean lb_retstring ls_Filename = space(255)setnull(ls_Filename)ls_Filename = filenamelb_ret = FtpDeleteFile(ii_ServerSeesion,ls_Filename)return lb_retend functionpublic function boolean uf_getfile (string remotefilename, string locafilename);boolean lb_retlong ll_Contextlb_ret = FtpGetFile(ii_ServerSeesion,RemoteFileName,LocaFileName,False,FILE_ATTRIBUTE_NORMAL,0,ll_Context)return lb_retend functionpublic function boolean uf_openfile (string filename);boolean lb_ret = truestring ls_filenamelong ll_contextls_filename = filenameii_FileSeesion = FtpOpenFile(