用VB的INET控件进行文件的自动上传下载服务.docx

1、用VB的INET控件进行文件的自动上传下载服务用VB的INET控件进行文件的自动上传下载服务用VB的INET控件进行文件的自动上传下载服务用VB的INET控件做FTP的上传文件： sys_time = CDate(Now) sys_time = Replace(sys_time, :, ) sys_time = Replace(sys_time, , ) Inet1.UserName = ll Inet1.Password = ll Inet1.Protocol = icFTP Inet1.RemoteHost = 10.10.200.21 Inet1.RemotePort = 27 Inet

2、1.Execute , PUT Dial.wav + + newNameInet 控件也叫Internet Transfer 控件，那个控件封装了 协议以及ftp协议，使用起来专门方便。因此大伙儿经常使用。然而大伙儿通常使用的只是其部分功能，接下来我们讲一下它的全部详细功能，看过之后你也许会有眼前一亮的感受。会猛然觉得我们之前明白得的只是皮毛。Internet Transfer 控件实现了两种广泛使用的 Internet 协议：超文本传送协议HyperText Transfer Protocol(也确实是 ) 和文件传送协议 Protocol (即FTP)。使用 Internet Transf

3、er 控件能够通过 OpenURL 或 Execute 方法连接到任何使用这两个协议的站点并检索文件。能够做到的大体方向在应用程序中添加 FTP 扫瞄器。创建自动从公共 FTP 站点下载文件的应用程序。分析 World Wide Web 站点中的图形引用，并只下载图形。提供以自定义格式显示从 Web 页获得的动态数据。差不多操作Internet Transfer 控件的功能依靠于将要使用的协议。由于所支持的两种协议工作起来不尽相同，所能够进行的操作就依靠于正在使用的协议。例如，GetHeader 方法只能用于 HTML 文档协议。然而，有些过程对两个协议是通用的。最差不多的，假如要使用任何一个

4、协议，那么必须：将 AccessType 属性设置为合法的代理服务器。用合法的 URL 调用 OpenURL 方法。用合法的 URL 和协议支持的命令调用 Execute 方法。用 GetChunk 方法从缓冲区猎取数据。设置 AccessType 属性：使用代理服务器为了与 Internet 建立任何形式的连接，必须确定运算机如何连接到 Internet 上。假如在 intranet 上，可能需要提供代理服务器才能连接到 Internet 上。简单地说，代理服务器是运算机和 Internet 之间的媒介。intranet 上所有需要连接到 Internet 上的运算机，都必须通过代理服务器。

5、代理行使 intranet 和 Internet 之间的防火墙功能，能够阻止非法的最终用户和外部要求，也就爱护了 intranet 不受破坏。要查找运算机中的代理设置值，请按照以下步骤执行：打开操纵面板的Internet选项。在Internet选项对话框中，单击连接。在代理服务器中，确认选中了通过代理服务器连接复选框。假如选中了，那么单击设置。在该对话框中能够找到能够用于多种协议的代理服务器的名称。假如没有定义代理服务器，请与系统治理员联系，以获得可用的代理服务器。假如期望使用对话框中未列出的代理服务器，可将 AccessType 属性设置为 icNamedProxy (2)。然后将 Prox

6、y 属性设置为代理服务器的名称，如下面的代码所示：Inet1.Proxy = myProxyNameInet1.AccessType = icNamedProxy另一方面，假如期望使用缺省代理服务器由运算机的注册表决定，那么能够忽略 Proxy 属性，而只需将 AccessType 设置为 icUseDefault (0)。AccessType 的设置值在下表中列出：常数 值 描述icUseDefault 0 缺省用作缺省。控件使用注册表中的缺省设置访问 Internet。icDirect 1 直截了当连接 Internet。该控件可直截了当连接到 Internet。icNamedProxy

7、2 命名的代理服务器。指示该控件使用 Proxy 属性确定的代理服务器。调用 OpenURL 方法名为Text1的 TextBox 控件储存了该方法的结果。Internet 传输控件的名称是Inet1。Text1.Text = Inet1.OpenURL(icrosoft )作为结果，TextBox 控件储存了 HTML 源码，它看上去应和以下图显示的相似：在这种情形下，缺省操作返回的是 URL 定位的 HTML 文档。然而，假如 URL 被改为指向文本文件，那么将获得实际的文件。例如，下面的代码：Text1.Text = Inet1. _OpenURL(.microsoft /disclai

8、mer.txt)将获得文件的实际文本，如下所示：提示 在使用 OpenURL 或 Execute 方法时，不需要设置 Protocol 属性。Internet Transfer 控件会自动按 URL 的协议部分确定的协议来设置。最后，能够用包含附加数据的 URL 调用 OpenURL 方法。例如，专门多 Web 站点提供了搜索数据库的能力。要搜索数据库，那么需要在发送的 URL 中包含搜索条件。例如下面的代码用条件find=Maui调用名为search.exe的搜索引擎。Dim strURL As StringstrURL = Text1.Text = Inet1.OpenURL(strURL

9、)假如搜索引擎找到了符合条件的内容，将合成一个 HTML 文档并携带适当的信息返回。用 OpenURL 方法储存到文件假如需要将通过 OpenURL 方法猎取的数据储存到文件，能够使用 Open、Put 和 Close 语句，如下面的代码所示。该例如先将获得的二进制文件传入 Byte 数组，然后将该数据储存到磁盘中：Dim strURL As StringDim bData() As Byte 数据变量Dim int Integer 可用文件变量strURL = _.microsoft /Softlib/Softlib.e xeintFile = FreeFile() 将 intFile 设置

