本文向您介绍了如何使用WebServICes和SOAP（SimpleObjectACCessProtocol，简单对象反问协议）进行数据传输，并且通过讨论示例代码对在PocketPC上传输数据的方法进行了仔细分析。
需要具备
MicroSOFt®eMbeddedVisualTools
PocketPC上的有效Internet连接
如果需要，您可以下载本文中所讨论的示例代码。为了创建测试示例代码所需的WebServices，您需要下载SOAPToolkit（SOAPToolkitforMicrosoftVisualStudio6.0）
须知
SOAP规范（当前版本为1.1）仍然是一个处于提议状态的标准并且有可能发生变化。本文所提供的示例代码使用了当前处于提议状态的SOAP规范，在SOAP规范发生修改和变化时，本文中所提供的示例代码可能需要修改。
该示例代码使用了SDL（ServicesDescriptionLanguage，服务描述语言）来定义WebServices，而SDL即将（有望在2001年的上半年）被最新的WSDL规范（WebServicesDescriptionLanguage，Web服务描述语言）所替代。本文中所提供的示例代码不能同使用WSDL规范的WebServices配合工作。
支持ADO（MicrosoftActiveXDataObjects）Recordset（我使用的是2.6版本）的XML格式可能会发生修改和变化，在XML格式发生变化时，本文提供的示例代码也可能需要相应修改。
支持的语言
英语
数据和WebServices
正如我在由我撰写的另一篇循序渐进文章“为Microsoft.NET做好准备”中所介绍的一样，您可以在当前SOAP规范的基础之上，使用WebServices为PocketPC开发程序。
大多数的商业应用程序都需要在服务器和客户机应用程序之间传输数据。在一个传统的MicrosoftWeb解决方案平台（以前被称作MicrosoftWindowsDNA）中，一般使用ADORecordset（ADO记录集）对象进行数据传输。因为它使用了一种特殊类型的“编组”（对象传输），它无需持有服务器上的任何“状态”（资源）即可被传输到客户端上。有鉴于此，很多现有系统中的组件都采用了这种实现方式，以ADORecordsets形式返回数据。
如果我们又想利用在这些组件上的先前投资，又想获得应用程序同WebServices集成所带来的诸多益处，我们就需要找到一种通过SOAP传输这些ADORecordsets的方法。在ChrisDengler所撰写的“利用SOAP消息返回ADORecordset”这篇出色文章中，您可以为在个人计算机上使用WebServices找到一种解决方法。
但是，该解决方案不能被照搬到PocketPC上，因为ADOCE（ActiveXDataObjectsforCE）的实现方式同ADO有所不同。最重要的差别之处在于：ADOCE当前（3.1版）不支持持续性。特别是对于XML（扩展标记语言）格式。另一个不同之处在于：ADOCE不支持我前面所提到过的记录集编组。因此，它不能为动态创建“连接断开”（没有到数据源的活动连接）状态下的记录集提供支持。
无处不在的WebServices数据
在当前版本的ADOCE（V3.1）中，我们必须找到另一种处理WebService（SOAP）调用返回数据的方法。在本文中，我将同大家对一些示例代码进行探讨，看看如何使用从一个SOAP响应中返回的数据。该示例假定Recordset（记录集）按照ChrisDengler文中所介绍的Solution2封装方式进行封装。因为Chris在他的文章中已经对这种解决方案的实现方式进行了详细描述，在本文中我就不再对所需的服务器端代码多加叙述了。
一个测试客户端程序
在我们开始讨论代码之前，让我们首先了解一下使用WebServices传输数据对我们有哪些好处。在下面这个窗体中，我创建了一个简单的测试用客户端程序，该程序将两个不同的WebServices结合到了一个MicrosofteMbeddedVisualBasic应用程序之中。：
SOAP客户端测试程序示例
窗体顶部的TextBox（文本框）用来选择所需的WebService（描述）。这个URI(UniversalResourceIdentifier)是使用SOAPToolkitWizard创建的SDL（服务描述语言，ServicesDescriptionLanguage）文件。
我已经创建了第一个WebService，您可以调用这个WebService（使用顶部的“Get”按钮），这个WebService主要用于测试目的。它调用一个简单的WebService，将您提交的名和姓作为参数连接到了一个包含完整名称的字符串中。
当您输入一个已经在服务器上进行了定义的DSN（数据源名称）以及一个针对该DSN的SQL（结构化查询语言）查询，然后点击“Get”按钮时，它开始变得更有意思了。DSN和SQL作为一个参数传递给了WebService，然后以XML格式返回一个ADORecordset。数据经过分析后，填充在窗体底部的ListView控件中。
在正确对服务器进行了设置的前提下，现在，您可以方便地访问您的企业数据了。您无需任何第三方产品--甚至不使用ADOCE--即可轻松做到这一点。对此，我的一位同事说，“这实在令人惊讶！”
代码讨论
以下代码为cmdGetRecordset_Click事件的代码（当您按下窗体底部的“Get”按钮时运行）：
DimlavParameters(2)AsVariant
DimlsAsString
DimlitmAsListItem
DimiAsInteger
'Setparameters
lavParameters(1)=txtDSN.Text
lavParameters(2)=txtSQL.Text
'MakeSOAPCall
ls=SOAPCall(txtURI.Text,"GetRecordset",lavParameters,chkShowPACkets=1)
'ClearandaddListViewheadings
lvwRecordset.ColumnHeaders.Clear
lvwRecordset.ColumnHeaders.Add1,,"ArtNo",700
lvwRecordset.ColumnHeaders.Add2,,"Description",1450
lvwRecordset.ColumnHeaders.Add3,,"Price",850,lvwColumnRight
'ClearandfillListViewfromXML(withRecordsetEmulation)
lvwRecordset.ListItEMS.Clear
XMLRSOpenls
DoWhileNotXMLRSEOF
Setlitm=lvwRecordset.ListItems.Add(,,XMLRS("ArticleNo"))
litm.SubItEMS(1)=XMLRS("Description")
litm.SubItems(2)=XMLRS("PrICe")
XMLRSMoveNext
Loop
XMLRSClose
代码说明：
传递给SOAP方法的两个参数（DNS和SQL）是从TextBox控件中取得的，其返回值是XML格式的ADO数据集。如需了解同SOAPCall函数及其参数有关的更详细信息，请参阅我的循序渐进文章“为MicroSOFt.NET做好准备”。
正如您看到的，整个实现方式类似于ADORecordset的使用方式（简化了代码复用）。以“XMLRS…”开始的这些函数保存在XMLRS.bas模块，让我们深入到模块内部看一下。以下是XMLRSOpen函数中的一部分代码：
'CreateDOMobject
SetpoXML=CreateObject("Microsoft.XMLDOM")
'Loadstring
psXML=XML
'LoadDOM
poXML.loadXMLpsXML
'Positiondatanodes
SetpoDataNodes=poXML.documentElement.selectNodes("//rs:data")
SetpoDataNodes=poDataNodes.Item(0).childnodes
代码说明：
psXML变量用来存放ADORecordset的XML表述。
PoXML变量是XMLDOM对象，用来存放记录集数据。
PoDataNodes变量保存所有记录集数据行的XML元素。
我们现在有了一个对象，该对象包含了记录集中的所有数据行，它就是我们开始数据导航所需要的东西。我们可以使用XMLRSMoveFirst和XMLRSMoveNext函数进行数据导航。下面让我们仔细考察一下XMLRSMoveNext函数：
'ChecknotEOF
IfNotXMLRSEOF()Then
'Increasepointer
piRecordPos=piRecordPos+1
EndIf
为了理解整个程序逻辑，让我们看看XMLRSEOF函数：
'CheckEOF
IFPiRecordPos>poDataNodes.length-1ThenXMLRSEOF=True
现在，我们需要知道如何取出实际数据，完成这一工作的是XMLRS：
'CheckiffiELDnumberorfieldname
IfIsNumeric(FieldID)Then
'GetFieldData
XMLRS=poDataNodes(piRecordPos).Attributes(FieldID).Text
Else
'GetFieldData
XMLRS=poDataNodes(piRecordPos).Attributes.getNamedItem(FieldID).Text
本文关键字：如何 嵌入式系统-技术，单片机-工控设备 - 嵌入式系统-技术
