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