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

1、基于vb环境WINDOWS API的ftp上传下载服务的实现基于vb的ftp上传下载服务的实现Option ExplicitPublic Declare Function InternetOpen Lib wininet.dll Alias InternetOpenA _(ByVal sAgent As String, ByVal LAccessType As Long, ByVal sProxyName As String, _ByVal SProxyBypass As String, ByVal lFlags As Long) As LongPublic Declare Function

2、InternetConnect Lib wininet.dll Alias InternetConnectA _(ByVal hInternetSession As Long, ByVal sServerName As String, _ByVal nServerPort As Integer, ByVal sUsername As String, _ByVal sPassword As String, ByVal lService As Long, _ByVal lFlags As Long, ByVal lContext As Long) As LongPublic Declare Fun

3、ction FtpGetFile Lib wininet.dll Alias FtpGetFileA _(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _ByVal dwContext As Long) As BooleanPublic Declare Function FtpPut

4、File Lib wininet.dll Alias FtpPutFileA _(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _ByVal dwContext As Long) As BooleanPublic Declare Function FtpDeleteFile Lib wininet.dll Alias FtpDeleteFileA _ (ByVal hFtpSession As Long, ByVa

5、l lpszFileName As String) As Boolean Public Declare Function FtpRenameFile Lib wininet.dll Alias FtpRenameFileA _ (ByVal hFtpSession As Long, ByVal lpszExsiting As String, ByVal lpszNew As String) As Boolean Public Declare Function InternetCloseHandle Lib wininet.dll (ByVal hInet As Long) As Integer

6、Public Declare Function FtpFindFirstFile Lib wininet.dll Alias FtpFindFirstFileA _ (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _ lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _ ByVal dwContent As Long) As Long Public Declare Function InternetFindNextFile Lib wininet.dll A

7、lias InternetFindNextFileA _(ByVal hFind 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 nFi

8、leSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * 260 cAlternate As String * 14End TypePublic Declare Function GetOpenFileName Lib comdlg32.dll Alias _ GetOpenFileNameA (pOpenfilename As OPENFILENAME) As LongType OPENFILENAME lStructSize As Long hw

9、ndOwner As Long hInstance As Long lpstrFilter As 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 nFil

10、eExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As StringEnd TypePrivate Sub Command1_Click()lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _ vbNullString, vbNullString, 0&)If lnginet Then lnginetconn = InternetConnect(lnginet, ip地址,

11、0, _ 用户名, 密码, 1, 0, 0) If lnginetconn Then blnRC = FtpGetFile(lnginetconn, website/address.asp, c:address.asp, 0, 0, 1, 0) If blnRC Then MsgBox download ok! End If InternetCloseHandle lnginetconn InternetCloseHandle lnginet MsgBox close ok! Else MsgBox cant connect End IfElse MsgBox ftp wrongEnd IfE

12、nd SubPrivate Sub Command2_Click()Dim pData As WIN32_FIND_DATADim lngHINet As LongDim intError As IntegerDim strTemp As StringDim blnRC As BooleanpData.cFileName = String(260, 0)lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _ vbNullString, vbNullString, 0&)If lnginet Then lngine

13、tconn = InternetConnect(lnginet, IP地址, 0, _ 用户名, 密码, 1, 0, 0) If lnginetconn Then 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 = InternetFindNextFile(

14、lngHINet, pData) If Not blnRC Then Exit Do Else strTemp = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1) End If Loop Text1.Text = strTemp End If End If InternetCloseHandle lngHINet InternetCloseHandle lnginetconn InternetCloseHandle lnginetEnd Sub在FTP中，Put、Rename

15、、 Delete是怎样的？这些函数也相当简单。首先来看看Put 函数。 基本步骤是： 1、调用InternetOpen函数设置环境。 2、调用InternetConnect 函数连接主机。 3、调用FtpPutFile 函数得到文件。 4、用InternetCloseHandle 函数关闭第1、2步的句柄。 当使用FtpGetFile 时与上面的步骤看起来完全一样。事实上唯一的区别是在第3步中调用了FtpPutFile 。VB特定调用这一函数的声明是： Private Declare Function FtpPutFile Lib wininet.dll Alias FtpPutFileA _

