KONTOPRUEF-Logo
Sehen Sie sich auch mein anderes Produkt an:
myebilanz – die Freeware-eBilanz aus MySQL und CSV!
myebilanz

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
Sehen Sie sich auch mein anderes Produkt an:
myebilanz – die Freeware-eBilanz aus MySQL und CSV!
myebilanz