当前, 有许多构造模块可以帮助用户创建名为超客户端(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="myresult.myhost.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.microsoft.com/indev/default.htm set
Nav=CreatObject("netscape.netork") result=Nav.Open(url,urlGet,",",0,"
")
如果自动化对象的属性IsFinished设置为True,就可以通过对象缓冲区仔细处理页面中的内容.
[VB.NET程序]GSM短信模块库函数,可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA [办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例 [办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要 [Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值… [办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解
|