Question

如何实现pbwebservice中调用另一个Webservice

Answer 1

1.把c:\program
files\sybase\shared\powerbuilder下面的pbsoapclient90.pbd加入target.

2.创建web service代理
点：File->News->Project->Web service Proxy
Wizrd

下一步会提示你输入WSDL文件，点击浏览选择webservice服务器端提供的wsdl接口文档，比如(附档wsdl.rar):

http://172.18.60.39:8080/person/wsdl

点击下一步，会自动出现WSDL文件中的Service.点击下一步，系统默认选择ServiceSoap，紧接着输入proxy name(代理对象名)前缀，输入My.后面的几项按默认即可。

完成后是编译代理对象的界面。会出现：

Web Service Generator Project Status
Deployment PBL:
E:\whz\PBWebService\pb9\smsweb.pbl
Clear PBL on build: No
Confirm
overwrites: No
WSDL Location:
http://172.18.60.39:8080/person/wsdl
Services selected :
Service
Service:
PersonPort

点击编译的绿色图标，一个代理对象(mypersonport)生成了。

3.增加一个窗口放一个按钮,调用代码样例：
SoapConnection lsc_conn
mypersonport
lproxy_obj
String ls_proxy_name = "mypersonport"//生成的代理对象名称
String
ls_url =
"http://172.18.60.39:8080/person/api"//这个url从wsdl接口文档<service>节点可以找到
int
li_ret, i

try
lsc_conn = Create SoapConnection

//lsc_conn.SetOptions("SoapLog=~"soaplog.txt~"")

li_ret =
lsc_conn.Createinstance(lproxy_obj,ls_proxy_name,ls_url)
If li_ret
<> 0 Then
MessageBox("错误", "调用失败，错误代码：" + String(li_ret))

Return
End If

i = lproxy_obj.add("1")

MessageBox("Web Service", "调用成功：" + String(i))

catch (SoapException
e1)
MessageBox("错误", "不能调用函数，错误信息：" + e1.GetMessage())
catch
(PBXRuntimeError e2)
MessageBox("错误", "调用函数运行时错误." )
catch
(RuntimeError e3)
MessageBox("错误", "调用函数不可知错误." )
end try