下载此文档

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


文档分类:IT计算机 | 页数:约40页 举报非法文档有奖
1/40
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/40 下载此文档
文档列表 文档介绍
用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 措施从控件的缓冲

用VB的INET控件进行文件的自动上传下载服务 来自淘豆网www.taodocs.com转载请标明出处.

非法内容举报中心
文档信息