客户端用Net-Library和SQL SERVER连接
务器,Internet Transfer控件就返回一个错误代码,报告连接失败.把这个属性设为0,就可以一直等待远程服务器的回应.
应答状态错误代码ResponseCode属性
在控件的StateChanged事件中,如果状态码为icError(11),控件就返回一个连接错误的代码存放在ResponseCode属性中.
应答状态错误信息ResponseInfo属性
当发生一个ResponseCode错误码的连接错误时,ResponseInfo属性描述了错误的详细内容.和ResponseCode属性配合,可以在StateChange事件中显示错误信息,例如:
Private sub Inet1_StateChange(ByVal Statecode As Integer)
Dim strMessage As String
Select Case Statecode
Case icError
StrMessage="ErrorCode:"& Inet1.ResponseCode & ":"&Inet1.ResponseInfo
Case Else
……
End Select
MsgBox strMessage
End Sub
11.1.3 Internet Transfer控件的常用方法
OpenURL方法
该方法打开URL参数指定的地址上的文档,并返回这个URL中的文档内容.OpenURL方法以同步方式工作.它返回的文档内容以两种方式存储,一种是字符串,一种是二进制字节流.OpenURL方法返回的具体文档内容取决于目的URL,若目的URL是HTML文档,则它返回HTML源代码(注意,并不是浏览器上看到的内容),例如:
Text1.Text = Inet1.OpenURL( http://www.cctv.com,0)
若目的URL是一个文本文件,则它返回的就是文件的文本,例如:
Text1.Text=Inet1.OpenURL( ftp://198.165.1.0/
d:/a.txt,0)
若目的URL是一个二进制文件(例如.Exe文件),则它返回的就是此文件的二进制字节流,必须把这个字节流保存到文件中,例如:
Sub DownloadFile()
Dim ReturnByteArray() As Byte
'声明一个字符数组用来接受二进制流.
Dim strURL = ftp://ftp.microsoft.com
/software.exe
Dim FileNo As Integer
'声明一个保存文件号的整型数.
FileNo = FreeFile
ReturnByteArray() = Inet1. OpenURL
(strURL,1)
Open "test.exe" For Binary Access
Write As# fileNo
Put #FileNo, ReturnByteArray()
Close #FileNo
End Sub
Execute方法
该方法执行一系列对远程服务器的请求命令,这些命令可以是接收文件,发送文件,甚至是删除远程服务器的目录.它是以异步方法工作的,该方法的语法格式如下:
Inet1.Execute,url, operation, data,
requestHeaders
四个参数都是可选的.它支持两种协议:HTTP和FTP.在HTTP协议下,Execute方法不仅可以上载和下载文件,还可以只传送一个文档的摘要信息而不传送整个文档.参数operation取值及其示例如表11.1所示.
若Execute方法工作在FTP协议下,data参数和requestHeaders参数是不需要的.进行FTP传输,主要是给出operation参数的具体内容. Operation 字符串的格式为:
operation file1, file2
FTP协议提供了大量的FTP命令,表11.2列出了最常用的一些FTP命令.
GetChunk方法
执行Execute命令后,会触发StateChange事件,如果Execute中的操作是Get(下载文件),而且 StateChange 事件中状态(State)变为icResponseCompleted(12)或icResponseReceived(8),那么就可以用GetChunk方法传输大块数据.
GetChunk方法的语法格式为:
GetChunk (size[,datatype])
GetChunk方法既可以返回一个字符串,也可以返回一个二进制字节流,取决于返回数据类型datatype的设置:icString(缺省的)和icByteArray.参数size表明数据传输的大小,一般这个值设为1024.如果和服务器的连接很慢或不够稳定,应把这个值设得小一点.如果和服务器的连接很快且很安全,可以把这个值设得大一点.
下面的例子在StateChanged事件中从FTP服务器中取得数据,然后显示在一个名为"txtData"的文本框中.
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData As Variant
Dim strData As String: strData = ""
应答状态错误代码ResponseCode属性
在控件的StateChanged事件中,如果状态码为icError(11),控件就返回一个连接错误的代码存放在ResponseCode属性中.
应答状态错误信息ResponseInfo属性
当发生一个ResponseCode错误码的连接错误时,ResponseInfo属性描述了错误的详细内容.和ResponseCode属性配合,可以在StateChange事件中显示错误信息,例如:
Private sub Inet1_StateChange(ByVal Statecode As Integer)
Dim strMessage As String
Select Case Statecode
Case icError
StrMessage="ErrorCode:"& Inet1.ResponseCode & ":"&Inet1.ResponseInfo
Case Else
……
End Select
MsgBox strMessage
End Sub
11.1.3 Internet Transfer控件的常用方法
OpenURL方法
该方法打开URL参数指定的地址上的文档,并返回这个URL中的文档内容.OpenURL方法以同步方式工作.它返回的文档内容以两种方式存储,一种是字符串,一种是二进制字节流.OpenURL方法返回的具体文档内容取决于目的URL,若目的URL是HTML文档,则它返回HTML源代码(注意,并不是浏览器上看到的内容),例如:
Text1.Text = Inet1.OpenURL( http://www.cctv.com,0)
若目的URL是一个文本文件,则它返回的就是文件的文本,例如:
Text1.Text=Inet1.OpenURL( ftp://198.165.1.0/
d:/a.txt,0)
若目的URL是一个二进制文件(例如.Exe文件),则它返回的就是此文件的二进制字节流,必须把这个字节流保存到文件中,例如:
Sub DownloadFile()
Dim ReturnByteArray() As Byte
'声明一个字符数组用来接受二进制流.
Dim strURL = ftp://ftp.microsoft.com
/software.exe
Dim FileNo As Integer
'声明一个保存文件号的整型数.
FileNo = FreeFile
ReturnByteArray() = Inet1. OpenURL
(strURL,1)
Open "test.exe" For Binary Access
Write As# fileNo
Put #FileNo, ReturnByteArray()
Close #FileNo
End Sub
Execute方法
该方法执行一系列对远程服务器的请求命令,这些命令可以是接收文件,发送文件,甚至是删除远程服务器的目录.它是以异步方法工作的,该方法的语法格式如下:
Inet1.Execute,url, operation, data,
requestHeaders
四个参数都是可选的.它支持两种协议:HTTP和FTP.在HTTP协议下,Execute方法不仅可以上载和下载文件,还可以只传送一个文档的摘要信息而不传送整个文档.参数operation取值及其示例如表11.1所示.
若Execute方法工作在FTP协议下,data参数和requestHeaders参数是不需要的.进行FTP传输,主要是给出operation参数的具体内容. Operation 字符串的格式为:
operation file1, file2
FTP协议提供了大量的FTP命令,表11.2列出了最常用的一些FTP命令.
GetChunk方法
执行Execute命令后,会触发StateChange事件,如果Execute中的操作是Get(下载文件),而且 StateChange 事件中状态(State)变为icResponseCompleted(12)或icResponseReceived(8),那么就可以用GetChunk方法传输大块数据.
GetChunk方法的语法格式为:
GetChunk (size[,datatype])
GetChunk方法既可以返回一个字符串,也可以返回一个二进制字节流,取决于返回数据类型datatype的设置:icString(缺省的)和icByteArray.参数size表明数据传输的大小,一般这个值设为1024.如果和服务器的连接很慢或不够稳定,应把这个值设得小一点.如果和服务器的连接很快且很安全,可以把这个值设得大一点.
下面的例子在StateChanged事件中从FTP服务器中取得数据,然后显示在一个名为"txtData"的文本框中.
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData As Variant
Dim strData As String: strData = ""