16、 (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 和lpszRemoteFile 分别是本地机上的文件名和将在远程主机上创建的文件名。 参数dwFlags 指定为1时，用ASCII 传输文件（A类传输方法），指定为2是用二进制传

17、输文件（1类传输方法）。由于DIRMAP.TXT 是ASCII 文本文件，我们传递值1。 最后，当使用回叫信号时，lContext 用来识别应用程序前后关系。因为在我们的例子中不使用回叫信号，所以这个值为0。 以下是得到DIRMAP.TXT文件并将其存在 C:DIRMAP.TXT的调用。 blnRC = FtpPutFile(lngINetConn, 揷:dirmap.txt? 揹irmap.txt? 1, 0) 如果函数调用成功，blnRC为 True, 反之为False。 你可以看到，把文件放到FTP服务器上与从FTP服务器上得到文件一样简单。有一点要注意，匿名用户无权在FTP服务器上创建

18、文件。所以要确定用来与FTP服务器连接的用户帐号要有创建文件的权限。不然的话，FtpPutFile函数调用就会返回False，说明Put 失败了。 现在我们用FtpDeleteFile 函数删除一个名为Test.txt的文件。同样只有第三步中的函数调用发生了改变。VB特定调用这一函数的声明是： Private Declare Function FtpDeleteFile Lib wininet.dll Alias FtpDeleteFileA _ (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean 第一个参数

19、hFtpSession 是InternetConnect 调用返回的句柄值。 lpszFileName 是FTP服务器上要删除的文件。 下面是在FTP服务器上删除TEST.TXT 文件的调用： blnRC = FtpDeleteFile(lngINetConn, Test.txt) 如果函数调用成功，blnRC为 True, 反之为False。 要注意什么？ 几乎所有的FTP函数都一样：设置环境，连接主机，执行FTP任务，清除。但是也有例外。如何得到一个路径列表或者得到文件之前读文件的内容？这些类型的FTP任务只是有一点点复杂。首先看看路径列表问题。 列举路径的基本步骤也是一样的。首先还是要设

20、置环境，连接FTP服务器。结束之后还是要清楚连接和句柄。为了实际得到路径内容，需要使用两个新函数：FtpFindFirstFile 和InternetFindNextFile。VB特定调用这一函数的声明是： Private Declare Function FtpFindFirstFile Lib wininet.dll Alias FtpFindFirstFileA _ (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _ lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags A

21、s Long, _ ByVal dwContent As Long) As Long 第一个参数hFtpSession 是InternetConnect 调用返回的句柄值。 lpszSearchFile 是FTP服务器上的路径或文件名。如果你指定了一个空字符，就使用当前路径。另外还可以指定通配符。例如，要列出以ms开始的根目录下的路径内容，就使用ms*? 。 lpFindFileData 与我们使用的其它参数有一点不同。数据类型WIN32_FIND_DATA 是用户定义类型，保存关于路径下的文件的信息。类型看起来是这样的： Private Type WIN32_FIND_DATA dwFile

22、Attributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type 注意，有许多参数有不同的用户定义数据类型：FILETIME。下面是它们的类型定义： Privat

23、e Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type 在我们的例子中，只使用dwFileAttributes的内容，其中包含文件的属性，还有cFileName，其中包含文件名。 最后，我们的例子不使用dwFlags 和 dsContext ，所以每个都传递0。 下面在当前路径下开始路径列举的调用： lngHINet = FtpFindFirstFile(lngINetConn, *.*, pData, 0, 0) 如果函数失败，就返回0。否则，用来继续进行路径列举的lngHInet 是一个有效句柄。另外，第一

24、个文件名和属性储存在pData 参数中。 一旦调用了FtpFindFirstFile 并返回一个有效句柄，我们要调用InternetFindNextFile 函数除非它返回错误值18表示没有可以列举的文件。对InternetFindNextFile的VB特定声明是： Private Declare Function InternetFindNextFile Lib wininet.dll Alias InternetFindNextFileA _ (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long 第一个参数，hFind

25、是 FtpFindFirstFile 调用所返回的句柄。 lpvFindData 是同样的用户定义类型，用在FtpFindFirstFile 调用中存储文件信息。 下面是在路径中得到下一个文件的调用： blnRC = InternetFindNextFile(lngHINet, pData) 如果调用成功，blnRC 返回 True，否则 blnRC 为False。Err对象的LastDllError返回18表明再没有文件存在了。 现在再回来看看基本的四步：第1步和第2步（设置环境和连接服务器）应该已经完成。以下列出的第三步。最后一步，第四步，就清除环境和连接句柄，跟前面一样： Dim pDa

26、ta 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 = FtpFindFirstFile(mlngINetConn, *.*, pData, 0, 0) howd we do? If lngHINet = 0 Then ge

27、t 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, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1) D

28、o 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 intError 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