Einbindung in MS-Office / ASP / Visual Basic / VBSkript etc.

Für den Einsatz unter Windows mit Microsoft-Produkten empfiehlt es sich, das sog. COM-Objekt HanftWddx zu installieren.

Grundsätzlich funktioniert die Einbindung dann immer so ähnlich wie folgt:

Dim KtoPruef as Variant
Set KtoPruef = CreateObject("HanftWddx.KtoPruef")
KtoPruef.SetProxy("mein.proxy.de", 3128) ' (evtl.)
KtoPruef.SSLMode = 1 ' nur falls gewünscht
KtoPruef.TestBlzKto("Benutzername", "Kennwort", "Bankleitzahl", "Kontonummer", "Land", 0, "")
ErgebnisAlsZahl = KtoPruef.Result
ErgebnisAlsText = KtoPruef.Resulttext
ErgebnisBankName = KtoPruef.BankName

(Das COM-Objekt für die Adreßprüfung heißt HanftWddx.Address); die Ein- und Ausgabeparameter finden Sie auf der Funktionenseite.)

Es empfiehlt sich, die HanftWddx-COM-Objekte vorab in die jeweiligen Microsoft-Anwendungen einzubinden, da dann alle Schnittstellen und Parameter nahtlos in die jeweilige Anwendung integriert sind. Dies funktioniert z.B. bei Excel wie folgt:

• Wählen Sie Extras - Makro - Visual Basic-Editor.
• In diesem VB-Editor wählen Sie Extras - Verweise.
• Kreuzen Sie in dem dort erscheinenden Fenster Hanft WDDX-Bibliothek für KtoPruef und Address an und bestätigen Sie mit Ok.
• Erzeugen Sie ein neues Modul mit z.B. folgendem Inhalt:

  Dim KtoPruef As New HanftWddx.KtoPruef
  Public Function TestBlzKto(Blz, Kto As String) As Integer
    Call KtoPruef.TestBlzKto("benutzername", "kennwort", Blz, Kto, "DE")
    TestBlzKto = KtoPruef.Result
  End Function

• Wechseln Sie vom VBA-Editor wieder in die Office-Applikation zurück. Sie können dort jetzt die hier definierte Funktion TestBlzKto als "normale" Excel-Funktion in der Tabelle verwenden (als Feldfunktion =TestBlzKto(A2;B2)).