'------------------------------------------------------------------------------ ' ' 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 NetworkService_DDEDM _ 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 NetworkService_DDEDM.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 NetworkService_DDEDM.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 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 NetworkService_DDEDM.TableResult _ Function ReturnDatatableAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of NetworkService_DDEDM.TableResult) _ Function ReturnScalar(ByVal SQL As String) As NetworkService_DDEDM.ScalarResult _ Function ReturnScalarAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of NetworkService_DDEDM.ScalarResult) _ Function ExecuteNonQuery(ByVal SQL As String) As NetworkService_DDEDM.NonQueryResult _ Function ExecuteNonQueryAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of NetworkService_DDEDM.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 NetworkService_DDEDM.ContainerResult _ Function GetFileAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of NetworkService_DDEDM.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 NetworkService_DDEDM.IEDMService, System.ServiceModel.IClientChannel End Interface _ Partial Public Class EDMServiceClient Inherits System.ServiceModel.ClientBase(Of NetworkService_DDEDM.IEDMService) Implements NetworkService_DDEDM.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 CreateDatabaseRequest(ByVal Name As String, ByVal Debug As Boolean) As String Implements NetworkService_DDEDM.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 NetworkService_DDEDM.IEDMService.CreateDatabaseRequestAsync Return MyBase.Channel.CreateDatabaseRequestAsync(Name, Debug) End Function Public Sub CloseDatabaseRequest() Implements NetworkService_DDEDM.IEDMService.CloseDatabaseRequest MyBase.Channel.CloseDatabaseRequest End Sub Public Function CloseDatabaseRequestAsync() As System.Threading.Tasks.Task Implements NetworkService_DDEDM.IEDMService.CloseDatabaseRequestAsync Return MyBase.Channel.CloseDatabaseRequestAsync End Function Public Function ReturnDatatable(ByVal SQL As String) As NetworkService_DDEDM.TableResult Implements NetworkService_DDEDM.IEDMService.ReturnDatatable Return MyBase.Channel.ReturnDatatable(SQL) End Function Public Function ReturnDatatableAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of NetworkService_DDEDM.TableResult) Implements NetworkService_DDEDM.IEDMService.ReturnDatatableAsync Return MyBase.Channel.ReturnDatatableAsync(SQL) End Function Public Function ReturnScalar(ByVal SQL As String) As NetworkService_DDEDM.ScalarResult Implements NetworkService_DDEDM.IEDMService.ReturnScalar Return MyBase.Channel.ReturnScalar(SQL) End Function Public Function ReturnScalarAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of NetworkService_DDEDM.ScalarResult) Implements NetworkService_DDEDM.IEDMService.ReturnScalarAsync Return MyBase.Channel.ReturnScalarAsync(SQL) End Function Public Function ExecuteNonQuery(ByVal SQL As String) As NetworkService_DDEDM.NonQueryResult Implements NetworkService_DDEDM.IEDMService.ExecuteNonQuery Return MyBase.Channel.ExecuteNonQuery(SQL) End Function Public Function ExecuteNonQueryAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of NetworkService_DDEDM.NonQueryResult) Implements NetworkService_DDEDM.IEDMService.ExecuteNonQueryAsync Return MyBase.Channel.ExecuteNonQueryAsync(SQL) End Function Public Function CreateFile(ByVal Contents() As Byte, ByVal Extension As String) As String Implements NetworkService_DDEDM.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 NetworkService_DDEDM.IEDMService.CreateFileAsync Return MyBase.Channel.CreateFileAsync(Contents, Extension) End Function Public Function UpdateFile(ByVal ContainerId As String, ByVal Contents() As Byte) As String Implements NetworkService_DDEDM.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 NetworkService_DDEDM.IEDMService.UpdateFileAsync Return MyBase.Channel.UpdateFileAsync(ContainerId, Contents) End Function Public Function GetFile(ByVal ContainerId As String) As NetworkService_DDEDM.ContainerResult Implements NetworkService_DDEDM.IEDMService.GetFile Return MyBase.Channel.GetFile(ContainerId) End Function Public Function GetFileAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of NetworkService_DDEDM.ContainerResult) Implements NetworkService_DDEDM.IEDMService.GetFileAsync Return MyBase.Channel.GetFileAsync(ContainerId) End Function Public Function DeleteFile(ByVal ContainerId As String) As Boolean Implements NetworkService_DDEDM.IEDMService.DeleteFile Return MyBase.Channel.DeleteFile(ContainerId) End Function Public Function DeleteFileAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of Boolean) Implements NetworkService_DDEDM.IEDMService.DeleteFileAsync Return MyBase.Channel.DeleteFileAsync(ContainerId) End Function End Class End Namespace