'------------------------------------------------------------------------------ ' ' 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 IDBServiceReference _ Partial Public Class BaseResult 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 ScalarResult Inherits IDBServiceReference.BaseResult _ Private ScalarField As Object _ 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 End Class _ Partial Public Class NonQueryResult Inherits IDBServiceReference.BaseResult End Class _ Partial Public Class DocumentResult Inherits IDBServiceReference.BaseResult Private ContentsField() As Byte Private DocumentField As IDBServiceReference.DocumentObject Private HasContentsField As Boolean _ 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 Document() As IDBServiceReference.DocumentObject Get Return Me.DocumentField End Get Set If (Object.ReferenceEquals(Me.DocumentField, value) <> true) Then Me.DocumentField = value Me.RaisePropertyChanged("Document") End If End Set End Property _ Public Property HasContents() As Boolean Get Return Me.HasContentsField End Get Set If (Me.HasContentsField.Equals(value) <> true) Then Me.HasContentsField = value Me.RaisePropertyChanged("HasContents") End If End Set End Property End Class _ Partial Public Class DocumentResult2 Inherits IDBServiceReference.BaseResult Private ContentsField() As Byte Private DocumentField As IDBServiceReference.DocumentResult2.DocumentObject Private HasContentsField As Boolean _ 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 Document() As IDBServiceReference.DocumentResult2.DocumentObject Get Return Me.DocumentField End Get Set If (Object.ReferenceEquals(Me.DocumentField, value) <> true) Then Me.DocumentField = value Me.RaisePropertyChanged("Document") End If End Set End Property _ Public Property HasContents() As Boolean Get Return Me.HasContentsField End Get Set If (Me.HasContentsField.Equals(value) <> true) Then Me.HasContentsField = value Me.RaisePropertyChanged("HasContents") End If End Set End Property _ Partial Public Class DocumentObject Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private FileNameField As String 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 FileName() As String Get Return Me.FileNameField End Get Set If (Object.ReferenceEquals(Me.FileNameField, value) <> true) Then Me.FileNameField = value Me.RaisePropertyChanged("FileName") 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 End Class _ Partial Public Class IndexResult Inherits IDBServiceReference.BaseResult Private IndexIdField As Long _ Public Property IndexId() As Long Get Return Me.IndexIdField End Get Set If (Me.IndexIdField.Equals(value) <> true) Then Me.IndexIdField = value Me.RaisePropertyChanged("IndexId") End If End Set End Property End Class _ Partial Public Class TableResult Inherits IDBServiceReference.BaseResult _ Private TableField As System.Data.DataTable _ 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 End Class _ Partial Public Class DocumentObject Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject Private ContainerIdField As String Private DocumentIdField As Long Private FileNameField As String _ 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 ContainerId() As String Get Return Me.ContainerIdField End Get Set If (Object.ReferenceEquals(Me.ContainerIdField, value) <> true) Then Me.ContainerIdField = value Me.RaisePropertyChanged("ContainerId") End If End Set End Property _ Public Property DocumentId() As Long Get Return Me.DocumentIdField End Get Set If (Me.DocumentIdField.Equals(value) <> true) Then Me.DocumentIdField = value Me.RaisePropertyChanged("DocumentId") End If End Set End Property _ Public Property FileName() As String Get Return Me.FileNameField End Get Set If (Object.ReferenceEquals(Me.FileNameField, value) <> true) Then Me.FileNameField = value Me.RaisePropertyChanged("FileName") 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 IIDBService _ 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 IDBServiceReference.TableResult _ Function ReturnDatatableAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.TableResult) _ Function ReturnScalar(ByVal SQL As String) As IDBServiceReference.ScalarResult _ Function ReturnScalarAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.ScalarResult) _ Function ExecuteNonQuery(ByVal SQL As String) As IDBServiceReference.NonQueryResult _ Function ExecuteNonQueryAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.NonQueryResult) _ Function NewFile(ByVal FileName As String, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult _ Function NewFileAsync(ByVal FileName As String, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) _ Function UpdateFile(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult _ Function UpdateFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) _ Function GetFile(ByVal DocObject As IDBServiceReference.DocumentObject) As IDBServiceReference.DocumentResult _ Function GetFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) _ Function DeleteFile(ByVal DocObject As IDBServiceReference.DocumentObject) As Boolean _ Function DeleteFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of Boolean) _ Function ImportFile(ByVal FileInfo As System.IO.FileInfo, ByVal Contents() As Byte, ByVal [ReadOnly] As Boolean, ByVal RetentionTime As Integer) As IDBServiceReference.DocumentResult2 _ Function ImportFileAsync(ByVal FileInfo As System.IO.FileInfo, ByVal Contents() As Byte, ByVal [ReadOnly] As Boolean, ByVal RetentionTime As Integer) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult2) _ Function GetDocumentByDocumentId(ByVal DocumentId As Long) As IDBServiceReference.DocumentResult _ Function GetDocumentByDocumentIdAsync(ByVal DocumentId As Long) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) _ Function GetDocumentByContainerId(ByVal ContainerId As String) As IDBServiceReference.DocumentResult _ Function GetDocumentByContainerIdAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) _ Function NewFileIndex(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As IDBServiceReference.IndexResult _ Function NewFileIndexAsync(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As System.Threading.Tasks.Task(Of IDBServiceReference.IndexResult) End Interface _ Public Interface IIDBServiceChannel Inherits IDBServiceReference.IIDBService, System.ServiceModel.IClientChannel End Interface _ Partial Public Class IDBServiceClient Inherits System.ServiceModel.ClientBase(Of IDBServiceReference.IIDBService) Implements IDBServiceReference.IIDBService 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 IDBServiceReference.IIDBService.Heartbeat Return MyBase.Channel.Heartbeat End Function Public Function HeartbeatAsync() As System.Threading.Tasks.Task(Of Boolean) Implements IDBServiceReference.IIDBService.HeartbeatAsync Return MyBase.Channel.HeartbeatAsync End Function Public Function CreateDatabaseRequest(ByVal Name As String, ByVal Debug As Boolean) As String Implements IDBServiceReference.IIDBService.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 IDBServiceReference.IIDBService.CreateDatabaseRequestAsync Return MyBase.Channel.CreateDatabaseRequestAsync(Name, Debug) End Function Public Sub CloseDatabaseRequest() Implements IDBServiceReference.IIDBService.CloseDatabaseRequest MyBase.Channel.CloseDatabaseRequest End Sub Public Function CloseDatabaseRequestAsync() As System.Threading.Tasks.Task Implements IDBServiceReference.IIDBService.CloseDatabaseRequestAsync Return MyBase.Channel.CloseDatabaseRequestAsync End Function Public Function ReturnDatatable(ByVal SQL As String) As IDBServiceReference.TableResult Implements IDBServiceReference.IIDBService.ReturnDatatable Return MyBase.Channel.ReturnDatatable(SQL) End Function Public Function ReturnDatatableAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.TableResult) Implements IDBServiceReference.IIDBService.ReturnDatatableAsync Return MyBase.Channel.ReturnDatatableAsync(SQL) End Function Public Function ReturnScalar(ByVal SQL As String) As IDBServiceReference.ScalarResult Implements IDBServiceReference.IIDBService.ReturnScalar Return MyBase.Channel.ReturnScalar(SQL) End Function Public Function ReturnScalarAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.ScalarResult) Implements IDBServiceReference.IIDBService.ReturnScalarAsync Return MyBase.Channel.ReturnScalarAsync(SQL) End Function Public Function ExecuteNonQuery(ByVal SQL As String) As IDBServiceReference.NonQueryResult Implements IDBServiceReference.IIDBService.ExecuteNonQuery Return MyBase.Channel.ExecuteNonQuery(SQL) End Function Public Function ExecuteNonQueryAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.NonQueryResult) Implements IDBServiceReference.IIDBService.ExecuteNonQueryAsync Return MyBase.Channel.ExecuteNonQueryAsync(SQL) End Function Public Function NewFile(ByVal FileName As String, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.NewFile Return MyBase.Channel.NewFile(FileName, Contents) End Function Public Function NewFileAsync(ByVal FileName As String, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.NewFileAsync Return MyBase.Channel.NewFileAsync(FileName, Contents) End Function Public Function UpdateFile(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.UpdateFile Return MyBase.Channel.UpdateFile(DocObject, Contents) End Function Public Function UpdateFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.UpdateFileAsync Return MyBase.Channel.UpdateFileAsync(DocObject, Contents) End Function Public Function GetFile(ByVal DocObject As IDBServiceReference.DocumentObject) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.GetFile Return MyBase.Channel.GetFile(DocObject) End Function Public Function GetFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.GetFileAsync Return MyBase.Channel.GetFileAsync(DocObject) End Function Public Function DeleteFile(ByVal DocObject As IDBServiceReference.DocumentObject) As Boolean Implements IDBServiceReference.IIDBService.DeleteFile Return MyBase.Channel.DeleteFile(DocObject) End Function Public Function DeleteFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of Boolean) Implements IDBServiceReference.IIDBService.DeleteFileAsync Return MyBase.Channel.DeleteFileAsync(DocObject) End Function Public Function ImportFile(ByVal FileInfo As System.IO.FileInfo, ByVal Contents() As Byte, ByVal [ReadOnly] As Boolean, ByVal RetentionTime As Integer) As IDBServiceReference.DocumentResult2 Implements IDBServiceReference.IIDBService.ImportFile Return MyBase.Channel.ImportFile(FileInfo, Contents, [ReadOnly], RetentionTime) End Function Public Function ImportFileAsync(ByVal FileInfo As System.IO.FileInfo, ByVal Contents() As Byte, ByVal [ReadOnly] As Boolean, ByVal RetentionTime As Integer) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult2) Implements IDBServiceReference.IIDBService.ImportFileAsync Return MyBase.Channel.ImportFileAsync(FileInfo, Contents, [ReadOnly], RetentionTime) End Function Public Function GetDocumentByDocumentId(ByVal DocumentId As Long) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.GetDocumentByDocumentId Return MyBase.Channel.GetDocumentByDocumentId(DocumentId) End Function Public Function GetDocumentByDocumentIdAsync(ByVal DocumentId As Long) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.GetDocumentByDocumentIdAsync Return MyBase.Channel.GetDocumentByDocumentIdAsync(DocumentId) End Function Public Function GetDocumentByContainerId(ByVal ContainerId As String) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.GetDocumentByContainerId Return MyBase.Channel.GetDocumentByContainerId(ContainerId) End Function Public Function GetDocumentByContainerIdAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.GetDocumentByContainerIdAsync Return MyBase.Channel.GetDocumentByContainerIdAsync(ContainerId) End Function Public Function NewFileIndex(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As IDBServiceReference.IndexResult Implements IDBServiceReference.IIDBService.NewFileIndex Return MyBase.Channel.NewFileIndex(DocObject, Syskey, LanguageCode, Value) End Function Public Function NewFileIndexAsync(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As System.Threading.Tasks.Task(Of IDBServiceReference.IndexResult) Implements IDBServiceReference.IIDBService.NewFileIndexAsync Return MyBase.Channel.NewFileIndexAsync(DocObject, Syskey, LanguageCode, Value) End Function End Class End Namespace