WebServices von KONTOPRUEF

Die Online-Prüfung von Bankverbindungen und Adressen ist neben der WDDX-Variante auch per WebServices (SOAP) möglich. Eine Übersicht der Schnittstellen inkl. WSDL finden Sie unter:

http://webservices.hanft.de
https://webservices.hanft.de

Beachten Sie bitte: Die Adresse der einzelnen WebServices in der WSDL wird automatisch mit https/SSL ausgegeben, wenn Sie die WSDL mit https/SSL abrufen; ansonsten wird http ohne SSL verwendet.

Für eine genaue Beschreibung der einzelnen Methoden, Parameter und Ergebnisse in der WSDL sehen Sie bitte auf der WDDX-Seite der Bankverbindungsprüfung bzw. der Adreßprüfung nach. Dort finden Sie auch die Preistabelle - Ihre Benutzerkennung gilt gleichermaßen für das WDDX- und das WebServices-Interface, so daß Sie beide Schnittstellen ganz nach Belieben benutzen (und sogar "mischen") können.

Sie können die WebServices gleich ausprobieren – sehen Sie auf der Demo-Seite nach.

Für die Einbindung in Microsoft VisualStudio.NET können Sie die Schritt-für-Schritt-Anleitung nachvollziehen.

Eine Beispielimplementierung in der Kommandozeilenversion von VB.NET würde z.B. wie folgt aussehen:

• Importieren Sie die WSDL mit dem .NET-Programm "wsdl.exe" wie folgt:

  • wsdl /language:vb http://webservices.hanft.de/wsdl/IKtoPruef

  • wsdl /language:vb http://webservices.hanft.de/wsdl/IAddress3

  Sie erhalten dadurch die Dateien IKtoPruefService.vb und IAddress3Service.vb.

• Schreiben Sie ein VB.NET-Programm test.vb ungefähr wie folgt:

  Imports System
  Class Test
    Public Shared Sub Main()
      Dim Result as Integer
      Dim ResultText as String
      Dim Rewritten as String
      Dim BankName as String
      Dim NewBlz as String
      Dim Banken() as String
      Dim Orte() as String
      Dim AlteOrte() as String
      Dim I as Integer
  
      Dim myKtoPruef as New IKtoPruefService()
  
      ' Bankverbindungsprüfung
  
      Console.WriteLine("Bankverbindungsprüfung:")
      Result = myKtoPruef.TestBlzKto("demo", "demo", "89999999", "1234", "DE", 0, "" _
        ResultText, BankName, NewBlz)
      Console.WriteLine("  Ergebnis: " & Result.ToString())
      Console.WriteLine("  ResultText: " & ResultText)
      Console.WriteLine("  BankName: " & BankName)
      Console.WriteLine("  NewBlz: " & NewBlz)
  
      ' Kreditkartenprüfung
  
      Console.WriteLine("Kreditkartenprüfung:")
      Result = myKtoPruef.TestCc("demo", "demo", "4556000400074992", ResultText)
      Console.WriteLine("  Ergebnis: " & Result.ToString())
      Console.WriteLine("  ResultText: " & ResultText)
  
      ' Bankensuche
  
      Console.WriteLine("Bankensuche:")
      Banken = myKtoPruef.Search("demo", "demo", "Demobank Demostadt", "DE", 0)
      Select Case Banken.Length 
        Case 0: Console.WriteLine("  Ergebnis: Keine Banken gefunden.")
        Case 1: Console.WriteLine("  Ergebnis: Eine einzige Bank gefunden:")
      Case Else
        Console.WriteLine("  Ergebnis: " & _
          Banken.Length.ToString() & " Banken gefunden:")
      End Select
      For I=0 to Banken.Length-1
        Console.WriteLine("    " & Banken(I))
      Next
  
      ' Adreßprüfung
  
      Dim myAddress as New IAddress3Service()
      Console.WriteLine("Adreßprüfung:")
      Result = myAddress.CheckPlzOrt("demo", "demo", "99999", "Demodorf", 0, _
        ResultText, Rewritten, Orte, AlteOrte)
      Console.WriteLine("  Ergebnis: " & Result.ToString())
      Console.WriteLine("  ResultText: " & ResultText)
      For I=0 to Orte.Length-1
        Console.WriteLine("  Orte: " & Orte(I))
      Next
      For I=0 to AlteOrte.Length-1
        Console.WriteLine("  AlteOrte: " & AlteOrte(I))
      Next
  
    End Sub
  End Class

• Übersetzen Sie obiges Programm mit

  vbc /t:exe /r:System.dll,System.Web.dll,System.XML.dll,System.Web.Services.dll
  
     test.vb IKtoPruefService.vb IAddress3Service.vb

  (oder wie immer Sie in Ihrem Entwicklungssystem ein VB.NET-Programm übersetzen).

• Sie erhalten dann beim Programmlauf folgendes Ergebnis:

  Bankverbindungsprüfung:
    Ergebnis: 0
    ResultText: Ok
    BankName: Demo-Bank
    NewBlz:
  Kreditkartenprüfung:
    Ergebnis: 0
    ResultText: Ok
  Bankensuche:
    Ergebnis: Eine einzige Bank gefunden:
      89999999|Demobank Demostadt
  Adreßprüfung:
    Ergebnis: 4
    ResultText: Postleitzahl 99999 gilt nur für andere Orte
    Orte: Demostadt
    AlteOrte: +|Demodorf|Demostadt
    AlteOrte: -|Demohausen|Demostadt
    AlteOrte: -|Demoheim|Demostadt