用VB创建FTP组件

基本步骤:

1、用一个InternetOpen调用设置环境。

2、调用InternetConnect 函数与主机连接。

3、调用FtpGetFile 达到文件。

4、关闭第1、2步创建的句柄,用InternetCloseHandle 函数。

现在来仔细看看每一步:

1、通过调用InternetOpen 函数设置环境。下面是VB特定调用这一函数的声明:


Private 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 Long



  参数sAgent 用来指定调用WinINet 函数的应用程序或实体。为了达到目的,可以设置FTP控制。



  参数lAccessType 指定我们是直接与某一主机相连还是使用代理服务器相连。如果传递值1,就直接与主机连接。如果传递3,就通过代理服务器。如果传递0,连接时就要基于

HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings下的注册表数值

ProxyEnable、ProxyServer和 ProxyOverride 。



  我们可以使用参数sProxyName和 sProxyBypass,而不是注册设置来提供代理服务器和不使用代理服务器的IP地址和名字。列出代理的基本格式是rotocol=protocol://proxy_name:access_port?。例如,要指定Proxy1 上的端口21为代理服务器,用Ftp=ftp://Proxy1:21?作为sProxyName。要饶过以ov? 开始的任何主机,sProxyBypass 字符串应为ov*? 。



  最后,lFlags 用来显示影响函数结果的不同选择。在我们的例子中,我们传递0。

  所以,不使用代理而打开一个Internet session 时,我们的调用是这样的:

lngINet = InternetOpen(“FTP Control”, 1, vbNullString, vbNullString, 0)

  如果函数调用失败,lngINet 为0。不然,lngINet 就保存在下一步中将要传递给InternetConnect

函数的句柄的值。

2、通过调用InternetConnect 函数与主机连接。VB特定调用这一函数的声明是:

Private Declare Function 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 Long



  第一个参数hInternetSession 是InternetOpen 调用返回的句柄值。

  sServerName 是我们即将连接的FTP服务器的IP地址或主机名。

  nServerPort 指示与哪一个端口连接。在我们的例子中使用的值为0,它指示的是默认的端口21。

  sUsername 和 sPassword 分别传递用户名和口令。

  lService 用来指示使用的服务类型,如HTTP, FTP等。通常传递值为1,表示FTP服务。

  如果将x8000000传递到 lFlags 参数,连接将使用被动FTP语义。或者,在我们的例子中,传递0来使用非被动语义。



  最后,当使用回叫信号时,lContext 用来识别应用程序的前后关系。因为在我们的例子中不使用回叫信号,所以这个值为0。



  现在使用匿名的电子邮件用户名与主机FTP.MICROSOFT.COM 相连接:

lngINetConn = InternetConnect(lngINet, “ftp.microsoft.com”, 0, _

  “anonymous”,”ally@wallyworld.com”, 1, 0, 0)



  如果函数调用失败,则lngINetConn 为0。反之,lngINetConn 就保存在下一步中将传递给FtpGetFile 的句柄的值。



3、现在我们已经实现了连接,然后就需要调用FtpGetFile 。这个函数完成从一个FTP服务器上读取文件并在本地存储时有关的所有管理功能。VB特定调用这一函数的声明是:



Private Declare Function 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 Boolean



  第一个参数hFtpSession 是InternetConnect 调用返回的句柄值。

  lpszRemoteFile和lpszNewFile 分别是FTP服务器上的文件名和将在本地机上创建的文件名。

  fFailIfExists 标志是0(替换本地文件)或1 (如果本地文件已经存在则取消)。

  dwFlagsAndAttributes 用来指定本地文件的文件属性。在我们的例子中忽略,只传递0。

  dwFlags 参数指定为1是用ASCII 传输文件(A类传输方法),指定为2是用二进制传输文件(1类传输方法)。由于DIRMAP.TXT 是ASCII 文本文件,我们传递值1。

  最后,当使用回叫信号时,lContext 用来识别应用程序前后关系。因为在我们的例子中不使用回叫信号,所以这个值为0。

  所以,以下是得到DIRMAP.TXT文件并将其存在 C:/DIRMAP.TXT的调用。如果本地文件已经存在,就覆盖它。

blnRC = FtpGetFile(lngINetConn, “dirmap.txt”,”c:/dirmap.txt”, 0, 0, 1, 0)

  如果函数调用成功,blnRC为 True, 反之为False。

4、现在文件已经被接收,使用InternetCloseHandle 调用来关闭连接和session 句柄。VB特定调用这一函数的声明是:



Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer.



  如同指明的一样,此函数只有一个参数hInet,是要关闭或抛弃的句柄的值。因为InternetConnection 和InternetOpen 中有句柄,就需要调用这个关闭函数两次。另外因为InternetConnection 句柄是由InternetOpen 句柄决定的,关闭他们时的顺序与创建时相反。

  以下是调用函数:

InternetCloseHandle lngINetConn

InternetCloseHandle lngINet


 用这短短的四步就完成了FTP GET。

 

用VB创建FTP组件(put)

基本步骤是:


1、调用InternetOpen函数设置环境。

2、调用InternetConnect 函数连接主机。

3、调用FtpPutFile 函数得到文件。

4、用InternetCloseHandle 函数关闭第1、2步的句柄。



  当使用FtpGetFile 时与上面的步骤看起来完全一样。事实上唯一的区别是在第3步中调用了FtpPutFile 。VB特定调用这一函数的声明是:


Private Declare Function FtpPutFile 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 Boolean



  第一个参数hFtpSession 是InternetConnect 调用返回的句柄值。

  lpszNewFile 和lpszRemoteFile 分别是本地机上的文件名和将在远程主机上创建的文件名。

  参数dwFlags 指定为1时,用ASCII 传输文件(A类传输方法),指定为2是用二进制传输文件(1类传输方法)。由于DIRMAP.TXT 是ASCII 文本文件,我们传递值1。

  最后,当使用回叫信号时,lContext 用来识别τ贸绦蚯昂蠊叵怠R蛭谖颐堑睦又胁皇褂没亟行藕牛哉飧鲋滴?。

  以下是得到DIRMAP.TXT文件并将其存在 C:/DIRMAP.TXT的调用。

blnRC = FtpPutFile(lngINetConn, “c::/dirmap.txt”, “dirmap.txt”, 1, 0)

  如果函数调用成功,blnRC为 True, 反之为False。

  你可以看到,把文件放到FTP服务器上与从FTP服务器上得到文件一样简单。有一点要注意,匿名用户无权在FTP服务器上创建文件。所以要确定用来与FTP服务器连接的用户帐号要有创建文件的权限。不然的话,FtpPutFile函数调用就会返回False,说明Put 失败了。

 

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值