Pb9.0调用webservice

以网络提供的免费的webservice服务为例:
wsdl :  http://www.webxml.com.cn/webservices/qqonlinewebservice.asmx?wsdl
查询qq在线情况.
 wsdl的使用与编译不做赘述,
 调用代码例子如下:

String  ls_return

soapconnection lsc_conn                                                                //获取soap类                                                                                                

qqqqonlinewebservicesoap lsrv_obj                                                //调用wsdl                                                                                                       

lsc_conn = CREATE soapconnection

lsc_conn.createinstance(lsrv_obj,"qqqqonlinewebservicesoap") //实例化     

ls_return = lsrv_obj.qqcheckonline("545758602")

messagebox("",ls_return)