獲取個人編號
函式名稱：traceQueryTargetA
傳入引數：
字符型year 年仹;
字符型areaId 地區編號;
字符型name 病人姓名;
字符型medicalNo 病人醫療證號;
回傳資料：字符型 個人編號
例程：
ls_personId=iws_proxy_obj.tracequerytargeta(ls_year,ls_xqbh,ls_name,ls_ylzhm)
下面是PB實作的，不知道VB如何實作啊
PowerBuilder實體代碼
3.1 宣告
//發量宣告
soapconnection i_conn
xfire客戶端interfacehttpport iws_proxy_obj
//webservie呼叫
i_conn = create soapconnection
string endpoint='http://客戶端interface.hnhzyl.com/客戶端Interface/services/客戶端
Interface?wsdl'
//ll_result=i_conn..createinstance(iws_proxy_obj,"xfire客戶端
interfacehttpport","http://61.163.77.36:8080/客戶端Interface/services/客戶端
Interface?wsdl")
ll_result = i_conn.createinstance(iws_proxy_obj,"xfire客戶端interfacehttpport")
uj5u.com熱心網友回復：
使用vb6.0呼叫需下載msSoapToolkit20.exe添加參考：Microsoft Soap Type Library 位置:”C:\Program Files\Common Files\MSSoap\Binaries\ MSSOAP1.dll” 呼叫方法： Dim cc As New MSSOAPLib.SoapClient 例程： 新建工程?標準EXE?添加3個textbox控制元件，text1,text2,text3?添加一個button控制元件Command1 代碼如下： Option ExplicitDim cc As New MSSOAPLib.SoapClientPrivate Sub Command1_Click()cc.mssoapinit "http://192.168.0.4/yundan/Service1.asmx?WSDL"Me.Text3.Text = cc.test(CInt(Text1.Text), CInt(Text2.Text))End Sub4．9使用vbscript呼叫需下載msSoapToolkit20.exe參考：MSSOAP.SoapClientuj5u.com熱心網友回復：
如果wsdl檔案不符合wsi呢？mssoapinit初始化出錯，能否使用低層api？uj5u.com熱心網友回復：
c#該怎么實作啊轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/120558.html
標籤：網絡編程
上一篇：求讀記憶體代碼
下一篇：VB6寫QQ彈出視窗