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

巴特西

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

最新文章

热门文章