'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.34209 ' ' Ä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.Marke _ Public Interface DPMAregister 'CODEGEN: Es wird ein Nachrichtenvertrag generiert, da Elementname user aus Namespace http://ws.marke.register.dpma.de nicht als "nillable" (nullwertfähig) gekennzeichnet ist. _ Function search(ByVal request As DPMA.Marke.searchRequest) As DPMA.Marke.searchResponse _ Function searchAsync(ByVal request As DPMA.Marke.searchRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.searchResponse) 'CODEGEN: Es wird ein Nachrichtenvertrag generiert, da Elementname versionReturn aus Namespace http://ws.marke.register.dpma.de nicht als "nillable" (nullwertfähig) gekennzeichnet ist. _ Function version(ByVal request As DPMA.Marke.versionRequest) As DPMA.Marke.versionResponse _ Function versionAsync(ByVal request As DPMA.Marke.versionRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.versionResponse) 'CODEGEN: Es wird ein Nachrichtenvertrag generiert, da Elementname user aus Namespace http://ws.marke.register.dpma.de nicht als "nillable" (nullwertfähig) gekennzeichnet ist. _ Function getRegisterInfo(ByVal request As DPMA.Marke.getRegisterInfoRequest) As DPMA.Marke.getRegisterInfoResponse _ Function getRegisterInfoAsync(ByVal request As DPMA.Marke.getRegisterInfoRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterInfoResponse) 'CODEGEN: Es wird ein Nachrichtenvertrag generiert, da Elementname user aus Namespace http://ws.marke.register.dpma.de nicht als "nillable" (nullwertfähig) gekennzeichnet ist. _ Function getRegisterInfoBySt13Akz(ByVal request As DPMA.Marke.getRegisterInfoBySt13AkzRequest) As DPMA.Marke.getRegisterInfoBySt13AkzResponse _ Function getRegisterInfoBySt13AkzAsync(ByVal request As DPMA.Marke.getRegisterInfoBySt13AkzRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterInfoBySt13AkzResponse) 'CODEGEN: Es wird ein Nachrichtenvertrag generiert, da Elementname user aus Namespace http://ws.marke.register.dpma.de nicht als "nillable" (nullwertfähig) gekennzeichnet ist. _ Function getRegisterFullImage(ByVal request As DPMA.Marke.getRegisterFullImageRequest) As DPMA.Marke.getRegisterFullImageResponse _ Function getRegisterFullImageAsync(ByVal request As DPMA.Marke.getRegisterFullImageRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterFullImageResponse) 'CODEGEN: Es wird ein Nachrichtenvertrag generiert, da Elementname user aus Namespace http://ws.marke.register.dpma.de nicht als "nillable" (nullwertfähig) gekennzeichnet ist. _ Function getRegisterFullImageBySt13Akz(ByVal request As DPMA.Marke.getRegisterFullImageBySt13AkzRequest) As DPMA.Marke.getRegisterFullImageBySt13AkzResponse _ Function getRegisterFullImageBySt13AkzAsync(ByVal request As DPMA.Marke.getRegisterFullImageBySt13AkzRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterFullImageBySt13AkzResponse) 'CODEGEN: Es wird ein Nachrichtenvertrag generiert, da Elementname user aus Namespace http://ws.marke.register.dpma.de nicht als "nillable" (nullwertfähig) gekennzeichnet ist. _ Function getRegisterThumbnailImage(ByVal request As DPMA.Marke.getRegisterThumbnailImageRequest) As DPMA.Marke.getRegisterThumbnailImageResponse _ Function getRegisterThumbnailImageAsync(ByVal request As DPMA.Marke.getRegisterThumbnailImageRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterThumbnailImageResponse) 'CODEGEN: Es wird ein Nachrichtenvertrag generiert, da Elementname user aus Namespace http://ws.marke.register.dpma.de nicht als "nillable" (nullwertfähig) gekennzeichnet ist. _ Function getRegisterThumbnailImageBySt13Akz(ByVal request As DPMA.Marke.getRegisterThumbnailImageBySt13AkzRequest) As DPMA.Marke.getRegisterThumbnailImageBySt13AkzResponse _ Function getRegisterThumbnailImageBySt13AkzAsync(ByVal request As DPMA.Marke.getRegisterThumbnailImageBySt13AkzRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterThumbnailImageBySt13AkzResponse) End Interface _ Partial Public Class searchRequest _ Public Body As DPMA.Marke.searchRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.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.Marke.searchResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.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.Marke.versionRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.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.Marke.versionResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.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.Marke.getRegisterInfoRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.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.Marke.getRegisterInfoResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.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 _ Partial Public Class getRegisterInfoBySt13AkzRequest _ Public Body As DPMA.Marke.getRegisterInfoBySt13AkzRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.getRegisterInfoBySt13AkzRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class getRegisterInfoBySt13AkzRequestBody _ 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 getRegisterInfoBySt13AkzResponse _ Public Body As DPMA.Marke.getRegisterInfoBySt13AkzResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.getRegisterInfoBySt13AkzResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class getRegisterInfoBySt13AkzResponseBody _ Public getRegisterInfoBySt13AkzReturn As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal getRegisterInfoBySt13AkzReturn As String) MyBase.New Me.getRegisterInfoBySt13AkzReturn = getRegisterInfoBySt13AkzReturn End Sub End Class _ Partial Public Class getRegisterFullImageRequest _ Public Body As DPMA.Marke.getRegisterFullImageRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.getRegisterFullImageRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class getRegisterFullImageRequestBody _ 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 getRegisterFullImageResponse _ Public Body As DPMA.Marke.getRegisterFullImageResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.getRegisterFullImageResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class getRegisterFullImageResponseBody _ Public getRegisterFullImageReturn() As Byte Public Sub New() MyBase.New End Sub Public Sub New(ByVal getRegisterFullImageReturn() As Byte) MyBase.New Me.getRegisterFullImageReturn = getRegisterFullImageReturn End Sub End Class _ Partial Public Class getRegisterFullImageBySt13AkzRequest _ Public Body As DPMA.Marke.getRegisterFullImageBySt13AkzRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.getRegisterFullImageBySt13AkzRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class getRegisterFullImageBySt13AkzRequestBody _ 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 getRegisterFullImageBySt13AkzResponse _ Public Body As DPMA.Marke.getRegisterFullImageBySt13AkzResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.getRegisterFullImageBySt13AkzResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class getRegisterFullImageBySt13AkzResponseBody _ Public getRegisterFullImageBySt13AkzReturn() As Byte Public Sub New() MyBase.New End Sub Public Sub New(ByVal getRegisterFullImageBySt13AkzReturn() As Byte) MyBase.New Me.getRegisterFullImageBySt13AkzReturn = getRegisterFullImageBySt13AkzReturn End Sub End Class _ Partial Public Class getRegisterThumbnailImageRequest _ Public Body As DPMA.Marke.getRegisterThumbnailImageRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.getRegisterThumbnailImageRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class getRegisterThumbnailImageRequestBody _ 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 getRegisterThumbnailImageResponse _ Public Body As DPMA.Marke.getRegisterThumbnailImageResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.getRegisterThumbnailImageResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class getRegisterThumbnailImageResponseBody _ Public getRegisterThumbnailImageReturn() As Byte Public Sub New() MyBase.New End Sub Public Sub New(ByVal getRegisterThumbnailImageReturn() As Byte) MyBase.New Me.getRegisterThumbnailImageReturn = getRegisterThumbnailImageReturn End Sub End Class _ Partial Public Class getRegisterThumbnailImageBySt13AkzRequest _ Public Body As DPMA.Marke.getRegisterThumbnailImageBySt13AkzRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.getRegisterThumbnailImageBySt13AkzRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class getRegisterThumbnailImageBySt13AkzRequestBody _ 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 getRegisterThumbnailImageBySt13AkzResponse _ Public Body As DPMA.Marke.getRegisterThumbnailImageBySt13AkzResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As DPMA.Marke.getRegisterThumbnailImageBySt13AkzResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class getRegisterThumbnailImageBySt13AkzResponseBody _ Public getRegisterThumbnailImageBySt13AkzReturn() As Byte Public Sub New() MyBase.New End Sub Public Sub New(ByVal getRegisterThumbnailImageBySt13AkzReturn() As Byte) MyBase.New Me.getRegisterThumbnailImageBySt13AkzReturn = getRegisterThumbnailImageBySt13AkzReturn End Sub End Class _ Public Interface DPMAregisterChannel Inherits DPMA.Marke.DPMAregister, System.ServiceModel.IClientChannel End Interface _ Partial Public Class DPMAregisterClient Inherits System.ServiceModel.ClientBase(Of DPMA.Marke.DPMAregister) Implements DPMA.Marke.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_Marke_DPMAregister_search(ByVal request As DPMA.Marke.searchRequest) As DPMA.Marke.searchResponse Implements DPMA.Marke.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.Marke.searchRequest = New DPMA.Marke.searchRequest() inValue.Body = New DPMA.Marke.searchRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.query = query Dim retVal As DPMA.Marke.searchResponse = CType(Me,DPMA.Marke.DPMAregister).search(inValue) Return retVal.Body.searchReturn End Function _ Function DPMA_Marke_DPMAregister_searchAsync(ByVal request As DPMA.Marke.searchRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.searchResponse) Implements DPMA.Marke.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.Marke.searchResponse) Dim inValue As DPMA.Marke.searchRequest = New DPMA.Marke.searchRequest() inValue.Body = New DPMA.Marke.searchRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.query = query Return CType(Me,DPMA.Marke.DPMAregister).searchAsync(inValue) End Function _ Function DPMA_Marke_DPMAregister_version(ByVal request As DPMA.Marke.versionRequest) As DPMA.Marke.versionResponse Implements DPMA.Marke.DPMAregister.version Return MyBase.Channel.version(request) End Function Public Function version() As String Dim inValue As DPMA.Marke.versionRequest = New DPMA.Marke.versionRequest() inValue.Body = New DPMA.Marke.versionRequestBody() Dim retVal As DPMA.Marke.versionResponse = CType(Me,DPMA.Marke.DPMAregister).version(inValue) Return retVal.Body.versionReturn End Function _ Function DPMA_Marke_DPMAregister_versionAsync(ByVal request As DPMA.Marke.versionRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.versionResponse) Implements DPMA.Marke.DPMAregister.versionAsync Return MyBase.Channel.versionAsync(request) End Function Public Function versionAsync() As System.Threading.Tasks.Task(Of DPMA.Marke.versionResponse) Dim inValue As DPMA.Marke.versionRequest = New DPMA.Marke.versionRequest() inValue.Body = New DPMA.Marke.versionRequestBody() Return CType(Me,DPMA.Marke.DPMAregister).versionAsync(inValue) End Function _ Function DPMA_Marke_DPMAregister_getRegisterInfo(ByVal request As DPMA.Marke.getRegisterInfoRequest) As DPMA.Marke.getRegisterInfoResponse Implements DPMA.Marke.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.Marke.getRegisterInfoRequest = New DPMA.Marke.getRegisterInfoRequest() inValue.Body = New DPMA.Marke.getRegisterInfoRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Dim retVal As DPMA.Marke.getRegisterInfoResponse = CType(Me,DPMA.Marke.DPMAregister).getRegisterInfo(inValue) Return retVal.Body.getRegisterInfoReturn End Function _ Function DPMA_Marke_DPMAregister_getRegisterInfoAsync(ByVal request As DPMA.Marke.getRegisterInfoRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterInfoResponse) Implements DPMA.Marke.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.Marke.getRegisterInfoResponse) Dim inValue As DPMA.Marke.getRegisterInfoRequest = New DPMA.Marke.getRegisterInfoRequest() inValue.Body = New DPMA.Marke.getRegisterInfoRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Return CType(Me,DPMA.Marke.DPMAregister).getRegisterInfoAsync(inValue) End Function _ Function DPMA_Marke_DPMAregister_getRegisterInfoBySt13Akz(ByVal request As DPMA.Marke.getRegisterInfoBySt13AkzRequest) As DPMA.Marke.getRegisterInfoBySt13AkzResponse Implements DPMA.Marke.DPMAregister.getRegisterInfoBySt13Akz Return MyBase.Channel.getRegisterInfoBySt13Akz(request) End Function Public Function getRegisterInfoBySt13Akz(ByVal user As String, ByVal pwd As String, ByVal akz As String) As String Dim inValue As DPMA.Marke.getRegisterInfoBySt13AkzRequest = New DPMA.Marke.getRegisterInfoBySt13AkzRequest() inValue.Body = New DPMA.Marke.getRegisterInfoBySt13AkzRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Dim retVal As DPMA.Marke.getRegisterInfoBySt13AkzResponse = CType(Me,DPMA.Marke.DPMAregister).getRegisterInfoBySt13Akz(inValue) Return retVal.Body.getRegisterInfoBySt13AkzReturn End Function _ Function DPMA_Marke_DPMAregister_getRegisterInfoBySt13AkzAsync(ByVal request As DPMA.Marke.getRegisterInfoBySt13AkzRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterInfoBySt13AkzResponse) Implements DPMA.Marke.DPMAregister.getRegisterInfoBySt13AkzAsync Return MyBase.Channel.getRegisterInfoBySt13AkzAsync(request) End Function Public Function getRegisterInfoBySt13AkzAsync(ByVal user As String, ByVal pwd As String, ByVal akz As String) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterInfoBySt13AkzResponse) Dim inValue As DPMA.Marke.getRegisterInfoBySt13AkzRequest = New DPMA.Marke.getRegisterInfoBySt13AkzRequest() inValue.Body = New DPMA.Marke.getRegisterInfoBySt13AkzRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Return CType(Me,DPMA.Marke.DPMAregister).getRegisterInfoBySt13AkzAsync(inValue) End Function _ Function DPMA_Marke_DPMAregister_getRegisterFullImage(ByVal request As DPMA.Marke.getRegisterFullImageRequest) As DPMA.Marke.getRegisterFullImageResponse Implements DPMA.Marke.DPMAregister.getRegisterFullImage Return MyBase.Channel.getRegisterFullImage(request) End Function Public Function getRegisterFullImage(ByVal user As String, ByVal pwd As String, ByVal akz As String) As Byte() Dim inValue As DPMA.Marke.getRegisterFullImageRequest = New DPMA.Marke.getRegisterFullImageRequest() inValue.Body = New DPMA.Marke.getRegisterFullImageRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Dim retVal As DPMA.Marke.getRegisterFullImageResponse = CType(Me,DPMA.Marke.DPMAregister).getRegisterFullImage(inValue) Return retVal.Body.getRegisterFullImageReturn End Function _ Function DPMA_Marke_DPMAregister_getRegisterFullImageAsync(ByVal request As DPMA.Marke.getRegisterFullImageRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterFullImageResponse) Implements DPMA.Marke.DPMAregister.getRegisterFullImageAsync Return MyBase.Channel.getRegisterFullImageAsync(request) End Function Public Function getRegisterFullImageAsync(ByVal user As String, ByVal pwd As String, ByVal akz As String) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterFullImageResponse) Dim inValue As DPMA.Marke.getRegisterFullImageRequest = New DPMA.Marke.getRegisterFullImageRequest() inValue.Body = New DPMA.Marke.getRegisterFullImageRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Return CType(Me,DPMA.Marke.DPMAregister).getRegisterFullImageAsync(inValue) End Function _ Function DPMA_Marke_DPMAregister_getRegisterFullImageBySt13Akz(ByVal request As DPMA.Marke.getRegisterFullImageBySt13AkzRequest) As DPMA.Marke.getRegisterFullImageBySt13AkzResponse Implements DPMA.Marke.DPMAregister.getRegisterFullImageBySt13Akz Return MyBase.Channel.getRegisterFullImageBySt13Akz(request) End Function Public Function getRegisterFullImageBySt13Akz(ByVal user As String, ByVal pwd As String, ByVal akz As String) As Byte() Dim inValue As DPMA.Marke.getRegisterFullImageBySt13AkzRequest = New DPMA.Marke.getRegisterFullImageBySt13AkzRequest() inValue.Body = New DPMA.Marke.getRegisterFullImageBySt13AkzRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Dim retVal As DPMA.Marke.getRegisterFullImageBySt13AkzResponse = CType(Me,DPMA.Marke.DPMAregister).getRegisterFullImageBySt13Akz(inValue) Return retVal.Body.getRegisterFullImageBySt13AkzReturn End Function _ Function DPMA_Marke_DPMAregister_getRegisterFullImageBySt13AkzAsync(ByVal request As DPMA.Marke.getRegisterFullImageBySt13AkzRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterFullImageBySt13AkzResponse) Implements DPMA.Marke.DPMAregister.getRegisterFullImageBySt13AkzAsync Return MyBase.Channel.getRegisterFullImageBySt13AkzAsync(request) End Function Public Function getRegisterFullImageBySt13AkzAsync(ByVal user As String, ByVal pwd As String, ByVal akz As String) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterFullImageBySt13AkzResponse) Dim inValue As DPMA.Marke.getRegisterFullImageBySt13AkzRequest = New DPMA.Marke.getRegisterFullImageBySt13AkzRequest() inValue.Body = New DPMA.Marke.getRegisterFullImageBySt13AkzRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Return CType(Me,DPMA.Marke.DPMAregister).getRegisterFullImageBySt13AkzAsync(inValue) End Function _ Function DPMA_Marke_DPMAregister_getRegisterThumbnailImage(ByVal request As DPMA.Marke.getRegisterThumbnailImageRequest) As DPMA.Marke.getRegisterThumbnailImageResponse Implements DPMA.Marke.DPMAregister.getRegisterThumbnailImage Return MyBase.Channel.getRegisterThumbnailImage(request) End Function Public Function getRegisterThumbnailImage(ByVal user As String, ByVal pwd As String, ByVal akz As String) As Byte() Dim inValue As DPMA.Marke.getRegisterThumbnailImageRequest = New DPMA.Marke.getRegisterThumbnailImageRequest() inValue.Body = New DPMA.Marke.getRegisterThumbnailImageRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Dim retVal As DPMA.Marke.getRegisterThumbnailImageResponse = CType(Me,DPMA.Marke.DPMAregister).getRegisterThumbnailImage(inValue) Return retVal.Body.getRegisterThumbnailImageReturn End Function _ Function DPMA_Marke_DPMAregister_getRegisterThumbnailImageAsync(ByVal request As DPMA.Marke.getRegisterThumbnailImageRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterThumbnailImageResponse) Implements DPMA.Marke.DPMAregister.getRegisterThumbnailImageAsync Return MyBase.Channel.getRegisterThumbnailImageAsync(request) End Function Public Function getRegisterThumbnailImageAsync(ByVal user As String, ByVal pwd As String, ByVal akz As String) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterThumbnailImageResponse) Dim inValue As DPMA.Marke.getRegisterThumbnailImageRequest = New DPMA.Marke.getRegisterThumbnailImageRequest() inValue.Body = New DPMA.Marke.getRegisterThumbnailImageRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Return CType(Me,DPMA.Marke.DPMAregister).getRegisterThumbnailImageAsync(inValue) End Function _ Function DPMA_Marke_DPMAregister_getRegisterThumbnailImageBySt13Akz(ByVal request As DPMA.Marke.getRegisterThumbnailImageBySt13AkzRequest) As DPMA.Marke.getRegisterThumbnailImageBySt13AkzResponse Implements DPMA.Marke.DPMAregister.getRegisterThumbnailImageBySt13Akz Return MyBase.Channel.getRegisterThumbnailImageBySt13Akz(request) End Function Public Function getRegisterThumbnailImageBySt13Akz(ByVal user As String, ByVal pwd As String, ByVal akz As String) As Byte() Dim inValue As DPMA.Marke.getRegisterThumbnailImageBySt13AkzRequest = New DPMA.Marke.getRegisterThumbnailImageBySt13AkzRequest() inValue.Body = New DPMA.Marke.getRegisterThumbnailImageBySt13AkzRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Dim retVal As DPMA.Marke.getRegisterThumbnailImageBySt13AkzResponse = CType(Me,DPMA.Marke.DPMAregister).getRegisterThumbnailImageBySt13Akz(inValue) Return retVal.Body.getRegisterThumbnailImageBySt13AkzReturn End Function _ Function DPMA_Marke_DPMAregister_getRegisterThumbnailImageBySt13AkzAsync(ByVal request As DPMA.Marke.getRegisterThumbnailImageBySt13AkzRequest) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterThumbnailImageBySt13AkzResponse) Implements DPMA.Marke.DPMAregister.getRegisterThumbnailImageBySt13AkzAsync Return MyBase.Channel.getRegisterThumbnailImageBySt13AkzAsync(request) End Function Public Function getRegisterThumbnailImageBySt13AkzAsync(ByVal user As String, ByVal pwd As String, ByVal akz As String) As System.Threading.Tasks.Task(Of DPMA.Marke.getRegisterThumbnailImageBySt13AkzResponse) Dim inValue As DPMA.Marke.getRegisterThumbnailImageBySt13AkzRequest = New DPMA.Marke.getRegisterThumbnailImageBySt13AkzRequest() inValue.Body = New DPMA.Marke.getRegisterThumbnailImageBySt13AkzRequestBody() inValue.Body.user = user inValue.Body.pwd = pwd inValue.Body.akz = akz Return CType(Me,DPMA.Marke.DPMAregister).getRegisterThumbnailImageBySt13AkzAsync(inValue) End Function End Class End Namespace