VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

來源:myf1 LQL.NET
http://61.145.116.139/bbs/dispbbs.asp?boardID=1&ID=213507

……實戰WebService<完>……
LQL.NET 源創連載《實戰！Web Service made in VFP！》
－　序
　　　　我向來是對新技術樂此不彼的人，也深知這些可愛的新技術就象愛情一樣，
　　不可避免有她的激情期、磨合期、平坦期和摯愛期。Web Service作為一項炙手
　　的新技術，一直在我的關注範圍之內，是我“激情”的一個重要物件。
　　　　由於工作性質，我對Web Service更關心的是實際應用、實際價值。　剛開
　　始我僅僅是Play Web Service，但最近WS連續在我４個CASE中的上佳表現，使
　　我深體會了她的價值，這４個CASE分別應用到：
　　１－XX石化企業需要遠端存取其現有系統的DBF表
　　２－XX機關單位需要遠端存取其上級部門的ACCESS表
　　３－對各海運集團不同格式的EDI報文進行轉換的介面模組
　　４－向各貨運公司開放的嵌入式電子訂艙
　　未來的應用還有ERP中的供應鏈開放介面，等等。。
　　歸納一下，Web Service目前我能想到的應用有：
　　１－遠端存取異構數據
　　　　上面例子中的１、２是該應用的小體現
　　２－新的軟體銷售模式
　　　　舉個例子：
　　　　如果我開發一個WS，接收傳入的VFP腳本字串，然後對其進行語法著色，
　　　　然後以HTML的格式送回，前端顯示，或許ＵＴ會買我的Web Service　：）
　　３－Ｂ２Ｂ應用/Ｗｅｂ２Ｗｅｂ應用
　　　　上面例子中的３、４是該應用的體現，以後可能會和BOE做一個Web2Web
　　　　的合作應用玩玩，一切從 Play 開始吧　：）
　　。。。
　　　　另外由於Web Service可跨越防火牆，並承襲了COM/DCOM的結構化設計和
　　可負載平衡等特性，使得她在大型企業的應用顯得遊刃有餘，而且他利用的都是
　　目前最通用的協議-OR-技術，如 Soap/XML/HTTP，而且HTTP不是必須的，你
　　有特殊需要的話，Soap可以綁定在其他協議上進行通信，非常靈活。。加上有
　　MS/IBM/BEA等大戶支持，前景非常看好。。
　　　　在具體應用中，我回答了我自己先前提出的也是最多人想問的一個問題，
　　就是：
　　　　我現在直接通過ODBC遠端存取SQL資料庫沒有絲毫的問題，且很穩定，很
　　成熟，為什麼我還需要Web Service這種技術來完成這些任務呢？
　　　　答案是，Web Service不是萬能鑰匙，但她在完成某些任務時是不可替代的，
　　比如，２個長期合作的企業，各自都有自己的軟體，如果你把企業A的用戶端放
　　到企業B用以採集資料，必然造成企業B的重複錄入，如果這時企業A能提供
　　Web Service，那麼企業B只要把A的WS嵌入B自己的軟體，向其發送XML即可，
　　如果這時有很多個B跟企業A發生關係，那麼Web Service將是最優方案。。
　　　　當然，需要記住的一點是：
　　　　同構、同語言、LAN內的應用請不要使用WS，否則畫蛇添足。。
　　　　還有一點是：
　　　　帶寬越發展，寬帶越普及，WS優勢越明顯。。這種發展，跟時間有直接關係，
　　　　２個字，未來。
　　　　自此，我寫下此文的用意，１是將Web Service實戰應用經常遇到的問題及
　　解決方法呈獻給大家，希各知照，或許某天您用得上。２是給自己準備文檔，以
　　備後忘
－　Web Service 真面目
　　正題之前，先給個好消息：Web Service在VFP中的開發過程，出奇簡單！
　　何出此言？且看。。
　　我們先用比較農民的眼光去看
　　Web Service是什麼？
　　就是寫一COM，然後用嚮導一升級，就是Web Service
　　COM是什麼？
　　COM就是一堆類，在PRG裏寫一堆DEFINE CLASS，DEFINE CLASS會吧，在後面
　　加個OLEPUBLIC參數，編譯成DLL，就是COM，舉例：
　　--TEST.PRG
DEFINE CLASS TestWS as Session OLEPUBLIC
FUNCTION Test1
Return 'Hello World'
ENDFUNC
ENDDEFINE
　　怎麼這麼簡單？４２，我也不知道，她就這麼簡單，不過實際應用時CLASS裏就
　　不是一個FUNCTION，而是好多個。。。
　　不是說Web Service跟XML有關？上面好象沒提到？
　　是有關呵。你調COM裏的FUNCTION需要參數吧，需要返回參數吧，這參數就是
　　XML。XML不是檔嗎，也能作參數？不是呀，XML也可以是字串呵，字串
　　作參數沒問題吧。XML沒頭沒腦的，怎麼來怎麼去啊？簡單，CURSORTOXML來
　　XMLTOCURSOR去呵，程式中處理用CURSOR，通信傳遞用XML。。
　　用戶端怎麼調遠端WS？
　　這個您甭管，IntelliSence全包，連CREATEOBJECT都給您準備好了，您只管象
　　調用一般物件那樣去做便可，比如XXX.TestWS()。。
　　理解了這些問答後，你可以去看BOE的大作：
　　《用Visual FoxPro編寫Web Service》了，這篇文章用實例詳盡描述了WS搭建
　　的整個過程，堪稱經典。
　　VFP開發WS並不複雜，但如果你新接觸這個領域的開發，我斷定你十有八九會
　　在遷移/安裝/調試過程中遇到極其頭痛的問題，因為她除了VFP外，還涉及到
　　外部的一些技術、概念以及Web Service獨有的特點，這些或許是你生疏的。。
－　除了VFP，Web Service還將涉及到：
　　－ IIS
　　－ COM
　　－ XML
　　－ Soap協議
　　－服務管理器
　　－ WINDOWS許可權
－　Web Service 開發/發佈的基本過程：
　　編寫COM（上面已講） -> 連編成多線程DLL -> 在IIS中為WS建虛擬目錄 -
　　-> COPY COM到該虛擬目錄 -> 用VFP嚮導將該目錄下COM升級為WS -
　　-> 安裝Soap ToolKit -> VFP中設置IntelliSence -> 在程式中便可調用WS
－　１－寫CODE注意事項
　　　－有趣的路徑
　　　　　在Web Service中，默認路徑是系統SYSTEM32目錄，而不是COM DLL
　　　　所在的檔夾，這跟在COM中有所區別，所以你必須注意帶好路徑，比如，
　　　　USE TEST.DBF應該寫成USE C:\TEST\TEST.DBF，或者乾脆先
　　　　SET DEFA TO。
　　　　　這裏有一個有趣的發現，SET DEFA TO似乎給無狀態的Web Service
　　　　帶上了有狀態的色彩，你可以試試把SET DEFA TO放到Web Service中，並
　　　　用StrToFile(sys(5)+sys(2003),'c:\test.txt',.T.)在SET DEFA TO前後跟蹤
　　　　當前目錄，如下：
　　　　StrToFile(sys(5)+sys(2003),'c:\test.txt',.T.)
　　　　SET DEFAULT TO C:\XXX
　　　　StrToFile(sys(5)+sys(2003),'c:\test.txt',.T.)
　　　　然後在用戶端調用２次Web Service，再打開伺服器端的c:\test.txt看看，
　　　　按理講WS是不會保留任何狀態的，第１次CALL的行為不會影響第２次
　　　　CALL，所以按理講就算第１次改變了運行路徑，第２次CALL的起始路徑也
　　　　應該仍是SYSTEM32，可是。。　：）
　　
　　　－我的野蠻數據源
　　　　　　無論你要操作SQL SERVER、ACCESS或其他資料源，你都必須用到連
　　　　接，要注意的是你不能用DSN來建立連接，象
　　　　DSN=oil;UID=oil;PWD=
　　　　而必須用DRIVER的方式建立，象
　　　　DRIVER=SQL Server;SERVER=oil;UID=oil;PWD=;DATABASE=oil
　　　　否則你會莫名其妙地挨上ERROR！
　　　－Web Service IntelliSence在VFP8中新特徵
　　　　　　以上是寫SERVER端代碼時要注意的，CLIENT比較簡單，因為煩瑣的都
　　　　由 IntelliSence 包辦了，剩下來的跟處理本地方法沒什麼區別。
　　　　　　在VFP7的年代，你只要Local oXXX AS 某某WebService就能得到一堆代
　　　　碼，但在VFP8，你無論怎麼AS那堆可愛的CODE也不會出現在你面前。。。
　　　　原來她躲到 ToolBox 中去了，OK，喚出ToolBox，選My XML Web Service
　　　　項，嘿嘿，拖放！
　　　　第１步，位置：Tools -> IntelliSense Manager
　　　　
此主題相關圖片如下：

　　　　
　　　　第２步，位置：Tools -> ToolBox
　　　　
此主題相關圖片如下：

