Question

如何使用WebServices和SOAP进行数据传输

Answer 1

本文向您介绍了如何使用WebServICes和SOAP（SimpleObjectACCessProtocol，简单对象反问协议）进行数据传输，并且通过讨论示例代码对在PocketPC上传输数据的方法进行了仔细分析。
在当前版本的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"))
转载仅供参考，版权属于原作者。祝你愉快，满意请采纳哦