Access调用网页功能-版本自动更新-Access经典源码剖析

  经典源码剖析系列 Access调用网页功能-版本自动更新 Office中国-王宇虹

1 应用场景

1.1 软件中自动翻译

1.1.1 外贸

1.2 软件界面多语言自动生成语言包

1.3 提供自动翻译服务

1.4 具体软件

1.4.1 软件版本更新的提示

1.4.1.1  从网站获取软件的最新版本号

1.4.1.1.1 首先在网页放置TXT文件存放版本号

1.4.1.2  与本地软件的版本进行对比

1.4.1.2.1 本地软件的当前版本号存放

INI

存放MDB里的一个表字段

1.4.1.2.2 如果有新版本，就提示更新

自动打开更新网站

做一个自动更新的程序，自动执行

1.4.2 产品宣传的推送

1.4.3 广告宣传

1.4.4 OfficeHelper

1.4.5 中英翻译

2 技术特征

3 模块 源码剖析

3.1 窗体界面

3.1.1 2个文本框

3.1.1.1 当前版本号

3.1.1.1.1 txtCurrVersion

3.1.1.2 最新版本号

3.1.1.2.1 txtNewVersion

3.1.2 取当前版本号

3.1.2.1 Me.txtCurrVersion = Nz(DLookup("FVersion", "tblVersion"))

3.1.3 函数

3.1.3.1 Me.txtNewVersion = gf_CheckNewVer(True)

3.1.3.1.1 参数：blnShowMsg

3.1.3.1.2 gf_CheckNewVer = ""

3.1.4 软件版本更新提示

3.1.4.1 创建xmlHttp对象

3.1.4.1.1 Dim objXml As Object

后期绑定

3.1.4.1.2 Set objXml = CreateObject("microsoft.xmlhttp")

3.1.4.1.3 对XMLHTTP对象进行相关的操作

OPen

初始化HTTP连接请求对象,设置请求方法,地址,认证信息.

传递相关的参数

请求方法

POST

地址

http://fanyi.youdao.com/translate

同步/异步

开头握手

发送请求的头文件

h.setRequestHeader "If-Modified-Since", "0" '

禁止缓存

发送翻译的正式请求

h.Send

获取服务端反馈的结果

.responseBody

对结果内码转换

StrConv(h.responseBody, vbUnicode)

由GB2312转为UNICODE

服务结束，释放相关的对象

Set h = Nothing

Set objXml = Nothing

结束后关门

Len(strNewVer) < 12

对比版本号

gf_CompareVersion(strNewVer, strCurrentVer)

有新版本

blnShowMsg

提示有新版本

直接把新版本返回

4 知识点

4.1 XmlHttp是什么

4.1.1 最通用的定义为： XmlHttp是一套可以在Javascript、VbScript、Jscript等脚本语言中 通过http协议传送或从接收XML及其他数据的一套API。 XmlHttp最大的用处是可以更新网页的部分内容而不需要刷新整个页面

4.1.2 XmlHttp提供客户端同http服务器通讯的协议

客户端可以通过XmlHttp对象(MSXML2.XMLHTTP.3.0)向http服务器发送请求并使用微软XML文档对象模型Microsoft® XML Document Object Model (DOM)处理回应

4.1.3 http协议

4.1.3.1 网站

4.2 绝对多数浏览器都增加了对XmlHttp的支持

4.2.1 IE中使用ActiveXObject方式创建XmlHttp对象

4.2.1.1 VB及ACCESS可使用CreateObject的方法

4.2.2 其他浏览器如：Firefox、Opera等通过window.XMLHttpRequest来创建xmlhttp对象

4.3 XmlHttp对象的属性

onreadystatechange

 设置请求对象状态readystate改变时要调用的函数对象;

readyState

请求对象的状态值,含义如下:

0 - 请求对象被创建,但未初始化,即open方法未调用

1 - 装载中,open方法已调用,send方法未调用

2 - 已装载,send方法已调用,但还未获得Header信息

3 - 交互中,已获取了部分信息,这时调用responseText将得到不完整信息,会返回错误

4 - 所有数据已接收完成,可用responseText或responseBody得到完整数据

 responseBody

表示从HTTP响应得到的返回原始信息,内容的编码方式决定于请求的服务器端(UTF-8, UCS-2, UCS-4, Shift_JIS等)

responseText

 HTTP请求返回数据体的字符串表示，缺省情况下用utf-8编码后返回，如果返回内容中有中文，服务器端的数据必须用utf-8编码，否则就会出现乱码。

responseStream

HTTP请求返回数据的流对象,该对象实现IStream接口.

responseXML

返回XML格式的数据对象. 服务器端返回数据为XML格式数据时可用.服务器端用动态语言生成xml时,必须设置content-type为text/xml，否则客户端得到的responseXML为空

status

 HTTP返回代码.

200 - 成功

404 - 错误请求

500 - 服务器内部错误,等等. 详见HTTP协议.

statusText

HTTP返回状态文本描述.

4.3.1

4.4 XmlHttp对象的方法

Sub abort()

中断当前对象的HTTP请求.

 Function getAllResponseHeaders() As String

获取HTTP响应结果中的全部Header信息,以字符串格式表示

 Function getResponseHeader(bstrHeader As String) As String

获取HTTP响应结果Header中指定名称的值,用字符串表示,如果不存在则返回空串

Sub open(bstrMethod As String, bstrUrl As String, [varAsync], [bstrUser], [bstrPassword])

初始化HTTP连接请求对象,设置请求方法,地址,认证信息.

bstrMethod可用值有GET,POST,HEAD,定义向HTTP提交请求的方式;必填

bstrUrl为要访问的HTTP资源地址;必填

varAsync 可选项,设置是异步还是同步等待返回结果,true-异步方式,false-同步方式,缺省是异步方式;

如果HTTP请求要求用户名和口令,则在bstrUser,bstrPassword中设置.

Sub send ([varBody])

向服务器发送一个HTTP请求,并获取返回结果.

varBody为要发送到服务器的数据,通常在POST方式下使用.

Sub setRequestHeader(bstrHeader As String, bstrValue As String)

在请求header中设置bstrHeader/bstrValue值对并发送到服务器端.

例:

xmlReq.setRequestHeader("Content-Type",

"application/x-www-form-urlencoded; charset=UTF-8");

4.4.1

4.5 Json

JSON(JavaScript Object Notation) 是一种轻量级的数据交换格式。它基于JavaScript（Standard ECMA-262 3rd Edition - December 1999）的一个子集。 JSON采用完全独立于语言的文本格式，但是也使用了类似于C语言家族的习惯（包括C, C++, C#, Java, JavaScript, Perl, Python等）。这些特性使JSON成为理想的数据交换语言。 易于人阅读和编写，同时也易于机器解析和生成(网络传输速度)。

4.6 客户端

4.6.1 Access

4.7 服务器

4.7.1 网站服务器

  相关链接：

1. 直接超值购买：

       点击购买：   

       包含：Access示例完整源码+实现思路与代码讲解高清视频+Access培训课件    绝对低价超值

2. 购买前咨询：

    在线咨询QQ：1918333016

    企业热线QQ：4008553990 （使用QQ搜索： 搜索服务）