基于vb环境WINDOWS API的ftp上传下载服务的实现文档格式.docx

1、 （ByVal hFtpSession As Long, ByVal lpszFileName As String） As Boolean Public Declare Function FtpRenameFile Lib FtpRenameFileA （ByVal hFtpSession As Long, ByVal lpszExsiting As String, ByVal lpszNew As String） As BooleanPublic Declare Function InternetCloseHandle Lib （ByVal hInet As Long） As Integer

2、Public Declare Function FtpFindFirstFile Lib FtpFindFirstFileA （ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _ lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _ ByVal dwContent As Long） As LongPublic Declare Function InternetFindNextFile Lib InternetFindNextFileA（ByVal hFind

3、As Long, lpvFndData As WIN32_FIND_DATA） As LongPublic Type FILETIME dwLowDateTime As Long dwHighDateTime As LongEnd TypePublic Type WIN32_FIND_DATA dwFilAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long d

4、wReserved0 As Long dwReserved1 As Long cFileName As String * 260 cAlternate As String * 14Public Declare Function GetOpenFileName Lib comdlg32.dll Alias _ GetOpenFileNameA （pOpenfilename As OPENFILENAME） As LongType OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As

5、String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCust

6、Data As Long lpfnHook As Long lpTemplateName As StringPrivate Sub Command1_Click（）lnginet = InternetOpen（vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _ vbNullString, vbNullString, 0&）If lnginet Then lnginetconn = InternetConnect（lnginet, ip地址, 0, _用户名, 密码, 1, 0, 0） If lnginetconn Then blnRC = FtpGetF

7、ile（lnginetconn, website/address.aspc:address.asp, 0, 0, 1, 0） If blnRC Then MsgBox download ok! End If InternetCloseHandle lnginetconn InternetCloseHandle lnginetclose ok! Elsecant connectElseftp wrongEnd IfEnd SubPrivate Sub Command2_Click（）Dim pData As WIN32_FIND_DATADim lngHINet As LongDim intEr

8、ror As IntegerDim strTemp As StringDim blnRC As BooleanpData.cFileName = String（260, 0）IP地址 lngHINet = FtpFindFirstFile（lnginetconn, *.*, pData, 0, 0） strTemp = Left（pData.cFileName, InStr（1, pData.cFileName, String（1, 0）, vbBinaryCompare） - 1） Do pData.cFileName = String（260, 0） blnRC = InternetFin

9、dNextFile（lngHINet, pData） If Not blnRC Then Exit Do Loop Text1.Text = strTemp InternetCloseHandle lngHINet在FTP中，Put、Rename、 Delete是怎样的？这些函数也相当简单。首先来看看Put 函数。基本步骤是：1、调用InternetOpen函数设置环境。2、调用InternetConnect 函数连接主机。3、调用FtpPutFile 函数得到文件。4、用InternetCloseHandle 函数关闭第1、2步的句柄。当使用FtpGetFile 时与上面的步骤看起来完全一样

10、。事实上唯一的区别是在第3步中调用了FtpPutFile 。VB特定调用这一函数的声明是：Private Declare Function FtpPutFile Lib _ （ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _ ByVal dwContext As Long） As Boolean 第一个参数hFtpSession 是InternetConnect 调用返回的句柄值。lpszNewFile 和lps

11、zRemoteFile 分别是本地机上的文件名和将在远程主机上创建的文件名。参数dwFlags 指定为1时，用ASCII 传输文件（A类传输方法），指定为2是用二进制传输文件（1类传输方法）。由于DIRMAP.TXT 是ASCII 文本文件，我们传递值1。最后，当使用回叫信号时，lContext 用来识别应用程序前后关系。因为在我们的例子中不使用回叫信号，所以这个值为0。以下是得到DIRMAP.TXT文件并将其存在 C:DIRMAP.TXT的调用。blnRC = FtpPutFile（lngINetConn, 揷:dirmap.txt? 揹irmap.txt? 1, 0） 如果函数调用成功，b

12、lnRC为 True, 反之为False。你可以看到，把文件放到FTP服务器上与从FTP服务器上得到文件一样简单。有一点要注意，匿名用户无权在FTP服务器上创建文件。所以要确定用来与FTP服务器连接的用户帐号要有创建文件的权限。不然的话，FtpPutFile函数调用就会返回False，说明Put 失败了。现在我们用FtpDeleteFile 函数删除一个名为Test.txt的文件。同样只有第三步中的函数调用发生了改变。Private Declare Function FtpDeleteFile Lib （ByVal hFtpSession As Long, ByVal lpszFileName

