'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'     Runtime Version:4.0.30319.1

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------



Option Strict Off

Option Explicit On



Imports System

Imports System.ComponentModel

Imports System.Diagnostics

Imports System.Web.Services

Imports System.Web.Services.Protocols

Imports System.Xml.Serialization



'

'This source code was auto-generated by Microsoft.VSDesigner, Version 4.0.30319.1.

'

Namespace TryIEntry

    

    '''<remarks/>

    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.1"),  _

     System.Diagnostics.DebuggerStepThroughAttribute(),  _

     System.ComponentModel.DesignerCategoryAttribute("code"),  _

     System.Web.Services.WebServiceBindingAttribute(Name:="TryI Single EntrySoap", [Namespace]:="http://TryISingleEntry/")>  _

    Partial Public Class TryISingleEntry

        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol

        

        Private ProcessXMLOperationCompleted As System.Threading.SendOrPostCallback

        

        Private useDefaultCredentialsSetExplicitly As Boolean

        

        '''<remarks/>

        Public Sub New()

            MyBase.New

            Me.Url = Global.Training.My.MySettings.Default.Training_TryIEntry_TryI_x0020_Single_x0020_Entry

            If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then

                Me.UseDefaultCredentials = true

                Me.useDefaultCredentialsSetExplicitly = false

            Else

                Me.useDefaultCredentialsSetExplicitly = true

            End If

        End Sub

        

        Public Shadows Property Url() As String

            Get

                Return MyBase.Url

            End Get

            Set

                If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true)  _

                            AndAlso (Me.useDefaultCredentialsSetExplicitly = false))  _

                            AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then

                    MyBase.UseDefaultCredentials = false

                End If

                MyBase.Url = value

            End Set

        End Property

        

        Public Shadows Property UseDefaultCredentials() As Boolean

            Get

                Return MyBase.UseDefaultCredentials

            End Get

            Set

                MyBase.UseDefaultCredentials = value

                Me.useDefaultCredentialsSetExplicitly = true

            End Set

        End Property

        

        '''<remarks/>

        Public Event ProcessXMLCompleted As ProcessXMLCompletedEventHandler

        

        '''<remarks/>

        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://TryISingleEntry/ProcessXML", RequestNamespace:="http://TryISingleEntry/", ResponseNamespace:="http://TryISingleEntry/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _

        Public Function ProcessXML(ByVal xm As System.Xml.XmlNode) As String

            Dim results() As Object = Me.Invoke("ProcessXML", New Object() {xm})

            Return CType(results(0),String)

        End Function

        

        '''<remarks/>

        Public Overloads Sub ProcessXMLAsync(ByVal xm As System.Xml.XmlNode)

            Me.ProcessXMLAsync(xm, Nothing)

        End Sub

        

        '''<remarks/>

        Public Overloads Sub ProcessXMLAsync(ByVal xm As System.Xml.XmlNode, ByVal userState As Object)

            If (Me.ProcessXMLOperationCompleted Is Nothing) Then

                Me.ProcessXMLOperationCompleted = AddressOf Me.OnProcessXMLOperationCompleted

            End If

            Me.InvokeAsync("ProcessXML", New Object() {xm}, Me.ProcessXMLOperationCompleted, userState)

        End Sub

        

        Private Sub OnProcessXMLOperationCompleted(ByVal arg As Object)

            If (Not (Me.ProcessXMLCompletedEvent) Is Nothing) Then

                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)

                RaiseEvent ProcessXMLCompleted(Me, New ProcessXMLCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))

            End If

        End Sub

        

        '''<remarks/>

        Public Shadows Sub CancelAsync(ByVal userState As Object)

            MyBase.CancelAsync(userState)

        End Sub

        

        Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean

            If ((url Is Nothing)  _

                        OrElse (url Is String.Empty)) Then

                Return false

            End If

            Dim wsUri As System.Uri = New System.Uri(url)

            If ((wsUri.Port >= 1024)  _

                        AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then

                Return true

            End If

            Return false

        End Function

    End Class

    

    '''<remarks/>

    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.1")>  _

    Public Delegate Sub ProcessXMLCompletedEventHandler(ByVal sender As Object, ByVal e As ProcessXMLCompletedEventArgs)

    

    '''<remarks/>

    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.1"),  _

     System.Diagnostics.DebuggerStepThroughAttribute(),  _

     System.ComponentModel.DesignerCategoryAttribute("code")>  _

    Partial Public Class ProcessXMLCompletedEventArgs

        Inherits System.ComponentModel.AsyncCompletedEventArgs

        

        Private results() As Object

        

        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)

            MyBase.New(exception, cancelled, userState)

            Me.results = results

        End Sub

        

        '''<remarks/>

        Public ReadOnly Property Result() As String

            Get

                Me.RaiseExceptionIfNecessary

                Return CType(Me.results(0),String)

            End Get

        End Property

    End Class

End Namespace