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
时间: 2024-11-04 21:57:03