為Microsoft .NET做好準(zhǔn)備
本文介紹了.NET、WebServices(Web服務(wù))和SOAP(簡單對象訪問協(xié)議),并且對一個調(diào)用了簡單WebServices的源代碼示例進行討論。
需要具備
Microsoft®eMbeddedVisualTools
PocketPC上的有效Internet連接
如果需要,您可以下載本文中的示例代碼。
須知
SOAP規(guī)范(當(dāng)前版本為1.1)仍然是一個處于提議狀態(tài)的標(biāo)準(zhǔn)并且有可能發(fā)生變化。在SOAP規(guī)范發(fā)生修改和變化時,本文中所提供的示例代碼可能需要修改。
該示例代碼使用了SDL(ServicesDescriptionLanguage,服務(wù)描述語言)來定義WebServices,而SDL即將(有望在2001年的上半年)被最新的WSDL規(guī)范(WebServicesDescriptionLanguage,Web服務(wù)描述語言)所替代。本文中所提供的示例代碼不能同使用WSDL規(guī)范的WebServices配合工作。
支持的語言
英語
Microsoft.NET、WebServices和SOAP
Microsoft.NET構(gòu)想的一個核心部分便是實現(xiàn)程序間的普遍集成。這意味著必須使駐留在不同平臺上的各種應(yīng)用程序都可以調(diào)用以WebServices形式實現(xiàn)的功能和服務(wù)。本質(zhì)上說,你可以使用WebServices來開發(fā)可通過HTTP(HypertextTransferProtocol,超文本傳輸協(xié)議)進行使用的組件方法,并且使用XML(ExtensibleMarkupLanguage,擴展標(biāo)記語言)對通信數(shù)據(jù)進行格式化。而完成這一切工作所使用的標(biāo)準(zhǔn)便是SOAP,SOAP當(dāng)前正在由W3C進行標(biāo)準(zhǔn)化工作。(請通過本文末尾的鏈接部分了解更多信息)
WebServices將改變我們設(shè)計應(yīng)用程序的方式,因為我們可以將位于Internet各個角落的功能集成到一個單一的定制化程序當(dāng)中。顯然,Web應(yīng)用程序很適合使用這種程序設(shè)計方式。但是客戶端程序也可以使用這種方式得以實現(xiàn),這使得豐富的用戶界面同廣泛的分布式服務(wù)可以完美結(jié)合在一起。對于MicrosoftWindows®PoweredPocketPC來說,這也是一種完美的手段,因為它具有強大的用戶界面和熟悉的編程平臺,而且同臺式機相比,它具有相對較低的資源占用量(內(nèi)存等等)。因為SOAP協(xié)議相當(dāng)小巧,如果您想為設(shè)備添加無線訪問功能,您可以通過無處不在的功能和服務(wù)實現(xiàn)強大的解決方案,從而對現(xiàn)有系統(tǒng)進行極大擴展。“集成點”式的Web服務(wù)器離您正在越來越近。它就在那里,在您的手上!
如何調(diào)用WebServices
在您的桌面PC上,您首先應(yīng)該下載SOAPToolkit,然后您可以使用ROPE(RemoteObjectProxyEngine,遠(yuǎn)程對象代理引擎)從任何語言中調(diào)用WebServices。ROPE是一個DLL(動態(tài)鏈接庫),它提供了Web服務(wù)開發(fā)所需的核心功能和基礎(chǔ)結(jié)構(gòu),并且使您可以使用熟悉的編程方式實現(xiàn)Web服務(wù)。它允許客戶端訪問某個WebService,只要該客戶端是一個本地COM對象即可。但是,在PocketPC上,現(xiàn)在還沒有任何可用的ROPE實現(xiàn)。我說“現(xiàn)在還沒有”是因為我相信:未來必將出現(xiàn)可在PocketPC上使用的WebServices(SOAP)和其它一些.NET部件。
同時,您可以使用我提供的簡化ROPE實現(xiàn),它是本文示例代碼的一部分,通過它,您現(xiàn)在就可以在您的PocketPC上開始使用WebServices。
WebServices能做什么?
在我們開始討論代碼之前,讓我們首先探討一下WebServices究竟能為我們做些什么。在下面這個窗體中,我從SOAPToolkit中復(fù)制了一個示例客戶端程序,并將其作為一個MicrosofteMbeddedVisualBasic®應(yīng)用程序。
圖1:PocketPC上的示例ROPE客戶端程序。
通過這個客戶程序,您可以使用Microsoft在SOAPToolkit中提供的WebService示例從Internet上實時獲知股票價格。您還可以從托管這些服務(wù)的服務(wù)器上得到當(dāng)前時間,以及由美國海軍天文臺提供的UTC(CoordinatedUniversalTime)時間。最后,您還可以方便地使用一個向公眾開放的翻譯服務(wù)(就在您自己的程序內(nèi)部)。非???!
代碼研究
以下是btnGetStockQuote_Click事件的代碼(在按下最頂端的“Get”按鈕時執(zhí)行):
DimlavParameters(2)AsVariant
DimlsAsString
‘Setparameters
lavParameters(1)=txtSymbol.Text
lavParameters(2)="anycompany"
‘MakeSOAPcall
ls=SOAPCall(txtURI.Text,"GetStockQuote",lavParameters,
chkShowPackets.Value=1)
‘Showresult
MsgBox"Shareprice="&ls
代碼說明:
因為eMbeddedVisualBasic的功能參數(shù)中缺少ParamArray選項,我們必須手動將該參數(shù)添加到Variant數(shù)組中。
SOAPCall函數(shù)使用了4個參數(shù):
Web地址,指向WebServices描述文件(SDL)的URI(UniversalResourceIdentifier,通用資源標(biāo)示符)。
調(diào)用的方法名。
方法使用的參數(shù)。
一個真/假標(biāo)志,指出在調(diào)用期間()是否顯示XML負(fù)載(已發(fā)送和已接受),在本示例代碼中我們在窗體中使用了一個復(fù)選框(CheckBox)。
因為SOAPCall函數(shù)是在ROPE.bas模塊中實現(xiàn)的,對WebServices的調(diào)用過程非常簡單。
讓我們更深入地看一看ROPE.bas模塊。以下是一些進行實際SOAP調(diào)用的代碼(節(jié)選自SOAPCall函數(shù)):
‘SetPayload
lsRequest=lsRequest&""&vbCrLf
lsRequest=lsRequest&"
/envelope/""SOAP:encodingStyle=""http://schemas.xmlsoap.org/soap
/encoding/"">"&vbCrLf
lsRequest=lsRequest&"
lsRequest=lsRequest&"<"&Method&">"&vbCrLf
lsParameterOrder=GetParameterOrder(psServicesDescription,Method)
IflsParameterOrder<>""Then
lasParameterOrder=Split(lsParameterOrder,"")
Fori=0ToUBound(lasParameterOrder)
lsRequest=lsRequest&"<"&lasParameterOrder(i)&">"&CStr(Arguments(i+1))
&""&vbCrLf
Nexti
EndIf
lsRequest=lsRequest&""&vbCrLf
lsRequest=lsRequest&"
lsRequest=lsRequest&""
‘GetListener
lsListener=GetListener(psServicesDescription)
‘CreateXMLHTTPobject
SetloXMLHTTP=CreateObject("Microsoft.XMLHTTP")
‘OpenURLtoListener
loXMLHTTP.Open"POST",lsListener,False,"",""
‘Setheaderinfo
loXMLHTTP.setRequestHeader"SOAPAction",Method
loXMLHTTP.setRequestHeader"Content-Type","text/xml"
‘MakerequesttoSOAPservice/method
loXMLHTTP.SendlsRequest
‘IfOK,getresponse
IfLen(loXMLHTTP.ResponseXML.XML)>0Then
lsResponse=loXMLHTTP.ResponseXML.XML
SOAPCall=GetReturnValue(lsResponse,Method)
Else
MsgBoxloXMLHTTP.ResponseText
EndIf
代碼說明:
lsRequest變量被實際的請求負(fù)載(使用XML格式)所填充。除了方法名和參數(shù)值以外,內(nèi)容主要是硬編碼的XML文本。GetParameterOrder函數(shù)抽取出了參數(shù)和它們各自的順序,以便以正確的順序接收各個參數(shù)。
GetListener函數(shù)可以取出Web地址,也就是URL(UniversalResourceLocator,通用資源定位符),來“偵聽”WebService。偵聽程序是一個Web頁面,請求將被發(fā)送到這個頁面上,該頁面使用服務(wù)描述語言定義。它通常上是一個ASP(ActiveServerPages)頁面,但是使用一個更有效的ISAPI(InternetServerApplicationProgrammingInterface,Internet服務(wù)器應(yīng)用程序編程接口)。
我目前正在使用XMLHTTP進行實際調(diào)用,您可以在所有PocketPC上找到該組件。
GetReturnValue函數(shù)負(fù)責(zé)從響應(yīng)負(fù)載(XML格式)中取出返回值。如果發(fā)生錯誤,返回值為錯誤代碼。
雖然沒有在上面的代碼中顯示,但大多數(shù)子函數(shù)都使用XMLDOM組件(可在所有PocketPC上找到該組件)分析響應(yīng)XML字符串。而且即便是ROPE.bas模塊沒有實現(xiàn)所有SOAPToolki所能夠?qū)崿F(xiàn)的所有ROPE功能,但它提供了最重要的大部分功能--足以使您調(diào)用WebServices。
如果您希望了解更多詳細(xì)信息,我建議您認(rèn)真閱讀完整的示例代碼。
運行服務(wù)
好了,我已經(jīng)完成了使WebServices開始工作所需的一些基礎(chǔ)工作?,F(xiàn)在,要由您來完成最有意思的部分:創(chuàng)建一個使用WebServices的出色程序。目前,Internet上還沒有太多的WebServices供我們使用,所以您必須自己實現(xiàn)一些服務(wù)。但是,我知道Microsoft提供了一個叫做TerraService的WebServices,它可以將動態(tài)地圖發(fā)送到您的應(yīng)用程序之中。此外,您開可以在網(wǎng)上找到一個利用VisualStudio.NETBeta1創(chuàng)建的示例程序。
如果您想對新出現(xiàn)的WebServices保持跟蹤,請訪問MicrosoftUDDI(UniversalDescription,DiscoveryandIntegration)站點。UDDI的目標(biāo)是創(chuàng)建一個全球化的WebServices存儲庫,您可以使用它查找所需的功能和服務(wù)--甚至是來自某個應(yīng)用程序的實時服務(wù),包括Microsoft、IBM、Sun、Oracle在內(nèi)的主要廠商和其它100多家廠商都支持UDDI。
如果您決定在Internet上發(fā)布某個Web服務(wù),請及時通知我--我想先試試它們!
未來會怎樣
我相信在不遠(yuǎn)的將來,所有的.NET特性都將在PocketPC上得以實現(xiàn)。隨后,對WebServices的支持將集成到操作系統(tǒng)和開發(fā)工具之中。調(diào)用WebServices將像調(diào)用本地組件那樣容易,大多數(shù)應(yīng)用程序?qū)⑼ㄟ^集成多個服務(wù)進行構(gòu)建。第一次WebServices浪潮預(yù)計將出現(xiàn)在公司內(nèi)部,企業(yè)將來自多個系統(tǒng)的服務(wù)集成到一個應(yīng)用程序之中,隨后的發(fā)展趨勢則是通過Internet將來自多個服務(wù)提供商的多個服務(wù)完全集成在一起。
相關(guān)鏈接
如果您想了解同.NET有關(guān)的更多信息,請訪問Microsoft.NET頁面。
如果您想了解同SOAP有關(guān)的更多信息,請訪問MSDNSOAP開發(fā)資源頁面。
如果您想了解同ROPE有關(guān)的更多信息,請訪問MSDNMagazine文章“WebService開發(fā):立即上手使用SOAPToolkitforVisualStudio”。
如果您想同PC上的代碼示例進行對比,請下載SOAPToolkit(SOAPToolkitforMicrosoftVisualStudio®V6.0)。
小結(jié)
對于利用分布式Web服務(wù)的強大功能來說,具有纖細(xì)外形的PocketPC可以說是上佳之選。您現(xiàn)在不僅可以瀏覽Web內(nèi)容,而且可以充分利用Web所具有的強大能量(功能),您甚至可以使用無線方式做到這一切。
我希望,您能像我一樣為這一切感到萬分激動,因為它將實質(zhì)性地改變我們的系統(tǒng)集成方式。當(dāng)各種出色的WebServices如雨后春筍般涌現(xiàn)出來之時,您就可以在任何地方輕而易舉地利用這些服務(wù)。
希望能有更多的開發(fā)人員就此問題在PocketPC.com上展開討論,因為WebServices是.NET戰(zhàn)略重中之重。