13、 As String） As Boolean lpszFileName 是FTP服务器上要删除的文件。下面是在FTP服务器上删除TEST.TXT 文件的调用：blnRC = FtpDeleteFile（lngINetConn, Test.txt） 要注意什么？几乎所有的FTP函数都一样：设置环境，连接主机，执行FTP任务，清除。但是也有例外。如何得到一个路径列表或者得到文件之前读文件的内容？这些类型的FTP任务只是有一点点复杂。首先看看路径列表问题。列举路径的基本步骤也是一样的。首先还是要设置环境，连接FTP服务器。结束之后还是要清楚连接和句柄。为了实际得到路径内容，需要使用两个新函数：Ftp

14、FindFirstFile 和InternetFindNextFile。Private Declare Function FtpFindFirstFile Lib （ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _ lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _ ByVal dwContent As Long） As Long lpszSearchFile 是FTP服务器上的路径或文件名。如果你指定了一个空字符，就使用当前路径。另外还可以指定通配符。例

15、如，要列出以ms开始的根目录下的路径内容，就使用ms*? 。lpFindFileData 与我们使用的其它参数有一点不同。数据类型WIN32_FIND_DATA 是用户定义类型，保存关于路径下的文件的信息。类型看起来是这样的：Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwRese

16、rved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type 注意，有许多参数有不同的用户定义数据类型：FILETIME。下面是它们的类型定义：Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long 在我们的例子中，只使用dwFileAttributes的内容，其中包含文件的属性，还有cFileName，其中包含文件名。最后，我们的例子不使用dwFlags 和 dsContext

17、，所以每个都传递0。下面在当前路径下开始路径列举的调用：lngHINet = FtpFindFirstFile（lngINetConn, , pData, 0, 0） 如果函数失败，就返回0。否则，用来继续进行路径列举的lngHInet 是一个有效句柄。另外，第一个文件名和属性储存在pData 参数中。一旦调用了FtpFindFirstFile 并返回一个有效句柄，我们要调用InternetFindNextFile 函数除非它返回错误值18表示没有可以列举的文件。对InternetFindNextFile的VB特定声明是：Private Declare Function InternetFin

18、dNextFile Lib （ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA） As Long 第一个参数，hFind 是 FtpFindFirstFile 调用所返回的句柄。lpvFindData 是同样的用户定义类型，用在FtpFindFirstFile 调用中存储文件信息。下面是在路径中得到下一个文件的调用：blnRC = InternetFindNextFile（lngHINet, pData） 如果调用成功，blnRC 返回 True，否则 blnRC 为False。Err对象的LastDllError返回18表明再没有文件存在

19、了。现在再回来看看基本的四步：第1步和第2步（设置环境和连接服务器）应该已经完成。以下列出的第三步。最后一步，第四步，就清除环境和连接句柄，跟前面一样：Dim pData As WIN32_FIND_DATA Dim lngHINet As Long Dim intError As Integer Dim strTemp As String Dim blnRC As Boolean init the filename buffer pData.cFileName = String（260, 0） get the first file in the directory. lngHINet = F

20、tpFindFirstFile（mlngINetConn, howd we do?If lngHINet = 0 Then get the error from the findfirst call intError = Err.LastDllError is the directory empty?If intError ERROR_NO_MORE_FILES Then whoa.a real error Error handler?End If Else we got some dir info. get the name strTemp = Left（pData.cFileName, I

21、nStr（1, pData.cFileName, String（1, 0）, vbBinaryCompare） - 1） Do init the filename buffer pData.cFileName = String（260, 0） get the next item blnRC = InternetFindNextFile（lngHINet, pData） howd we do?If Not blnRC Then get the error from the findnext call intError = Err.LastDllError no more items If int

22、Error 18 Then whoa.a real error 卐rror handler?Exit Do Else no more items. Exit Do End If Else get the last item returned strTemp = Left（pData.cFileName, InStr（1, pData.cFileName, String（1, 0）, vbBinaryCompare） - 1） 卻tore the file info someplace?End If Loop close the handle for the dir listing InternetCloseHandle lngHINet End If