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

用VB的INET控件进行文献的自动上传下载服务
用VB的INET控件做FTP的上传文献：
sys_time = CDate(Now)
sys_time = Replace(sys_time, ":", et。
icNamedProxy 2 命名的代理服务器。批示该控件使用 Proxy 属性拟定的代理服务器。
调用 OpenURL 措施
'名为“Text1”的 TextBox 控件保存了
'该措施的成果。Internet 传播
'控件的名称是“Inet1”。
= ("")
作为成果，TextBox 控件保存了 HTML 源码，它看上去应和下图显示的相似：
在这种状况下，缺省操作返回的是 URL 定位的 HTML 文档。然而，如果 URL 被改为指向文本文献，则将获得实际的文献。例如，下面的代码：
= Inet1. _
OpenURL("ftp://")
将获得文献的实际文本，如下所示：
提示 在使用 OpenURL 或 Execute 措施时，不需要设立 Protocol 属性。Internet Transfer 控件会自动按 URL 的合同部分拟定的合同来设立。
最后，可以用涉及附加数据的 URL 调用 OpenURL 措施。例如，诸多 Web 站点提供了搜索数据库的能力。要搜索数据库，则需要在发送的 URL 中涉及搜索条件。例如下面的代码用条件“find=Maui”调用名为“”的搜索引擎。
Dim strURL As String
strURL = ""
= (strURL)
如果搜索引擎找到了符合条件的内容，将合成一种 HTML 文档并携带合适的信息返回。
用 OpenURL 措施保存到文献
如果需要将通过 OpenURL 措施获取的数据保存到文献，可以使用 Open、Put 和 Close 语句，如下面的代码所示。该示例先将获得的二进制文献传入 Byte 数组，然后将该数据保存到磁盘中：
Dim strURL As String
Dim bData() As Byte '数据变量
Dim intFile As Integer '可用文献变量
strURL = _
"ftp:// xe"
intFile = FreeFile() '将 intFile 设立为未使用的文献
' OpenURL 措施的成果一方面传入 Byte 数组，
'然后将 Byte 数组保存到磁盘。
bData() = (strURL, icByteArray)
Open "C:\Temp\ xe" For Binary Access Write _
As #intFile
Put #intFile, , bData()
Close #intFile
可用类似的过程将文本文献写入磁盘中，不同的只是不再需要 Byte 数组了，数据可以直接保存到文献中：
Dim strURL As String 'URL 字符串
Dim intFile As Integer '可用文献变量
IntFile = FreeFile()
strURL = ""
Open "c:\temp\" For Output _
As #IntFile
Write #IntFile, (strURL)
Close #IntFile
同步和异步传播
OpenURL 措施以同步方式传播数据。在这里，同步指的是传播操作未完毕之前，不能执行其他过程。这样数据传播就必须在执行其他代码之前完毕。
而 Execute 措施以异步方式传播数据。在调用 Execute 措施时，传播操作与其他过程无关。这样，在调用 Execute 措施后，在后台接受数据的同步，即可同步执行其他代码。
对 Internet Transfer 控件的使用者来说这意味着什么？简朴地说，用 OpenURL 措施可以直接得到可保存到磁盘的数据流（如上所述），或者直接在 TextBox 控件中阅览（如果数据是文本格式的）。从另一方面说，如果用 Execute 措施获取数据，则必须用 StateChanged 事件监视该控件的连接状态。当达到合适的状态时，调用 GetChunk 措施从控件的缓冲