当前, 有许多构造模块可以帮助用户创建名为超客户端(rich client)的Internet应用其中包括Visual Basic(以下简称VB)的ActiveX 控件集合。它们可以提供SMTP和POP邮件服务、FTP、Newsgroup和Web访问等功能。另外,利用OLE也可以实现Web访问的自动化。本文向大家介绍这两种方法。
在应用中嵌入ActiveX控件
利用Crescent的Internet Toolpak(Internet 工具包)符合HTTP 协议的控件,可以将VB应用连接到Web站点,向站点传送数据,并从站点获取HTML页面。Crescent HTTP控件不能实际显示出下载的HTML页面 ,但能使应用程序以字符串的形式使用页面数据。例如,如果服务器产生一个名叫Myresult.html的HTML文件答复来自客户端的请求,客户端应用能够通过与服务器建立的Crescent Active X连接来获取并下载这个文件。建立连接的代码段如下:
CIHTTP1.HostName="www.cnblogs.com"
CIHTTP1.URL="resul ts\myresult.html"
CHTTP.ParseIncomingData = True
CIHTTP1.Conn ectToServer
一旦ActiveX控件与服务器建立连接,它就会触发HTTPServerConnection事件。这时,应用程序发出命令CIHTTP1.GET,检索RL属性中指定的页面,然后该控件激活FileClosed事件取回指定的页面 。应用程序通过ActveX的属性HTMLPageText WithTags(主页不嵌有 HTML代码时用属性HTMLPageTextWithOutTgs) 读页面文本。代码如下 :
mytext= CIHTTP1. HTMLPageTextWithTags
如果不想用控件下载 整个主页,可以通过控件的PacketReceived事件的Packet参数快速扫 描页面数据。每当控件接受到服务器的数据后都会激活PacketReceived事件。
另外,客户端应用还可以使用HTTP控件提取来自标准浏览器的Web页面数据。例如,ActveX控件在幕后与Web建立连接并下载正在发布的页面,让传统的客户端应用不断接收最新Wb信息,更改原有内容。
为进一步简化处理,在ActiveX控件与Web页面相连之前需设置好属性。Crescent的HTT控件还可以把下载页面的URL地址、图像文件的地址和所有HTML命令文件分别添加到指定的三个列表框中。
用OLE实现Web访问的自动化
除了ActiveX控件以外,还有一种方法可以实现应用程序与Web的交互自动化,这就是OL自动化,即利用OLE Automation建立传统应用, 再通? 览器的OLE Automation服务器接口进行自动Web连接。Netscape Navigator 和Microsoft Internet Explorer 3.0 以上版本都 支持OLE Automation。
Netscape Navigator的OLE Automation接口是专为这一目的而 设计的。例如,通过OL Automation接口让Navigator打开一个Web页面 ,它不会在自身的浏览器窗口中显示这个页面,而是下载该页面的内容 ,复制到服务器对象的数据缓冲区中,让客户端的应用程序去访问这些内容。
例如,假设需要Navigator在Excel中打开一个Web页面,首先必须 使用Excel的"引用"对话框引用Navigator程序目录中的Netscape.TLB 库,然后把Navigator对象作为一个实例,并完成打开页面的功能。代码如下:
Dim Nav as Object, result as Boolean
Dim url as String
Const urlGet =0
Const urlPost=1
url=http://www.cnblogs.com/index.html
set Nav=CreatObject("netscape.netork")
result=Nav.Open(url,urlGet,",",0," ")
如果自动化对象的属性IsFinished设置为True,就可以通过对象缓冲区仔细处理页面中的内容.