　　　　或者，更簡單地，直接鍵入：WS，效果同上　：）
　　　－XML傳遞的注意事項
　　　　　　CLIENT調用Web Service還有一個細節需要注意－－當你用CursorToXml
　　　　的結果向Web Service傳遞時，參數cSchemaName最好用"1"，否則你會因傳
　　　　上去的字元型"888"變成數字列888而哭笑不得　：）
　　　　　　關於CursorToXml語法及參數詳見VFP8幫助檔。
　　２－發佈Web Service注意事項
　　　－從VFP嚮導到Web Service的遷移
　　　　　　VFP提供了發佈Web Service的嚮導，這個嚮導最終生成了３個檔，其
　　　　中１個WSDL，２個WSML檔，以XML的形式描述了Web Service的介面及
　　　　調用方法等資訊。這裏要說的是Web Service的遷移。因為調試安裝一般都在
　　　　LOCAL SERVER 而正式應用安裝則在用戶的伺服器上。那麼需要在用戶的服務
　　　　器上重新生成一次那３個檔嗎？那樣的話也許你會選擇在用戶的伺服器裝一
　　　　個VFP，然後用她來重新發佈一次Web Service，當然不是不可以，不過好笨
　　　　笨！
　　　　　　現在你只要在WSDL檔結尾部分的soap:address location段將信息改正
　　　　即可，比如原先在自己機器調試時發佈成：
　　　 <soap:address location=' http://LQL/MyWebService/Test.WSDL’/>
　　　　遷移到用戶伺服器中，改成諸如：
　　　　<soap:address location=' http://WWW.IBM.COM/MyWebService/Test.WSDL’/>
　　　　即可，不過當然，前提條件是IBM對你產品有足夠的購買欲望　：）
　　　　參考圖：
　　　　
此主題相關圖片如下：

