C#
static void Main(string[] args)
{
WebReference.MainServiceImplService obj = new WebReference.MainServiceImplService();
string header = "<?xml version='1.0' encoding='GBK'?><header><servicecode>71000001</servicecode><apiversion>2.0</apiversion><createtime>2020-03-06 08:00:00</createtime><govcode>3xxxxxxx</govcode><systemid></systemid><username></username><userpass>123456</userpass></header>";
string body = "<?xml version='1.0' encoding='GBK'?><body><fullname info='姓名'>xxx</fullname><cardno info='身份證號'>37xxxxxxxxxxx</cardno><type info='簽約狀態'>2</type></body>";
string result = obj.serviceMain(header, body);
Console.WriteLine(result);
Console.ReadLine();
}
pb8
string ls_rate_type,ls_center_url
long ll_result
string ls_xml,ls_body
ole_webservice= create oleobject
ll_result = ole_webservice.ConnectTonewObject("MSSOAP.SoapClient30")
if ll_result <> 0 then
ll_result = ole_webservice.ConnectTonewObject("MSSOAP.SoapClient")
if ll_result <> 0 then
messagebox("系統提示","連接MSSOAP.SoapClient失敗！回傳引數："+string(ll_result))
if isvalid(ole_webservice) then destroy ole_webservice
end if
end if
try
ls_center_url='xxxxxxxxxwsdl'
ole_webservice.mssoapinit(ls_center_url)
Catch (RuntimeError err)
messagebox('提示','服務器地址無效或網路不通！')
return -1
end try
string ls_header = "<?xml version='1.0' encoding='GBK'?><header><servicecode>71000001</servicecode><apiversion>2.0</apiversion><createtime>2020-03-06 08:00:00</createtime><govcode>3xxxxxxx</govcode><systemid></systemid><username></username><userpass>123456</userpass></header>";
string ls_body = "<?xml version='1.0' encoding='GBK'?><body><fullname info='姓名'>xxx</fullname><cardno info='身份證號'>37xxxxxxxxxxx</cardno><type info='簽約狀態'>2</type></body>";
ls_xml = ole_webservice.servicemain(ls_header,ls_body)
紅色這行報error calling external object
return 0
uj5u.com熱心網友回復：
用PB自帶的SOAP或者HTTP把，PB的soap就不說了，F1幫助有：Blob lblb_args
String ls_headers
String ls_url
Long ll_length,ll_rest
ls_url="https://api.douban.com/v2/book/isbn/"+as_isbn //https://api.douban.com/v2/book/isbn/9787516211366
String ls_data,ls_response
OleObject lole_tenyear //宣告ole
lole_tenyear = CREATE oleobject
lole_tenyear.ConnectToNewObject("Microsoft.XMLHttp") // 我測過xp和win7都自帶
lole_tenyear.open ("POST",ls_url, false)
lole_tenyear.SetRequestHeader("Expect100Continue", "false")
lole_tenyear.setRequestHeader ("Content-type", "application/x-www-form-urlencoded")
lole_tenyear.setRequestHeader('Content-Length',string(len(ls_data)))
//lole_tenyear.send (' ')
lole_tenyear.send (ls_data)
do While lole_tenyear.readyState <> 4 // ' 查詢狀態,延時
yield()
Loop
ls_response = lole_tenyear.responseText //回傳結果
IF lole_tenyear.Status >= 300 THEN
// MessageBox ("HTTP request failed:", lole_tenyear.StatusText ,Exclamation!,OK!)
END IF
destroy lole_tenyear
return ls_response
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/8547.html
標籤：Web 應用