pb中创建连接webservice对象实例方法

try

soapConnection conn // Define SoapConnection
HospitalServiceSoap in_hhzswebser // Declare proxy
int rVal
long strResult;
  //创建soap连接
  conn = create SoapConnection  
  //创建ws实例
  
  string ls_webserver
  ls_webserver = Gf_getpara_eas(gtrans_temp_mssql,0,"HHZSWEBSERVER","202.202.0.90/WZ_HH_WEBSERVICE/WZ_HH_WEBSERVICE.asmx","海虹追溯WEBSERVER地址");
  ls_webserver="http://"+ls_webserver+"?wsdl";
  //rVal = Conn.CreateInstance(in_hhzswebser,"HospitalServiceSoap",ls_webserver);
  rVal = Conn.CreateInstance(in_hhzswebser,"HospitalServiceSoap");
  If  rVal<>0  Then
   errorMsg="创建WebService实例失败，错误代码："  +  String(rVal);
         Return  0;
  else
   return 1;
      End  If  
catch(RuntimeError er)
  errorMsg=er.Text;
  return 0
finally
end try