'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Imports System Imports System.Runtime.Serialization Namespace EDMIServiceReference _ Partial Public Class TableResult Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private ErrorMessageField As String _ Private OKField As Boolean _ Private TableField As System.Data.DataTable _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property ErrorMessage() As String Get Return Me.ErrorMessageField End Get Set If (Object.ReferenceEquals(Me.ErrorMessageField, value) <> true) Then Me.ErrorMessageField = value Me.RaisePropertyChanged("ErrorMessage") End If End Set End Property _ Public Property OK() As Boolean Get Return Me.OKField End Get Set If (Me.OKField.Equals(value) <> true) Then Me.OKField = value Me.RaisePropertyChanged("OK") End If End Set End Property _ Public Property Table() As System.Data.DataTable Get Return Me.TableField End Get Set If (Object.ReferenceEquals(Me.TableField, value) <> true) Then Me.TableField = value Me.RaisePropertyChanged("Table") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ScalarResult Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private ErrorMessageField As String _ Private OKField As Boolean _ Private ScalarField As Object _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property ErrorMessage() As String Get Return Me.ErrorMessageField End Get Set If (Object.ReferenceEquals(Me.ErrorMessageField, value) <> true) Then Me.ErrorMessageField = value Me.RaisePropertyChanged("ErrorMessage") End If End Set End Property _ Public Property OK() As Boolean Get Return Me.OKField End Get Set If (Me.OKField.Equals(value) <> true) Then Me.OKField = value Me.RaisePropertyChanged("OK") End If End Set End Property _ Public Property Scalar() As Object Get Return Me.ScalarField End Get Set If (Object.ReferenceEquals(Me.ScalarField, value) <> true) Then Me.ScalarField = value Me.RaisePropertyChanged("Scalar") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class NonQueryResult Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private ErrorMessageField As String _ Private OKField As Boolean _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property ErrorMessage() As String Get Return Me.ErrorMessageField End Get Set If (Object.ReferenceEquals(Me.ErrorMessageField, value) <> true) Then Me.ErrorMessageField = value Me.RaisePropertyChanged("ErrorMessage") End If End Set End Property _ Public Property OK() As Boolean Get Return Me.OKField End Get Set If (Me.OKField.Equals(value) <> true) Then Me.OKField = value Me.RaisePropertyChanged("OK") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ContainerResult Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject Private ContainerField As EDMIServiceReference.FileContainerInner Private ErrorMessageField As String Private OKField As Boolean _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property Container() As EDMIServiceReference.FileContainerInner Get Return Me.ContainerField End Get Set If (Object.ReferenceEquals(Me.ContainerField, value) <> true) Then Me.ContainerField = value Me.RaisePropertyChanged("Container") End If End Set End Property _ Public Property ErrorMessage() As String Get Return Me.ErrorMessageField End Get Set If (Object.ReferenceEquals(Me.ErrorMessageField, value) <> true) Then Me.ErrorMessageField = value Me.RaisePropertyChanged("ErrorMessage") End If End Set End Property _ Public Property OK() As Boolean Get Return Me.OKField End Get Set If (Me.OKField.Equals(value) <> true) Then Me.OKField = value Me.RaisePropertyChanged("OK") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class FileContainerInner Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject Private ContentsField() As Byte Private CreatedAtField As Date Private ExtensionField As String Private FileIdField As String Private UpdatedAtField As Date _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property Contents() As Byte() Get Return Me.ContentsField End Get Set If (Object.ReferenceEquals(Me.ContentsField, value) <> true) Then Me.ContentsField = value Me.RaisePropertyChanged("Contents") End If End Set End Property _ Public Property CreatedAt() As Date Get Return Me.CreatedAtField End Get Set If (Me.CreatedAtField.Equals(value) <> true) Then Me.CreatedAtField = value Me.RaisePropertyChanged("CreatedAt") End If End Set End Property _ Public Property Extension() As String Get Return Me.ExtensionField End Get Set If (Object.ReferenceEquals(Me.ExtensionField, value) <> true) Then Me.ExtensionField = value Me.RaisePropertyChanged("Extension") End If End Set End Property _ Public Property FileId() As String Get Return Me.FileIdField End Get Set If (Object.ReferenceEquals(Me.FileIdField, value) <> true) Then Me.FileIdField = value Me.RaisePropertyChanged("FileId") End If End Set End Property _ Public Property UpdatedAt() As Date Get Return Me.UpdatedAtField End Get Set If (Me.UpdatedAtField.Equals(value) <> true) Then Me.UpdatedAtField = value Me.RaisePropertyChanged("UpdatedAt") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Public Interface IEDMService _ Function Heartbeat() As Boolean _ Function HeartbeatAsync() As System.Threading.Tasks.Task(Of Boolean) _ Function CreateDatabaseRequest(ByVal Name As String, ByVal Debug As Boolean) As String _ Function CreateDatabaseRequestAsync(ByVal Name As String, ByVal Debug As Boolean) As System.Threading.Tasks.Task(Of String) _ Sub CloseDatabaseRequest() _ Function CloseDatabaseRequestAsync() As System.Threading.Tasks.Task _ Function ReturnDatatable(ByVal SQL As String) As EDMIServiceReference.TableResult _ Function ReturnDatatableAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) _ Function ReturnScalar(ByVal SQL As String) As EDMIServiceReference.ScalarResult _ Function ReturnScalarAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult) _ Function ExecuteNonQuery(ByVal SQL As String) As EDMIServiceReference.NonQueryResult _ Function ExecuteNonQueryAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult) _ Function CreateFile(ByVal Contents() As Byte, ByVal Extension As String) As String _ Function CreateFileAsync(ByVal Contents() As Byte, ByVal Extension As String) As System.Threading.Tasks.Task(Of String) _ Function UpdateFile(ByVal ContainerId As String, ByVal Contents() As Byte) As String _ Function UpdateFileAsync(ByVal ContainerId As String, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of String) _ Function GetFile(ByVal ContainerId As String) As EDMIServiceReference.ContainerResult _ Function GetFileAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ContainerResult) _ Function DeleteFile(ByVal ContainerId As String) As Boolean _ Function DeleteFileAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of Boolean) End Interface _ Public Interface IEDMServiceChannel Inherits EDMIServiceReference.IEDMService, System.ServiceModel.IClientChannel End Interface _ Partial Public Class EDMServiceClient Inherits System.ServiceModel.ClientBase(Of EDMIServiceReference.IEDMService) Implements EDMIServiceReference.IEDMService Public Sub New() MyBase.New End Sub Public Sub New(ByVal endpointConfigurationName As String) MyBase.New(endpointConfigurationName) End Sub Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) MyBase.New(endpointConfigurationName, remoteAddress) End Sub Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) MyBase.New(endpointConfigurationName, remoteAddress) End Sub Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) MyBase.New(binding, remoteAddress) End Sub Public Function Heartbeat() As Boolean Implements EDMIServiceReference.IEDMService.Heartbeat Return MyBase.Channel.Heartbeat End Function Public Function HeartbeatAsync() As System.Threading.Tasks.Task(Of Boolean) Implements EDMIServiceReference.IEDMService.HeartbeatAsync Return MyBase.Channel.HeartbeatAsync End Function Public Function CreateDatabaseRequest(ByVal Name As String, ByVal Debug As Boolean) As String Implements EDMIServiceReference.IEDMService.CreateDatabaseRequest Return MyBase.Channel.CreateDatabaseRequest(Name, Debug) End Function Public Function CreateDatabaseRequestAsync(ByVal Name As String, ByVal Debug As Boolean) As System.Threading.Tasks.Task(Of String) Implements EDMIServiceReference.IEDMService.CreateDatabaseRequestAsync Return MyBase.Channel.CreateDatabaseRequestAsync(Name, Debug) End Function Public Sub CloseDatabaseRequest() Implements EDMIServiceReference.IEDMService.CloseDatabaseRequest MyBase.Channel.CloseDatabaseRequest End Sub Public Function CloseDatabaseRequestAsync() As System.Threading.Tasks.Task Implements EDMIServiceReference.IEDMService.CloseDatabaseRequestAsync Return MyBase.Channel.CloseDatabaseRequestAsync End Function Public Function ReturnDatatable(ByVal SQL As String) As EDMIServiceReference.TableResult Implements EDMIServiceReference.IEDMService.ReturnDatatable Return MyBase.Channel.ReturnDatatable(SQL) End Function Public Function ReturnDatatableAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) Implements EDMIServiceReference.IEDMService.ReturnDatatableAsync Return MyBase.Channel.ReturnDatatableAsync(SQL) End Function Public Function ReturnScalar(ByVal SQL As String) As EDMIServiceReference.ScalarResult Implements EDMIServiceReference.IEDMService.ReturnScalar Return MyBase.Channel.ReturnScalar(SQL) End Function Public Function ReturnScalarAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult) Implements EDMIServiceReference.IEDMService.ReturnScalarAsync Return MyBase.Channel.ReturnScalarAsync(SQL) End Function Public Function ExecuteNonQuery(ByVal SQL As String) As EDMIServiceReference.NonQueryResult Implements EDMIServiceReference.IEDMService.ExecuteNonQuery Return MyBase.Channel.ExecuteNonQuery(SQL) End Function Public Function ExecuteNonQueryAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult) Implements EDMIServiceReference.IEDMService.ExecuteNonQueryAsync Return MyBase.Channel.ExecuteNonQueryAsync(SQL) End Function Public Function CreateFile(ByVal Contents() As Byte, ByVal Extension As String) As String Implements EDMIServiceReference.IEDMService.CreateFile Return MyBase.Channel.CreateFile(Contents, Extension) End Function Public Function CreateFileAsync(ByVal Contents() As Byte, ByVal Extension As String) As System.Threading.Tasks.Task(Of String) Implements EDMIServiceReference.IEDMService.CreateFileAsync Return MyBase.Channel.CreateFileAsync(Contents, Extension) End Function Public Function UpdateFile(ByVal ContainerId As String, ByVal Contents() As Byte) As String Implements EDMIServiceReference.IEDMService.UpdateFile Return MyBase.Channel.UpdateFile(ContainerId, Contents) End Function Public Function UpdateFileAsync(ByVal ContainerId As String, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of String) Implements EDMIServiceReference.IEDMService.UpdateFileAsync Return MyBase.Channel.UpdateFileAsync(ContainerId, Contents) End Function Public Function GetFile(ByVal ContainerId As String) As EDMIServiceReference.ContainerResult Implements EDMIServiceReference.IEDMService.GetFile Return MyBase.Channel.GetFile(ContainerId) End Function Public Function GetFileAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ContainerResult) Implements EDMIServiceReference.IEDMService.GetFileAsync Return MyBase.Channel.GetFileAsync(ContainerId) End Function Public Function DeleteFile(ByVal ContainerId As String) As Boolean Implements EDMIServiceReference.IEDMService.DeleteFile Return MyBase.Channel.DeleteFile(ContainerId) End Function Public Function DeleteFileAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of Boolean) Implements EDMIServiceReference.IEDMService.DeleteFileAsync Return MyBase.Channel.DeleteFileAsync(ContainerId) End Function End Class End Namespace