'------------------------------------------------------------------------------ ' ' 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 Namespace DPMA.Patent _ Public Interface DPMAregister 'CODEGEN: Es wird ein Nachrichtenvertrag generiert, da Elementname user aus Namespace http://ws.patent.register.dpma.de nicht als "nillable" (nullwertfähig) gekennzeichnet ist. _ Function search(ByVal request As DPMA.Patent.searchRequest) As DPMA.Patent.searchResponse _ Function searchAsync(ByVal request As DPMA.Patent.searchRequest) As System.Threading.Tasks.Task(Of DPMA.Patent.searchResponse) 'CODEGEN: Es wird ein Nachrichtenvertrag generiert, da Elementname versionReturn aus Namespace http://ws.patent.register.dpma.de nicht als "nillable" (nullwertfähig) gekennzeichnet ist. _ Function version(ByVal request As DPMA.Patent.versionRequest) As DPMA.Patent.versionResponse _ Function versionAsync(ByVal request As DPMA.Patent.versionRequest) As System.Threading.Tasks.Task(Of DPMA.Patent.versionResponse) 'CODEGEN: Es wird ein Nachrichtenvertrag generiert, da Elementname user aus Namespace http://ws.patent.register.dpma.de nicht als "nillable" (nullwertfähig) gekennzeichnet ist. _ Function getRegisterInfo(ByVal request As DPMA.Patent.getRegisterInfoRequest) As DPMA.Patent.getRegisterInfoResponse _ Function getRegisterInfoAsync(ByVal request As DPMA.Patent.getRegisterInfoRequest) As System.Threading.Tasks.Task(Of DPMA.Patent.getRegisterInfoResponse) End Interface _ Partial Public Class searchRequest _ Public Body As DPMA.Patent.searchRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Patent.searchRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class searchRequestBody _ Public user As String _ Public pwd As String _ Public query As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal user As String, ByVal pwd As String, ByVal query As String) MyBase.New Me.user = user Me.pwd = pwd Me.query = query End Sub End Class _ Partial Public Class searchResponse _ Public Body As DPMA.Patent.searchResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Patent.searchResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class searchResponseBody _ Public searchReturn As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal searchReturn As String) MyBase.New Me.searchReturn = searchReturn End Sub End Class _ Partial Public Class versionRequest _ Public Body As DPMA.Patent.versionRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Patent.versionRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class versionRequestBody Public Sub New() MyBase.New End Sub End Class _ Partial Public Class versionResponse _ Public Body As DPMA.Patent.versionResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Patent.versionResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class versionResponseBody _ Public versionReturn As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal versionReturn As String) MyBase.New Me.versionReturn = versionReturn End Sub End Class _ Partial Public Class getRegisterInfoRequest _ Public Body As DPMA.Patent.getRegisterInfoRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Patent.getRegisterInfoRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class getRegisterInfoRequestBody _ Public user As String _ Public pwd As String _ Public akz As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal user As String, ByVal pwd As String, ByVal akz As String) MyBase.New Me.user = user Me.pwd = pwd Me.akz = akz End Sub End Class _ Partial Public Class getRegisterInfoResponse _ Public Body As DPMA.Patent.getRegisterInfoResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Patent.getRegisterInfoResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class getRegisterInfoResponseBody _ Public getRegisterInfoReturn As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal getRegisterInfoReturn As String) MyBase.New Me.getRegisterInfoReturn = getRegisterInfoReturn End Sub End Class _ Public Interface DPMAregisterChannel Inherits DPMA.Patent.DPMAregister, System.ServiceModel.IClientChannel End Interface _ Partial Public Class DPMAregisterClient Inherits System.ServiceModel.ClientBase(Of DPMA.Patent.DPMAregister) Implements DPMA.Patent.DPMAregister 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 _ Function DPMA_Patent_DPMAregister_search(ByVal request As DPMA.Patent.searchRequest) As DPMA.Patent.searchResponse Implements DPMA.Patent.DPMAregister.search Return MyBase.Channel.search(request) End Function Public Function search(ByVal user As String, ByVal pwd As String, ByVal query As String) As String Dim inValue As DPMA.Patent.searchRequest = New DPMA.Patent.searchRequest() inValue.Body = New DPMA.Patent.searchRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.query = query Dim retVal As DPMA.Patent.searchResponse = CType(Me,DPMA.Patent.DPMAregister).search(inValue) Return retVal.Body.searchReturn End Function _ Function DPMA_Patent_DPMAregister_searchAsync(ByVal request As DPMA.Patent.searchRequest) As System.Threading.Tasks.Task(Of DPMA.Patent.searchResponse) Implements DPMA.Patent.DPMAregister.searchAsync Return MyBase.Channel.searchAsync(request) End Function Public Function searchAsync(ByVal user As String, ByVal pwd As String, ByVal query As String) As System.Threading.Tasks.Task(Of DPMA.Patent.searchResponse) Dim inValue As DPMA.Patent.searchRequest = New DPMA.Patent.searchRequest() inValue.Body = New DPMA.Patent.searchRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.query = query Return CType(Me,DPMA.Patent.DPMAregister).searchAsync(inValue) End Function _ Function DPMA_Patent_DPMAregister_version(ByVal request As DPMA.Patent.versionRequest) As DPMA.Patent.versionResponse Implements DPMA.Patent.DPMAregister.version Return MyBase.Channel.version(request) End Function Public Function version() As String Dim inValue As DPMA.Patent.versionRequest = New DPMA.Patent.versionRequest() inValue.Body = New DPMA.Patent.versionRequestBody() Dim retVal As DPMA.Patent.versionResponse = CType(Me,DPMA.Patent.DPMAregister).version(inValue) Return retVal.Body.versionReturn End Function _ Function DPMA_Patent_DPMAregister_versionAsync(ByVal request As DPMA.Patent.versionRequest) As System.Threading.Tasks.Task(Of DPMA.Patent.versionResponse) Implements DPMA.Patent.DPMAregister.versionAsync Return MyBase.Channel.versionAsync(request) End Function Public Function versionAsync() As System.Threading.Tasks.Task(Of DPMA.Patent.versionResponse) Dim inValue As DPMA.Patent.versionRequest = New DPMA.Patent.versionRequest() inValue.Body = New DPMA.Patent.versionRequestBody() Return CType(Me,DPMA.Patent.DPMAregister).versionAsync(inValue) End Function _ Function DPMA_Patent_DPMAregister_getRegisterInfo(ByVal request As DPMA.Patent.getRegisterInfoRequest) As DPMA.Patent.getRegisterInfoResponse Implements DPMA.Patent.DPMAregister.getRegisterInfo Return MyBase.Channel.getRegisterInfo(request) End Function Public Function getRegisterInfo(ByVal user As String, ByVal pwd As String, ByVal akz As String) As String Dim inValue As DPMA.Patent.getRegisterInfoRequest = New DPMA.Patent.getRegisterInfoRequest() inValue.Body = New DPMA.Patent.getRegisterInfoRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Dim retVal As DPMA.Patent.getRegisterInfoResponse = CType(Me,DPMA.Patent.DPMAregister).getRegisterInfo(inValue) Return retVal.Body.getRegisterInfoReturn End Function _ Function DPMA_Patent_DPMAregister_getRegisterInfoAsync(ByVal request As DPMA.Patent.getRegisterInfoRequest) As System.Threading.Tasks.Task(Of DPMA.Patent.getRegisterInfoResponse) Implements DPMA.Patent.DPMAregister.getRegisterInfoAsync Return MyBase.Channel.getRegisterInfoAsync(request) End Function Public Function getRegisterInfoAsync(ByVal user As String, ByVal pwd As String, ByVal akz As String) As System.Threading.Tasks.Task(Of DPMA.Patent.getRegisterInfoResponse) Dim inValue As DPMA.Patent.getRegisterInfoRequest = New DPMA.Patent.getRegisterInfoRequest() inValue.Body = New DPMA.Patent.getRegisterInfoRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Return CType(Me,DPMA.Patent.DPMAregister).getRegisterInfoAsync(inValue) End Function End Class End Namespace