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

该【用VB的INET控件进行文件的自动上传下载服务 】是由【司棋夸克】上传分享，文档一共【42】页，该文档可以免费在线阅读，需要了解更多关于【用VB的INET控件进行文件的自动上传下载服务 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。编号:
时间:2021年x月x日
书山有路勤为径,学海无涯苦作舟
页码:
用VB的INET控件进行文件的自动上传下载服务
用VB的INET控件做FTP的上传文件:
sys_time=CDate(Now)
sys_time=Replace(sys_time,":","")
sys_time=Replace(sys_time,"","")
="ll"
="ll"
=icFTP
=""
="27"
,""+""+newName
Inet控件也叫InternetTransfer控件,这个控件封装了http协议以及ftp协议,使用起来非常方便。所以大家经常
编号:
时间:2021年x月x日
书山有路勤为径,学海无涯苦作舟
页码:
使用。然而大家通常使用的只是其部分功能,接下来我们讲一下它的全部详细功能,看过之后你也许会有眼前一亮的感觉。会猛然觉得我们之前懂得的只是皮毛。
InternetTransfer控件实现了两种广泛使用的Internet协议:超文本传送协议(HyperTextTransferProtocol)(也就是HTTP)和文件传送协议(Protocol)(即FTP)。使用InternetTransfer控件可以通过OpenURL或Execute方法连接到任何使用这两个协议的站点并检索文件。
可以做到的大体方向
在应用程序中添加FTP浏览器。
创建自动从公共FTP站点下载文件的应用程序。
分析WorldWideWeb站点中的图形引用,并只下载图形。
提供以自定义格式显示从Web页获得的动态数据。
基本操作
InternetTransfer控件的功能依赖于将要使用的协议。由于所支持的两种协议工作起来不尽相同,所能够进行的操作就依赖于正在使用的协议。例如
编号:
时间:2021年x月x日
书山有路勤为径,学海无涯苦作舟
页码:
,GetHeader方法只能用于HTTP(HTML文档)协议。
然而,有些过程对两个协议是通用的。最基本的,如果要使用任何一个协议,则必须:
将AccessType属性设置为合法的***。
用合法的URL调用OpenURL方法。
用合法的URL和协议支持的命令调用Execute方法。
用GetChunk方法从缓冲区获取数据。
设置AccessType属性:使用***
为了与Internet建立任何形式的连接,必须确定计算机如何连接到Internet上。如果在intranet上,可能需要提供***才能连接到Internet上。
简单地说,***是计算机和Internet之间的媒介。intranet上所有需要连接到Internet上的计算机,都必须通过***。代理行使intranet和Internet之间的防火墙功能,能够阻止非法的最终用户和外部请求,也就保护
编号:
时间:2021年x月x日
书山有路勤为径,学海无涯苦作舟
页码:
了intranet不受破坏。
要查找计算机中的代理设置值,请按照以下步骤执行:
打开控制面板的Internet选项。
在“Internet选项”对话框中,单击“连接”。
在“***”中,确认选中了“通过***连接”复选框。
如果选中了,则单击“设置”。在该对话框中可以找到能够用于多种协议的***的名称。如果没有定义***,请与系统管理员联系,以获得可用的***。
如果希望使用对话框中未列出的***,可将AccessType属性设置为icNamedProxy(2)。然后将Proxy属性设置为***的名称,如下面的代码所示:
="myProxyName"
=icNamedProxy
另一方面,如果希望使用缺省***(由计算机的注册表决定),则可以忽略Proxy属性,而只需将AccessType设置为icUseDefault(0)。
AccessType的设置值在下表中列出:
常数值描述
编号:
时间:2021年x月x日
书山有路勤为径,学海无涯苦作舟
页码:
icUseDefault0(缺省)用作缺省。控件使用注册表中的缺省设置访问Internet。
icDirect1直接连接Internet。该控件可直接连接到Internet。
icNamedProxy2命名的***。指示该控件使用Proxy属性确定的***。
调用OpenURL方法
'名为“Text1”的TextBox控件保存了
'该方法的结果。Internet传输
'控件的名称是“Inet1”。
=("")
作为结果,TextBox控件保存了HTML源码,它看上去应和下图显示的相似:
在这种情况下,缺省操作返回的是URL定位的HTML文档。然而,如果URL被改为指向文本文件,则将获得实际的文件。例如,下面的代码:
=
OpenURL(".")
将获得文件的实际文本,如下所示:
提示在使用OpenURL或Execute方法时,不需要设置Protocol属性。InternetTransfer控件会自动
编号:
时间:2021年x月x日
书山有路勤为径,学海无涯苦作舟
页码:
按URL的协议部分确定的协议来设置。
最后,可以用包含附加数据的URL调用OpenURL方法。例如,很多Web站点提供了搜索数据库的能力。要搜索数据库,则需要在发送的URL中包含搜索条件。例如下面的代码用条件“find=Maui”调用名为“”的搜索引擎。
DimstrURLAsString
strURL=""
=(strURL)
如果搜索引擎找到了符合条件的内容,将合成一个HTML文档并携带适当的信息返回。
用OpenURL方法保存到文件
如果需要将通过OpenURL方法获取的数据保存到文件,可以使用Open、Put和Close语句,如下面的代码所示。该示例先将获得的二进制文件传入Byte数组,然后将该数据保存到磁盘中:
DimstrURLAsString
DimbData()AsByte'数据变量
DimintInteger'可用文件变量
strURL=_
"."
编号:
时间:2021年x月x日
书山有路勤为径,学海无涯苦作舟
页码:
intFile=FreeFile()'将intFile设置为未使用的文件
'OpenURL方法的结果首先传入Byte数组,
'然后将Byte数组保存到磁盘。
bData()=(strURL,icByteArray)
Open"C:\Temp\"ForBinaryAccessWrite_
As#intFile
Put#intFile,,bData()
Close#intFile
可用类似的过程将文本文件写入磁盘中,不同的只是不再需要Byte数组了,数据可以直接保存到文件中:
DimstrURLAsString'URL字符串
DimintInteger'可用文件变量
IntFile=FreeFile()
strURL=""
Open"c:\temp\"ForOutput_
As#IntFile
Write#IntFile,(strURL)
Close#IntFile
编号:
时间:2021年x月x日
书山有路勤为径,学海无涯苦作舟
页码:
同步和异步传输
OpenURL方法以同步方式传输数据。在这里,同步指的是传输操作未完成之前,不能执行其它过程。这样数据传输就必须在执行其它代码之前完成。
而Execute方法以异步方式传输数据。在调用Execute方法时,传输操作与其它过程无关。这样,在调用Execute方法后,在后台接收数据的同时,即可同时执行其它代码。
对InternetTransfer控件的使用者来说这意味着什么?简单地说,用OpenURL方法能够直接得到可保存到磁盘的数据流(如上所述),或者直接在TextBox控件中阅览(如果数据是文本格式的)。从另一方面说,如果用Execute方法获取数据,则必须用StateChanged事件监视该控件的连接状态。当达到适当的状态时,调用GetChunk方法从控件的缓冲区获取数据。下面更详细地讨论这一操作。
在FPT协议中使用Execute方法
Execute方法具有四个参数:url、operation、data和requestHeaders。FTP操作只用到了operation参数和url参数,其中后者是可选的。例如,要从远程计算机中得到一个文件,可用下面的代码:
"",_
":\Temp\"
编号:
时间:2021年x月x日
书山有路勤为径,学海无涯苦作舟
页码:
如果正在用FTP从匿名FTP服务器中获取文件,就应熟悉在服务器目录树中漫游的特定命令,以及将其中文件获取到本地的硬盘中的命令。例如,要用FPT协议改变目录,应使用带有希望改变到的目录路径的“CD”命令。
对绝大多数通用操作,如将文件传入服务器,以及从服务器获取文件,Internet传输控件在Execute方法中使用了(与FTP)相同或相近的命令。例如,下面的代码将“CD”命令作为Execute方法的参数以改变路径:
'txtURL文本框包含了要打开的路径。
'txtRemotePath文本框包含了要改变到的路径。
,"CD"&
注意在Execute方法中使用FTP命令时,没有用到data和requestHeaders参数。所有的操作和它们的参数都在operation参数中作为字符串进行传递;参数之间用空格进行分隔。在下面的描述中,不要把“file1”和“file2”项与data和requestHeaders参数搞混。
FTP操作的语法是:
operationNamefile1file2
例如,要获取文件,在下面的代码中包含了操作的名称(“获取”),以及该操作所需的两个文件名:
编号:
时间:2021年x月x日
书山有路勤为径,学海无涯苦作舟
页码:
'得到名为“”的文件,并将其复制到
'C:\Temp\。
,_
":\Temp\"
下表列出了该控件支持的FTP命令:
操作描述示例
CDfile1改变目录。改变到由file1指定的目录中。Execute,"CDdocs\mydocs"
CDUP改变到父目录。功能与“CD..”相同。Execute,"CDUP"
DELETEfile1删除由file1指定的文件。Execute,""
DIR[file1]在由file1指定的目录中查找。如果没有指定file1目录,则查找当前工作目录。使用GetChunk方法返回数据。Execute,"DIR/mydocs"
GETfile1file2获取由file1指定的远程文件,并创建由file2指定的新的本地文件。Execute,_
":\"