Private Sub cmdXD_Click()
Dim SOAP As New SoapClient30 '實體化SOAP物件
Dim Result As String 'webservice介面回傳代碼
Dim xml As String '生成xml格式的字符
Dim oHTTP As XMLHTTP 'HTTP物件
Dim oXmlDoc As DOMDocument
Dim verifyCode1 As String '校驗碼
Dim verifyCode As String '經過MD5加密后校驗碼
txtFHSJ.Text = Format(Now, "yyyy-mm-dd hh:mm:ss")
xml = GetWebXml() '獲取報文 第一個引數
verifyCode1 = xml & "j8DzkIFgmlomPt0aLuwU" '將報文以及校驗碼拼接
verifyCode = Base64Encode(MD532OR16(verifyCode1, 16)) '第二個引數 MD5 16位加密轉為64位
MsgBox verifyCode
txtQQBWXX.Text = xml & " " & verifyCode
SOAP.MSSoapInit "http://bsp-ois.sit.sf-express.com:9080/bsp-ois/ws/sfexpressService?wsdl" '初始化連接
'SOAP.MSSoapInit "http://localhost:2649/Home/Text"
SOAP.ClientProperty("ServerHTTPRequest") = True
SOAP.ConnectorProperty("Timeout") = 3600000 '連接屬性
Result = SOAP.sfexpressService(xml, verifyCode)
txtFHBWXX.Text = Result
uj5u.com熱心網友回復：
引數已經核實對照過了沒有問題。 兩個引數都是字串型別的uj5u.com熱心網友回復：
萬能答案：讓對方提供樣例程式
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
學會用OleView查看ocx或dll的介面。uj5u.com熱心網友回復：
對方值提供了C#的，里面都已經封裝好了。VB6.0這些只能手寫uj5u.com熱心網友回復：
如果對方的C#代碼沒有問題（“官方”提供的一般都不會有問題），那只能說明你的“翻譯”不正確。
uj5u.com熱心網友回復：
不要做A語言代碼修改為B語言代碼的無用功。也不要做用A語言代碼直接呼叫B語言代碼庫這樣復雜、這樣容易出錯的傻事。
只需讓A、B語言代碼的輸入輸出重定向到文本檔案，或修改A、B語言代碼讓其通過文本檔案輸入輸出。
即可很方便地讓A、B兩種語言之間協調作業。
比如：
A將請求資料寫到檔案a.txt，寫完后改名為aa.txt
B發現aa.txt存在時，讀取其內容，呼叫相應功能，將結果寫到檔案b.txt，寫完后洗掉aa.txt，再將b.txt改名為bb.txt
A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt
以上A可以替換為任何一種開發語言或開發環境，B可以替換為任何一種與A不同的開發語言或開發環境。
除非A或B不支持判斷檔案是否存在、檔案讀寫和檔案更名。
但是誰又能舉出不支持判斷檔案是否存在、檔案讀寫和檔案更名的開發語言或開發環境呢？
可以將臨時檔案放在RamDisk上提高效率減少磨損磁盤。
資料的結構很復雜的話，文本檔案的格式問題可參考json或xml
共享臨時文本檔案這種行程之間的通訊方法相比其它方法的優點有很多，下面僅列出我現在能想到的：
·行程之間松耦合
·行程可在同一臺機器上，也可跨機，跨作業系統，跨硬體平臺，甚至跨國。
·方便除錯和監視，只需讓第三方或人工查看該臨時文本檔案即可。
·方便在線開關服務，只需洗掉或創建該臨時文本檔案即可。
·方便實作分布式和負載均衡。
·方便佇列化提供服務，而且幾乎不可能發生佇列滿的情況（除非硬碟空間滿）
·……
“跨語言、跨機，跨作業系統，跨硬體平臺，跨國，跨*.*的”苦海無邊，
回頭是“使用共享純文本檔案進行資訊交流”的岸！
uj5u.com熱心網友回復：
使用 XMLHTTP 不能呼叫介面嗎？ 為什么要使用 SoapClient30 ？uj5u.com熱心網友回復：
趙老師重繪記錄了，一帖復制了兩段趙氏語錄，干脆編一本紅寶書吧。但是你沒發現對方呼叫的是web service嗎？SOAPCLIENT也能正常初始化。剛才測了一下，你這個方法只有一個引數的多載，只要傳XML就行了，樓主看檔案不仔細啊
uj5u.com熱心網友回復：
我用的都是野路子，出不了書，也上不了大雅之堂。
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
我也遇到差不多的問題，VB呼叫順豐API，好麻煩，uj5u.com熱心網友回復：
樓主解決了嗎？加Q82801915交流下轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/40420.html
標籤：API