Imports BrainpoolXmlParser.DPMA.Marke
Imports System.Xml

Public Class DPMAConnect
    Private _service As DPMAregisterClient
    Private _user As String
    Private _pass As String

    Public Sub New(username As String, password As String)
        _user = username
        _pass = password

        _service = New DPMAregisterClient()
        _service.Open()
    End Sub

    Public Function Search(query As String) As XmlDocument
        Dim doc As New XmlDocument()
        Dim xmlstring As String

        Try
            xmlstring = _service.search(_user, _pass, query)
            doc.LoadXml(xmlstring)

            Dim ErrorMessage = doc.SelectSingleNode("Hitlist/ErrorMessage")
            If Not IsNothing(ErrorMessage) Then
                Throw New Exception(ErrorMessage.InnerText)
            End If

        Catch ex As Exception
            Throw ex
        End Try

        Return doc
    End Function

    Public Function GetRegisterInfo(aktenzeichen As String) As XmlDocument
        Dim doc As New XmlDocument()
        Dim xmlstring As String

        Try
            xmlstring = _service.getRegisterInfo(_user, _pass, aktenzeichen)
            'xmlstring = _service.getRegisterInfoBySt13Akz(_user, _pass, aktenzeichen)
            doc.LoadXml(xmlstring)
        Catch ex As Exception
            Throw ex
        End Try

        Return doc
    End Function
End Class