　　　－容易忽略的COM註冊
　　　　　　這一步很容易被忽略，因為在本機測試時，VFP編譯COM後其實已經自
　　　　動註冊了COM，但當你真正將COM拷貝到發佈伺服器時，必須先regsvr32
　　　　你的COM.dll，同時記得除了DLL檔外還須帶上.tlb/.vbr檔，一起COPY過
　　　　去。。
　　　　　　當然，你還必須帶上VFP8的運行支援函式庫
　　　　　　－　VFP8T.DLL
　　　　　　－　VFP8R.DLL
　　　　　　－　VFP8RCHS.DLL
　　　　　　－　MSVCR70.DLL
　　　　　　－　GDIPLUS.DLL
　　　　　　－　MSXML3.DLL
　　　－火冒三丈！SOAP TOOLKIT！！
　　　　　　你可以從這裏得到最新的 Soap ToolKit：
　　　　　　 http://msdn.microsoft.com/soap/
　　　　　　安裝SOAP協議是發佈Web Service的一個必經之路，現在最新版本的是
　　　　SOAP 3，或許你在安裝VFP時就已經安裝了SOAP，如果是的話，在你的機子
　　　　裏發佈 Web Service 也許會出奇地聽話，因為VFP INSTALLER包辦了一切，
　　　　你就象一個小姐那樣，被寵壞了。當你的 Web Service 遷移到用戶的伺服器
　　　　時，馬上就咬你一口，SOAP協議不存在！或許這時你還會用小姐的口吻說
　　　　“這有什麼！裝個SOAP不就結了？！”，OK，裝！安裝一切順利，你有些得意。
　　　　好，CLIENT調用一下，不行！（你開始有些緊張了，汗。。）於是告訴你需
　　　　要把SOAP跟WSDL映射起來。頓悟！立即
　　　　右鍵你Web Service所在的虛擬目錄->屬性->虛擬目錄->配置->應用程式映
　　　　射->添加->然後填上相關資訊
　　　　開心，單擊確定，心情跌入穀底 Sad

