'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.42
'
' 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 2.0.50727.42.
'
Namespace DDService
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="DailyDilbertSoap", [Namespace]:="http://tempuri.org/")> _
Partial Public Class DailyDilbert
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
Private DailyDilbertImageOperationCompleted As System.Threading.SendOrPostCallback
Private DailyDilbertImagePathOperationCompleted As System.Threading.SendOrPostCallback
Private useDefaultCredentialsSetExplicitly As Boolean
'''<remarks/>
Public Sub New()
MyBase.New
Me.Url = Global.DailyDilbertControl.My.MySettings.Default.DailyDilbertControl_DDService_DailyDilbert
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 DailyDilbertImageCompleted As DailyDilbertImageCompletedEventHandler
'''<remarks/>
Public Event DailyDilbertImagePathCompleted As DailyDilbertImagePathCompletedEventHandler
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/DailyDilbertImage", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function DailyDilbertImage() As <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary")> Byte()
Dim results() As Object = Me.Invoke("DailyDilbertImage", New Object(-1) {})
Return CType(results(0),Byte())
End Function
'''<remarks/>
Public Overloads Sub DailyDilbertImageAsync()
Me.DailyDilbertImageAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub DailyDilbertImageAsync(ByVal userState As Object)
If (Me.DailyDilbertImageOperationCompleted Is Nothing) Then
Me.DailyDilbertImageOperationCompleted = AddressOf Me.OnDailyDilbertImageOperationCompleted
End If
Me.InvokeAsync("DailyDilbertImage", New Object(-1) {}, Me.DailyDilbertImageOperationCompleted, userState)
End Sub
Private Sub OnDailyDilbertImageOperationCompleted(ByVal arg As Object)
If (Not (Me.DailyDilbertImageCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent DailyDilbertImageCompleted(Me, New DailyDilbertImageCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/DailyDilbertImagePath", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function DailyDilbertImagePath() As String
Dim results() As Object = Me.Invoke("DailyDilbertImagePath", New Object(-1) {})
Return CType(results(0),String)
End Function
'''<remarks/>
Public Overloads Sub DailyDilbertImagePathAsync()
Me.DailyDilbertImagePathAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub DailyDilbertImagePathAsync(ByVal userState As Object)
If (Me.DailyDilbertImagePathOperationCompleted Is Nothing) Then
Me.DailyDilbertImagePathOperationCompleted = AddressOf Me.OnDailyDilbertImagePathOperationCompleted
End If
Me.InvokeAsync("DailyDilbertImagePath", New Object(-1) {}, Me.DailyDilbertImagePathOperationCompleted, userState)
End Sub
Private Sub OnDailyDilbertImagePathOperationCompleted(ByVal arg As Object)
If (Not (Me.DailyDilbertImagePathCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent DailyDilbertImagePathCompleted(Me, New DailyDilbertImagePathCompletedEventArgs(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", "2.0.50727.42")> _
Public Delegate Sub DailyDilbertImageCompletedEventHandler(ByVal sender As Object, ByVal e As DailyDilbertImageCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class DailyDilbertImageCompletedEventArgs
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 Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Byte())
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42")> _
Public Delegate Sub DailyDilbertImagePathCompletedEventHandler(ByVal sender As Object, ByVal e As DailyDilbertImagePathCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class DailyDilbertImagePathCompletedEventArgs
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