10、为未使用的文件 OpenURL 方法的结果第一传入 Byte 数组，然后将 Byte 数组储存到磁盘。bData() = Inet1.OpenURL(strURL, icByteArray)Open C:TempSoftlib.e xe For Binary Access Write _As #intFilePut #intFile, , bData()Close #intFile可用类似的过程将文本文件写入磁盘中，不同的只是不再需要 Byte 数组了，数据能够直截了当储存到文件中：Dim strURL As String URL 字符串Dim int Integer 可用文件变量IntFil

11、e = FreeFile()strURL = Open c:tempMSsource.txt For Output _As #IntFileWrite #IntFile, Inet1.OpenURL(strURL)Close #IntFile同步和异步传输OpenURL 方法以同步方式传输数据。在那个地点，同步指的是传输操作未完成之前，不能执行其它过程。如此数据传输就必须在执行其它代码之前完成。而 Execute 方法以异步方式传输数据。在调用 Execute 方法时，传输操作与其它过程无关。如此，在调用 Execute 方法后，在后台接收数据的同时，即可同时执行其它代码。对 Internet

12、 Transfer 控件的使用者来说这意味着什么？简单地说，用 OpenURL 方法能够直截了当得到可储存到磁盘的数据流如上所述，或者直截了当在 TextBox 控件中阅览假如数据是文本格式的。从另一方面说，假如用 Execute 方法猎取数据，那么必须用 StateChanged 事件监视该控件的连接状态。当达到适当的状态时，调用 GetChunk 方法从控件的缓冲区猎取数据。下面更详细地讨论这一操作。在 FPT 协议中使用 Execute 方法Execute 方法具有四个参数：url、operation、data 和 requestHeaders。FTP 操作只用到了 operation

13、参数和 url 参数，其中后者是可选的。例如，要从远程运算机中得到一个文件，可用下面的代码：Inet1.Execute , _GET disclaimer.txt C:TempDisclaimer.txt假如正在用 FTP 从匿名 FTP 服务器中猎取文件，就应熟悉在服务器名目树中漫游的特定命令，以及将其中文件猎取到本地的硬盘中的命令。例如，要用 FPT 协议改变名目，应使用带有期望改变到的名目路径的CD命令。对绝大多数通用操作，如将文件传入服务器，以及从服务器猎取文件，Internet 传输控件在 Execute 方法中使用了与 FTP相同或相近的命令。例如，下面的代码将CD命令作为 Exe

14、cute 方法的参数以改变路径：txtURL 文本框包含了要打开的路径。txtRemotePath 文本框包含了要改变到的路径。Inet1.Execute txtURL.Text, CD & txtRemotePath.Text注意 在 Execute 方法中使用 FTP 命令时，没有用到 data 和 requestHeaders 参数。所有的操作和它们的参数都在 operation 参数中作为字符串进行传递；参数之间用空格进行分隔。在下面的描述中，不要把file1和file2项与 data 和 requestHeaders 参数搞混。FTP 操作的语法是：operationName fil

15、e1 file2例如，要猎取文件，在下面的代码中包含了操作的名称 (猎取)，以及该操作所需的两个文件名：得到名为Disclaimer.txt的文件，并将其复制到 C:TempDisclaimer.txt。Inet1.Execute, _GET Disclaimer.txt C:TempDisclaimer.txt下表列出了该控件支持的 FTP 命令：操作 描述 例如CD file1 改变名目。改变到由 file1 指定的名目中。 Execute , CD docsmydocsCDUP 改变到父名目。功能与CD .相同。 Execute , CDUPDELETE file1 删除由 file1 指定的文件。 Execute , DELETE discard.txtDIR file1 在由 file1 指定的名目中查找。假如没有指定 file1 名目，那么查找当前工作名目。使用 GetChunk 方法返回数据。 Execute , DIR /myd