又是一個討厭的對話方塊“您必須輸入正確的
　　　　檔路徑”！死活不讓保存！
　　　　
此主題相關圖片如下：

　　　　　　這裏我懷疑這可能是MS的一個BUG，他不允許“可執行檔”文本框內出
　　　　現空格而我們的SOAP卻藏在Program Files檔夾下，空格是必然的。
　　　　應該這麼安裝：
　　　　　　假設IIS上已經為Web Service建立了虛擬目錄，SOAP安裝完畢後，打開
　　　　MS-DOS COMMAND視窗，CD\到MSSOAP安裝目錄的Binaries目錄下，鍵入：
　　　　soapvdir.cmd UPDATE 你的Web Service虛擬目錄
　　　　現在再打開IIS的應用程式映射看下，.WSDL映射已經乖乖地躺在列表中了：）
　　　　如果你想為你的客戶省掉建IIS虛擬目錄這一步，也沒問題：
　　　　soapvdir.cmd CREATE 你的Web Service虛擬目錄你的COM DLL目錄
　　　－動用服務管理器
　　　　　　Web Service總是牽涉到稍微多一點的東西，請別見怪　：）
　　　　　　當你測試發佈的Web Service後，發現了一些小BUG，現在你已經在專案
　　　　中改正了，重新編譯下吧，OH GOD，為什麼VFP給我一個“檔訪問拒絕”的
　　　　對話方塊？況且那對話方塊一點都不漂亮！這時你需要
　　　　打開控制面板->管理工具->服務，然後在末尾部分找到
　　　　World Wide Web Publishing Service這個服務並重啟她，然後再編譯你就順
　　　　心了　：）
　　　　　　另外還有個服務 IIS Admin Service，按理講重啟這個應該跟重啟IIS管理
　　　　器裏的站點具有等同效果，但事實上有時卻不是，或許她會跟其他某些相關服
　　　　務有一腿：）當你改動一些設置（不管是哪個環節）或重裝/更新某些東東比
　　　　如你的DLL、SOAP等等後CLIENT程式調用總失敗時，試著重啟下這個服務吧，
　　　　或許會有驚喜的，我就嘗過這個味道　：）
　　　－IIS許可權！最難的卻是最容易的！
　　　　　　有時你會在Web Service中訪問內網的檔，比如，你USE另一台機器的
　　　　DBF檔或通過ODBC訪問一個ACCESS檔，而這個檔卻放在另一台伺服器
　　　　中，這時你的CLIENT調用Web Service時一般會出錯，然而你直接對COM調試
　　　　卻一點問題都沒有，急壞了！WHY？
　　　　　　其實道理說出來很簡單，因為你調試COM是在你登錄的用戶許可權環境下，
　　　　一般你會有許可權訪問網上鄰居裏的ACCESS檔的，除非網管故意刁難你：）
　　　　但IIS呢？默認時她是用匿名用戶登錄的，這個用戶的許可權之小你可以想像，
　　　　她哪里會有直接訪問你內網的權利？！除非你瘋了，或你是世界黑客組織的
　　　　頭兒　：）
　　　　　　所以你必須給你的Web Service賦予足夠的許可權去訪問那個ACCESS檔，
　　　　那麼打開IIS管理器吧
　　　　右鍵點你Web Service所在的虛擬目錄->屬性->目錄安全性->編輯->
　　　　匿名訪問編輯->然後給足許可權
　　　　一切太平！
　　　－XML，笑裏藏刀！
　　　　　　XML真是個好東西！她好象跟所有人關係都特別鐵，誰都認識她，喜歡她。
　　　　WS又叫XML Web Service，XML還是頂頭的，著實讓人對XML產生可望不可及
　　　　的心理。
　　　　　　其實XML也很簡單，一個TEXT檔而已，XML保存了資料，XSD保存了結
　　　　構，從本質上看她就跟DBF一樣，只不過DBF就FOX認識她，而XML則八面玲瓏，
　　　　四處都混個臉熟。。
　　　　　　XML能讓人產生恐懼感的地方或許就是VFP XML函數中那些陌生的參數了，
　　　　關於參數我不在這裏解釋了，舉２個實例，相信CHINESE FOXER該夠用了：
　　　　　　= CURSORTOXML('TestCursor1', 'cXml', 1, 0, 0, '1')
　　　　　　= XMLTOCURSOR(cXml, 'TestCursor2')
　　　　　　XML是和藹的，但往往會有意想不到的事情發生。當你遷移WS到用戶處時，
　　　　很容易碰到一個錯誤資訊：Invalid Class String，一個近乎莫名其妙的錯誤！
　　　　當初我在這個錯誤上花了整整半天的時間，最後發現XML原來需要支援，這個
　　　　支持名叫 MSXML3.DLL ，如果安裝了VFP或IE6，你可以輕鬆避過這一災難。
　　　　其實我最初就想到這個原因，但發現MSXML3.DLL很乖地躺在COM DLL的目錄
　　　　裏也就沒深究她，豈料她跟VFP的RUNTIME DLL不同，她，還需註冊，也就是
　　　　我們熟悉的 REGSVR32，真該死！
　　　－大小寫敏感
　　　　　　這是FOXER的通病，很多FOXER從來都不注意大小寫，抑或被IntelliSense
　　　　慣壞了。。。這真的不好，表達上，MyTestWebService 比 mytestwebservice
　　　　要清晰許多，而且許多語言是區分大小寫的，如果這個壞習慣不改，您以後會
　　　　有麻煩的，這不，WS上就有這問題。。
　　　　在WSDL中，是區分大小寫的。
　　　　比如，我寫了個WS取名：GAESUpdateKeyi（注意大小寫）
　　　　下面從正反２面舉下例子：
　　　　錯誤的寫法：
　　　　
此主題相關圖片如下：

