string ls_connect_url, ls_ret, ls_tmp, soaperror, rterror
long ll_ret, lLog
integer li_pos, li_ret
wbsrv_soapconnection2 = CREATE SoapConnection
messagebox("debug","checking repository version")
is_repo_site='abcreporting.mus-tr.com'
ls_connect_url="https://mus-tr.com/Services/APIManagement.asmx"
TRY
ll_ret = wbsrv_soapconnection2.Createinstance( lpo_proxy_obj2, 'repoverapimanagement1',ls_connect_url)
CATCH (runtimeerror er)
MessageBox("Runtime Error", er.GetMessage())
FINALLY
END TRY
CHOOSE CASE ll_ret
CASE 100
MessageBox("Webservice Proxy Creation Error","Invalid Proxy Name")
return -1
CASE 101
MessageBox("WebService Proxy Creation Error","Failed to create Proxy")
return -1
END CHOOSE
messagebox("debug","before check version")
ls_ret=lpo_proxy_obj2.getapiversioninfo ("V1.1")
messagebox("debug - check version",ls_ret)
$PBExportComments$Proxy imported from Web service using Web Service Proxy Generator.
global type repoverAPIManagement1 from NonVisualObject
end type
type variables
Protected:
string pbws_ver = ".NET"
string cs_namespace = "WebService"
string cs_class = "APIManagement1"
string cs_assembly = "musrepover.dll"
string pb_prefix = "repover"
string pb_usenvo = "YES"
string pb_target = "C:\dev11\minuscript4.0"
end variables
forward prototypes
public:
function string GetAPIVerions() alias for "<method name='GetAPIVerions' ns='WebService' pbname='GetAPIVerions'><return name='returnvalue' type='System.String' isRef='False' ArrayDim='0' IsNullableType='False' /></method>"
function string GetAPIVersionInfo( string versionNumber) alias for "<method name='GetAPIVersionInfo' ns='WebService' pbname='GetAPIVersionInfo'><return name='returnvalue' type='System.String' isRef='False' ArrayDim='0' IsNullableType='False' /><param name='versionNumber' type='System.String' pos='0' dir='in' ArrayDim='0' IsNullableType='False'/></method>"
subroutine CancelAsync ( any userState) alias for "<method name='CancelAsync' ns='WebService' pbname='CancelAsync'><param name='userState' type='System.Object' pos='0' dir='in' ArrayDim='0' IsNullableType='False'/></method>"
subroutine PBAddCookie(any cookie) alias for "<method name='PBAddCookie' ns='System.Runtime.Remoting.Messaging' IsCookieFunction='True' pbname='PBAddCookie'><return name='returnvalue' type='System.Void' isRef='false' ArrayDim='0' IsNullableType='false' /><param name='cookie' type='any' pos='0' dir='in' ArrayDim='0' IsNullableType='False'/></method>"
function any PBGetCookies(string Uri) alias for "<method name='PBGetCookies' ns='System.Runtime.Remoting.Messaging' IsCookieFunction='True' pbname='PBGetCookies'><return name='returnvalue' type='System.Object' isRef='false' ArrayDim='0' IsNullableType='false' /><param name='cookie' type='System.String' pos='0' dir='in' ArrayDim='0' IsNullableType='False'/></method>"
end prototypes
Application Terminated
"Error: The underlying connection was closed. An unexpected error occurred on a send".