　　　　正確的寫法：
　　　　
此主題相關圖片如下：

　　　－小心雙面嬌娃
　　　　　　Soap 有２張面孔，一張是Soap Server，另一張則是Soap Client，我們
　　　　往往只注意到 Soap Server 而忽略了 Soap Client，要知道CLIENT端調用WS
　　　　時沒有 Soap Client 同樣是NO WAY的。
　　　　　　Soap Client 和 Soap Server 一樣包含在 Soap ToolKit 的安裝包裏，下載
　　　　地址上面已提供。
　　　　　　另外令人想不通的是，既然MS如此力推 Web Service ，WINDOWS中卻
　　　　沒有內置 Soap 協議，剛查看了 WINDOWS .NET 2003，居然也沒帶，照這
　　　　樣看，“長牛角”也別指望有了。。
　　　　　　　　　　　　　　　　　－ＴｈｅＥＮＤ－

Ruey · 發表於: 星期六十一月 15, 2003 2:43 pm 文章主題:

那篇代表是最後整理

其他有關於Web Services參考BOE
http://www.boeworks.net/

VFP�{�人�WEB-SERVICE技�{指南
http://www.myf1.net/bbs/dispbbs.asp?boardID=1&replyID=130494&ID=225162&skin=1

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 3 樓

文中有提到

3tkng · 註冊時間: 2005-01-14 文章: 2 第 4 樓

請問在那裡可看到"此主題相關圖片如下"
寫得得詳細, 真好人. 謝謝.

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 5 樓

連結斷了...看來你要自己找了~~~~

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 6 樓

http://big5.ccidnet.com:89/gate/big5/tech.ccidnet.com/pub/disp/Article?columnID=295&articleID=10521&pageNO=1
可以到此網站找一些資料...還蠻多相關的資訊

3tkng · 註冊時間: 2005-01-14 文章: 2 第 7 樓

谢谢你的幫忙