<\/p>\n
Die Firma B+S Banksysteme AG bietet einen Webservice für das Onlinebanking an. Damit können Sie einfache Aktionen durchführen €“ zum Beispiel den Kontostand ermitteln, Umsätze einlesen oder überweisungen tätigen. Bislang ist der Gebrauch für Privatpersonen kostenlos, und für die geschäftliche Nutzung gibt es günstige Jahreslizenzen. Eine Einschränkung ist, dass dieser Webservice aktuell nur mit Konten funktioniert, die PIN\/TAN per HBCI anbieten. Dies ist leider nicht bei allen Kreditinsituten der Fall.<\/b><\/p>\n
Onlinebanking ist ein interessanter Anwendungsfall für Access-Datenbanken. Egal, ob Sie eine Anwendung für Kunden damit ausstatten €“ etwa eine Vereinsverwaltung €“ oder selbst eine selbst entwickelte Software nutzen möchten, um ihre eigenen Konten im überblick zu behalten und gegebenenfalls auch einmal eine überweisung zu tätigen.<\/p>\n
In Access im Unternehmen haben wir bereits die DDBAC-Komponente vorgestellt, die ebenfalls vom Hersteller B+S Banksysteme AG <\/b>stammt (zum Beispiel in Onlinebanking mit SEPA<\/b>, http:\/\/www.access-im-unternehmen.de\/898<\/b>).<\/p>\n
Während Sie diese Komponente vor der Nutzung installieren mussten, fällt dieser Aufwand bei Verwendung eines Webservice natürlich nicht an: Access liefert, ergänzt um einige externe Bibliotheken, die aber auf jedem Rechner installiert sind, alle notwendigen Werkzeuge für den Zugriff auf Webservices.<\/p>\n
Dafür muss man natürlich das Vertrauen mitbringen, dass die Daten vor der übermittlung an die Bank über den Webservice des Anbieters laufen und auf dem Rückweg ebenso (s. Bild 1).<\/p>\n
![\"Verlauf](\"..\/fileadmin\/_temp_\/2015_01\/pic_971_001.png\")
<\/p>\n
Bild 1: Verlauf einer Anfrage beim Onlinebanking per Webservice<\/span><\/b><\/p>\n Allerdings weiß man als Otto Normalverbraucher bei den gängigen Softwarepaketen, die Onlinebanking-Funktionen bereitstellen, auch nicht, über welche Wege die Daten zur Bank und zurück gelangen.<\/p>\n Schlussendlich entscheiden Sie aber selbst, ob Sie einen solchen Webservice nutzen möchten oder nicht.<\/p>\n Wir zeigen Ihnen in diesem Beitrag jedenfalls, wie dies gelingt. Sollten Sie dem Braten vorerst nicht trauen oder einfach ein wenig mit dem Webservice experimentieren wollen, können Sie auch eines der für diesen Zweck vorgesehenen Testkonten nutzen €“ mehr dazu siehe weiter hinten.<\/p>\n Was kann die Bank<\/b><\/p>\n Als Erstes wollen wir überhaupt einen Kontakt zur Bank herstellen und herausfinden, welche Möglichkeiten die Bank überhaupt über den Webservice anbietet.<\/p>\n Wie bereits erwähnt, können Sie über den Webservice nur Daten mit Banken austauschen, die PIN\/TAN als Authentifizierungsmethode anbieten €“ und wir wollen nun zunächst herausfinden, ob die gewünschte Bank dieses Feature anbietet.<\/p>\n Grundsätzlich müssen wir dazu eine geeignete SOAP-Anfrage im XML-Format an den Webservice schicken. Dieser verarbeitet die Anfrage dann und liefert die Antwort ebenfalls im XML-Format zurück.<\/p>\n Eine solche Abfrage kann beispielsweise wie in Listing 1 aussehen. Diese Abfrage enthält beispielsweise die Information, dass wir die Funktion GetBankInfo <\/b>ausführen wollen, welche als einzigen Parameter die Bankleitzahl erwartet. Diese platzieren wir in einem weiteren Element namens sBankCode<\/b>.<\/p>\n Listing 1: Abfrage an den Webservice, um die Funktionen für eine bestimmte Bank zu ermitteln<\/span><\/b><\/p>\n Wenn wir diese Anfrage an den Server schicken, erhalten wir eine Antwort, die etwa wie in Listing 2 erscheint. Auf den ersten Blick sieht das alles etwas verwirrend aus. Wenn man weiß, was man sucht, erleichtert dies die Sache jedoch erheblich. Um herauszufinden, ob die Bank Pin\/Tan anbietet, muss hier beispielsweise ein Element namens PinTanConnection vorliegen €“ genau das ist hier der Fall.<\/p>\n Listing 2: Rückmeldungen mit den Bankinformationen<\/span><\/b><\/p>\n Wenn Sie die obige Anfrage etwa für die Bankleitzahl 35040038 <\/b>gestellt hätten (Commerzbank), hätte die Antwort kein Element namens PinTanConnection <\/b>enthalten.<\/p>\n Innerhalb dieses Elements finden Sie einige Informationen, welche Daten Sie für die Authentifizierung benötigen. Darunter finden Sie die Bankleitzahl, die BIC, den Namen der Bank, die Bezeichnung für die Felder UserID <\/b>und CustomerID <\/b>sowie einige weitere Informationen.<\/p>\n Aufbau der Webservice-Anfragen <\/b><\/p>\n Wie bei jedem anderen Webservice gibt es auch für den Onlinebanking-Webservice eine Beschreibung in Form einer WDSL-Datei. Diese finden Sie unter dem folgenden Link:<\/p>\n Diese Seite zeigt den Aufbau der verschiedenen Request- und Response-Elemente des Webservice an (s. Bild 2). Mit ein wenig Erfahrung lassen sich hiermit die gewünschten Requests zusammenstellen (die Antworten liefert ohnehin der Webservice). Es gibt jedoch auch eine einfachere Möglichkeit €“ nämlich eine Software, die aus dieser Datei alle Requests ausliest und in einer Form aufbereitet, in der Sie sogar die benötigten Parameter einfügen und die Requests gegen den Webservice testen können.<\/p>\n Bild 2: Beschreibung der Requests und Responses des Webservice<\/span><\/b><\/p>\n Webservice-Anfragen testen<\/b><\/p>\n Bevor wir den Zugriff auf die Webservices per VBA programmieren, schauen wir uns eine solche Plattform an, mit der Sie die einzelnen Anfragen testen und die Antworten einsehen können.<\/p>\n Dies ist insbesondere inte-ressant, wenn beim Absenden der SOAP-Anfrage per VBA Fehler auftreten, die Sie sich nicht erklären können. In diesem Fall macht es Sinn, den Request separat über eine externe Plattform zu testen, um zu prüfen, ob es an dem Request selbst liegt.<\/p>\n Die Testplattform nennt sich SoapUI <\/b>und ist kostenlos verfügbar. Sie können dieses Tool unter soapui.org <\/b>herunterladen. Nachdem Sie es gestartet haben, können Sie mit dem Menübefehl File|New Soap Project <\/b>ein neues Projekt erstellen. Dazu erscheint ein kleiner Dialog, dem Sie die benötigten Daten für den Zugriff auf den Webservice mitteilen können (s. Bild 3).<\/p>\n Bild 3: Eingabe der Daten des Webservices in die Testoberfläche<\/span><\/b><\/p>\n Tragen Sie für das Feld Project Name <\/b>den Wert AiUOnlinebanking<\/b> ein, für InitialWDSL <\/b>die Adresse der WDSL-Datei:<\/p>\n Setzen Sie den Haken für die Option Create Requests<\/b>, die übrigen Optionen können Sie deaktivieren.<\/p>\n Nach dem Klick auf die Schaltfläche OK<\/b> ackert das Tool einige Augenblicke und präsentiert dann links in der übersicht alle Funktionen des Webservices (s. Bild 4).<\/p>\n Bild 4: Auflistung der Funktionen des Webservices<\/span><\/b><\/p>\n Wir wollen uns zunächst die einfache Funktion GetBankInfo <\/b>ansehen. Also klicken Sie mit der rechten Maustaste auf diese Funktion und wählen dort den Eintrag New Request <\/b>aus. Geben Sie als Name die Bezeichnung der Funktion ein, also GetBankInfo<\/b>.<\/p>\n SoapUI<\/b> erstellt nun ein neues Fenster, das den kompletten Request enthält €“ mit Ausnahme des einzigen Parameters sBankCode<\/b> (s. Bild 5).<\/p>\n Bild 5: Der Webservice-Request GetBankInfo<\/span><\/b><\/p>\n Den Request können Sie nach Belieben anpassen, also können Sie dort auch das einzige Fragezeichen durch den gewünschten Wert ersetzen. Wir verwenden die Test-Bankleitzahl 70000997 <\/b>und klicken dann oben links im Fenster auf die Schaltfläche mit dem grünen Pfeil. Und siehe da: Nach kurzer Wartezeit erscheint im Bereich rechts von unserem Request schon die Antwort des Webservers (s. Bild 6)!<\/p>\n Bild 6: Test eines Requests inklusive Response des Webservers<\/span><\/b><\/p>\n Die Arbeit mit SoapUI <\/b>ist wirklich so einfach, dass ich nur jedem Entwickler, der einmal den Zugriff auf einen Webservice programmiert, die Nutzung dieses Tools empfehlen kann.<\/p>\n Sollten Sie SOAP-Requests absetzen wollen, die weitere Informationen wie etwa Header-Daten oder eine Authentifizierung erfordern, nutzen Sie die Bereiche unter dem Request. <\/p>\n Dort können Sie alle benötigten Informationen hinzufügen.<\/p>\n Der Request funktioniert also wie gewünscht €“ dann können wir uns an die Umsetzung mit VBA begeben.<\/p>\n Request per VBA absetzen<\/b><\/p>\n Für den ersten Request und zum Einarbeiten bauen wir uns ein kleines Formular, in das wir den Wert für den einzigen Parameter eintragen. Mit der Schaltfläche cmdRequest <\/b>wollen wir den Request zusammenstellen und absenden sowie die Antwort des Webservers entgegennehmen. Der Request soll im Textfeld txtRequest <\/b>landen, die Response im Textfeld txtResponse<\/b> (s. Bild 7). Beide Textfelder sollen für die Eigenschaft Bildlaufleisten <\/b>den Wert Vertikal <\/b>erhalten. Sofern Sie Access 2007 oder neuer nutzen, stellen Sie auch die Eigenschaft Horizontaler Anker <\/b>für beide Textfelder auf den Wert Beide <\/b>ein.<\/p>\n Bild 7: Formular zur Ausgabe von Response und Request<\/span><\/b><\/p>\n Bevor wir mit der Programmierung beginnen, richten wir noch einen Verweis auf die Bibliothek Microsoft XML, v6.0 <\/b>im Verweise<\/b>-Dialog ein (VBA-Editor, Menübefehl Extras|Verweise<\/b>) €“ s. Bild 8.<\/p>\n Bild 8: Verweis auf die XML-Bibliothek<\/span><\/b><\/p>\n Danach stellen wir den Request zusammen €“ mit einigen Hilfsfunktionen, die den Vorgang ein wenig besser strukturieren und außerdem wiederverwendbar sind. Den Start macht die Prozedur, die durch den Mausklick auf die Schaltfläche cmdRequest <\/b>ausgelöst wird (s. Listing 3). Die Prozedur prüft zunächst, ob der Benutzer eine Bankleitzahl im korrekten Format eingegeben hat. Anderenfalls erscheint eine entsprechende Meldung. Gegen ungültige Bankleitzahlen ist die Prozedur hingegen nicht gefeit €“ es kommt lediglich ein leeres Request-Dokument zurück.<\/p>\n Listing 3: Aufruf der Webservice-Funktion GetBankInfo<\/span><\/b><\/p>\n Hat die Bankleitzahl das korrekte Format, ruft die Prozedur die Routine GetBankInfo <\/b>auf. Diese erwartet fünf Parameter, von denen zwei optional sind. Der erste erwartet die BLZ der zu untersuchenden Bank, der zweite und der dritte leere Variablen, die beim Auftreten eines Fehlers gefüllt werden. Für beiden Variablen strRequest <\/b>und strResponse <\/b>übergeben Sie ebenfalls leere String-Variablen, die dann mit dem Request und dem Response gefüllt werden.<\/p>\n Nach dem Aufruf der Routine GetBank-Info <\/b>trägt die Prozedur cmdRequest_Click <\/b>noch den erhaltenen Request und Response in die entsprechenden Textfelder zur genaueren Betrachtung ein. Dabei werden beide mit der Funktion FormatXML <\/b>formatiert, also mit Zeilenumbrüchen und Einrückungen versehen. Der Webservice liefert seine Daten nämlich komplett ohne solche Formatierungen.<\/p>\n GetBankInfo<\/b><\/p>\n Die Funktion GetBackInfo<\/b> aus Listing 4 steuert die Erstellung des Requests und sendet diesen ab €“ beides mit weiteren Hilfsfunktionen. Die Parameter dieser Funktion haben wir ja schon weiter oben beschrieben. Die Funktion speichert zunächst den Namen der Webservice-Funktion in der Variablen strFunction<\/b>. Diese übergibt sie zusammen mit dem Kern-Element des Requests an eine weitere Routine namens CreateSoapRequest<\/b>. Der Kern sieht mit der Beispiel-BLZ 70000997 <\/b>so aus:<\/p>\n Listing 4: Die Funktion GetBankInfo<\/span><\/b><\/p>\n Die Routine CreateSoapRequest <\/b>stellt aus dem Kern des XML-Dokuments und dem Namen der Funktion den Request zusammen und liefert diesen zurück.<\/p>\n Der Aufruf der Prozedur Request <\/b>ist der nächste Schritt: Diese erwartet den Request in Form der String<\/b>-Variablen strRequest <\/b>und eine leere Variable namens objXMLResponse<\/b>. Diese hat den Typ MSXML2.DOMDocument<\/b>.<\/p>\n Das mit objXMLResponse <\/b>zurückgelieferte XML-Dokument wertet die Prozedur anschließend aus. Die Funktion selectSingleNode <\/b>nimmt einen XPath<\/b>-Ausdruck (die Abfragesprache für XML-Dokumente), der in diesem Fall das Element \/\/GetBankInfoResponse <\/b>zurückliefern soll. Damit befreit die Prozedur quasi die Antwort aus dem SOAP-Umschlag, also die umschließenden SOAP-Elemente:<\/p>\n übrig bleibt dann also:<\/p>\n Das Ergebnis landet in der Variablen strResponse<\/b>. Außerdem ermittelt die Prozedur noch eventuell auftretende Fehler. Dazu verwendet sie eine Hilfsfunktion namens GetXMLElement<\/b>. Diese bietet eine einfache Möglichkeit, durch einen Einzeiler ein Element aus einem XML-Dokument auszulesen (s. Listing 5). Dies kann man zwar auch wie in der vorherigen Anweisung direkt mit der Funktion selectSingleNode <\/b>erledigen. Allerdings liefert dies einen Fehler, wenn Sie direkt auf den Inhalt dieses Elements zugreifen, dieses aber nicht gefunden werden konnte. Dies umgeht die Funktion GetXMLElement<\/b>, indem sie erst das Element mit einer Objektvariablen referenziert und dann prüft, ob die Objektvariable überhaupt gefüllt ist. Nur dann fragt die Funktion den Wert dieses Elements ab und liefert diesen als Funktionswert zurück. Anderenfalls ist eine leere Zeichenkette das Ergebnis.<\/p>\n <\/p>\n Listing 5: Die Hilfsfunktion GetXMLElement<\/span><\/b><\/p>\n Die Funktion GetBankInfo <\/b>liest also die Elemente Result\/Error\/ErrorCode <\/b>und Result\/Error\/ErrorText <\/b>und speichert die Inhalte in den Rückgabeparametern strErrorCode <\/b>und strErrorText<\/b>.<\/p>\n SOAP-Request zusammenstellen<\/b><\/p>\n Damit kommen wir zunächst zur Funktion CreateSoapRequest<\/b> (s. Listing 6). Diese steuert eine Reihe weiterer Funktionen, die den Basis-Request aus der Variablen strBasicRequest<\/b> und den Funktionsnamen zusammenstellen. Diese Funktion können wir für weitere Anfragen wiederverwenden, denn wir brauchen auch für die übrigen Requests eigentlich nur den Funktionsnamen (hier GetBankInfo<\/b>) und die paar Zeilen XML-Code mit den notwendigen Parametern.<\/p>\n Listing 6: Die Funktion CreateSoapRequest<\/span><\/b><\/p>\n Die Funktion stellt in der String<\/b>-Variablen strRequest <\/b>den Request zusammen. Den Beginn macht die Funktion Re-quest-EnvelopeStart<\/b> (s. Listing 7). Die Prozedur liefert das öffnende Element des SOAP-Umschlages €“ also in gekürzter Form etwa diese beiden Zeilen:<\/p>\n Listing 7: Die Funktion RequestEnvelopeStart<\/span><\/b><\/p>\n Danach folgt der öffnende Teil des eigentlich XML-Requests, den die Funktion RequestBodyStart<\/b> beisteuert (s. Listing 8). Diese Funktion erwartet den Namen der zu verwendenden Methode als Parameter und liefert dann diese Zeile:<\/p>\n Listing 8: Die Funktion RequestBodyStart<\/span><\/b><\/p>\n Nun folgt der eigentliche Inhalt aus der Variablen strBasicRequest<\/b>:<\/p>\n Die folgende Funktion RequestBodyEnde <\/b>(s. Listing 9) schließt den Request €“ wieder mithilfe des Wertes aus der Variablen strMethod<\/b>:<\/p>\n Listing 9: Die Funktion RequestBodyEnde<\/span><\/b><\/p>\n Nun fehlen nur noch die schließenden Elemente des SOAP-Umschlags, welche die Funktion RequestEnvelopeEnde<\/b> aus Listing 10 beisteuert:<\/p>\n Listing 10: Die Funktion RequestEnvelopeEnde<\/span><\/b><\/p>\n Dieser Request wird dann von der Funktion CreateSoapRequest <\/b>an die aufrufende Routine GetBankInfo <\/b>zurückgeschickt.<\/p>\n Request ausführen<\/b><\/p>\n Die Routine GetBankInfo <\/b>ruft nun schlussendlich die Funktion Request <\/b>auf, welche die folgenden zwei Parameter verwendet (s. Listing 11):<\/p>\n Listing 11: Die Funktion Request führt den eigentliche Request aus.<\/span><\/b><\/p>\n Die Prozedur erzeugt ein neues Objekt des Typs MSXML2.DOMDocument <\/b>und liest dann den Wert der Konstanten cURLBase <\/b>in die Variable strURL <\/b>ein.<\/p>\n Aktuell können Sie die Konstante wie folgt mit der Zieladresse versehen:<\/p>\n Diese kann sich gegebenenfalls einmal ändern €“ sollte diese also nicht mehr funktionieren, wenden Sie sich per E-Mail an info@access-im-unternehmen.de<\/b>.<\/p>\n Danach bestückt die Funktion ein ebenfalls neu erzeugtes Objekt des Typs MSXML2.XMLHTTP<\/b>, indem es zunächst die Open<\/b>-Methode aufruft und dabei den Wert post<\/b>, die URL aus strURL <\/b>und den Wert False <\/b>übergibt.<\/p>\n post <\/b>ist die übertragungsmethode und der Wert für den dritten Parameter legt fest, dass der Aufruf nicht asynchron erfolgen soll.<\/p>\n Das heißt, dass der Code angehalten wird, bis der spätere Aufruf ein Ergebnis geliefert hat.<\/p>\n Die folgenden beiden Zeilen übergeben einige Header, welche die Codierung und Länge des Requests festlegen. Schließlich schickt die send<\/b>-Methode den Request an den Webservice.<\/p>\n Nachdem diese Aufgabe erledigt wurde, kann die folgende Anweisung mit der Eigenschaft responseText <\/b>den Inhalt der Antwort ermitteln. Diesen schreibt sie gleich als XML-Code in das Objekt obj-XML-Response<\/b>, das dann als Parameter an die aufrufende Routine zurückgegeben wird €“ nebst dem Wert True <\/b>als Ergebnis der Funktion.<\/p>\n Den Rest haben Sie bereits weiter oben kennengelernt €“ die Funktion GetBank-Info <\/b>liest die benötigten Daten aus dem Response<\/b>-Dokument aus und liefert diese als Ergebnis an die aufrufende Prozedur cmdRequest_Click <\/b>des Formulars zurück. Dieses zeigt das Ergebnis dann in den beiden dafür vorgesehenen Textfeldern an (s. Bild 9).<\/p>\n Bild 9: Das Formular frmGetBankInfo mit den benötigten Informationen<\/span><\/b><\/p>\n Verwendet die Bank Pin\/Tan<\/b><\/p>\n Nun wissen wir noch nicht, ob die angesprochene Bank Pin\/Tan für Onlinebanking zulässt und somit für unseren hier vorgestellten Webservice nutzbar ist.<\/p>\n Diese Information holen wir uns noch mit ein paar zusätzlichen Zeilen, die wir an die Funktion cmdRequest_Click <\/b>anhängen (s. Listing 12).<\/p>\n<xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\">\r\n<SOAP-ENV:Envelope xmlns:SOAP-ENV=\"http:\/\/www.w3.org\/2003\/05\/soap-envelope\" ...>\r\n <SOAP-ENV:Body>\r\n <s0:GetBankInfo xmlns:s0=\"http:\/\/service.ddbac.de\/\">\r\n <s0:sBankCode>70000997<\/s0:sBankCode>\r\n <\/s0:GetBankInfo>\r\n <\/SOAP-ENV:Body>\r\n<\/SOAP-ENV:Envelope><\/pre>\n
<GetBankInfoResponse xmlns=\"http:\/\/service.ddbac.de\/\">\r\n <GetBankInfoResult>\r\n <FinTSConnection>\r\n ...\r\n <\/FinTSConnection>\r\n <PinTanConnection>\r\n <CommAddress>https:\/\/fints.datadesign.de\/j2hbci-gateway\/j2hbci\r\n <\/CommAddress>\r\n <AdressSuffix>64<\/AdressSuffix>\r\n <FinTSVersion>300<\/FinTSVersion>\r\n <UserIDName>Benutzerkennung<\/UserIDName>\r\n <CustomerIDName>Kunden ID<\/CustomerIDName>\r\n <Parameters>\r\n <ContactParameter>\r\n <ID>CountryCode<\/ID>\r\n <DefaultValue>280<\/DefaultValue>\r\n <IsVisible>true<\/IsVisible>\r\n <IsMandatory>true<\/IsMandatory>\r\n <Label>Länderkennzeichen<\/Label>\r\n <MinLength>3<\/MinLength>\r\n <MaxLength>3<\/MaxLength>\r\n <Pattern>\\d{3}<\/Pattern>\r\n <\/ContactParameter>\r\n <ContactParameter><ID>SecurityMediaDetailID<\/ID>...<\/ContactParameter>\r\n <ContactParameter><ID>HBCIVersion<\/ID>...<\/ContactParameter>\r\n <ContactParameter><ID>CommunicationsAddress<\/ID>...<\/ContactParameter>\r\n <ContactParameter><ID>CommunicationsAddressSuffix<\/ID>...\r\n <\/ContactParameter>\r\n <ContactParameter><ID>BankCode<\/ID>...<\/ContactParameter>\r\n <ContactParameter><ID>UserID<\/ID>...<\/ContactParameter>\r\n <ContactParameter><ID>CustomerID<\/ID>...<\/ContactParameter>\r\n <\/Parameters>\r\n <\/PinTanConnection>\r\n <BankCode>70000997<\/BankCode>\r\n <BIC>DDBADEMM002<\/BIC>\r\n <Bankname>B+S Banksysteme Demobank FinTS3<\/Bankname>\r\n <DefaultUserIDName>Benutzerkennung<\/DefaultUserIDName>\r\n <DefaultCustomerIDName>Kunden ID<\/DefaultCustomerIDName>\r\n <Xml>...<\/Xml>\r\n <TestSystem>true<\/TestSystem>\r\n <\/GetBankInfoResult>\r\n<\/GetBankInfoResponse><\/pre>\nhttps:\/\/service.ddbac.de\/demo\/ServiceNG.asmxWSDL<\/pre>\n
![\"Beschreibung](\"..\/fileadmin\/_temp_\/2015_01\/pic_971_002.png\")
<\/p>\n![\"Eingabe](\"..\/fileadmin\/_temp_\/2015_01\/pic_971_003.png\")
<\/p>\nhttps:\/\/service.ddbac.de\/demo\/ServiceNG.asmxWSDL<\/pre>\n
![\"Auflistung](\"..\/fileadmin\/_temp_\/2015_01\/pic_971_004.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2015_01\/pic_971_005.png\")
<\/p>\n![\"Test](\"..\/fileadmin\/_temp_\/2015_01\/pic_971_006.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2015_01\/pic_971_007.png\")
<\/p>\n![\"Verweis](\"..\/fileadmin\/_temp_\/2015_01\/pic_971_008.png\")
<\/p>\nPrivate Sub <\/span>cmdRequest_Click()\r\n Dim <\/span>strRequest As String<\/span>\r\n Dim <\/span>strResponse As String<\/span>\r\n Dim <\/span>strErrorCode As String<\/span>\r\n Dim <\/span>strErrorText As String<\/span>\r\n If <\/span>Not<\/span> (Len<\/span>(Me!txtBLZ) = 8 And IsNumeric(Me!txtBLZ)) Then<\/span>\r\n MsgBox<\/span> \"Geben Sie eine BLZ mit acht Stellen ein.\"\r\n Me!txtBLZ.SetFocus\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n GetBankInfo Me!txtBLZ, strErrorCode, strErrorText, strRequest, strResponse\r\n Me!txtRequest = FormatXML(strRequest)\r\n Me!txtResponse = FormatXML(strResponse)\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>GetBankInfo(strBLZ As String<\/span>, strErrorCode As String<\/span>, _\r\n strErrorText As String<\/span>, Optional<\/span> strRequest As String<\/span>, _\r\n Optional<\/span> strResponse As String<\/span>) As String<\/span>\r\n Dim <\/span>objXMLResponse As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>strFunction As String<\/span>\r\n strFunction = \"GetBankInfo\"\r\n strRequest = CreateSoapRequest(\" <ser:sBankCode>\" & strBLZ _\r\n & \"<\/ser:sBankCode>\", strFunction)\r\n Request strRequest, objXMLResponse\r\n strResponse = objXMLResponse.selectSingleNode(\"\/\/\" & strFunction & \"Response\").XML\r\n strErrorCode = GetXMLElement(strResponse, strFunction & \"Result\/Error\/ErrorCode\")\r\n strErrorText = GetXMLElement(strResponse, strFunction & \"Result\/Error\/ErrorText\")\r\n GetBankInfo = GetXMLElement(strResponse, strFunction & \"Result\")\r\nEnd Function<\/span><\/pre>\n<ser:sBankCode>70000997<\/ser:sBankCode>\"<\/pre>\n
<xml version=\"1.0\">\r\n<soap:Envelope ...>\r\n <soap:Body>\r\n <GetBankInfoResponse ...>\r\n <GetBankInfoResult>\r\n ...\r\n <\/GetBankInfoResult>\r\n <\/GetBankInfoResponse>\r\n <\/soap:Body>\r\n<\/soap:Envelope><\/pre>\n
<GetBankInfoResponse ...>\r\n <GetBankInfoResult>\r\n ...\r\n <\/GetBankInfoResult>\r\n<\/GetBankInfoResponse><\/pre>\n
Public Function <\/span>GetXMLElement(strXML As String<\/span>, strElement As String<\/span>)\r\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>objElement As <\/span>MSXML2.IXMLDOMNode\r\n Dim <\/span>objNode As <\/span>MSXML2.IXMLDOMNode\r\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument\r\n objXML.loadXML strXML\r\n Set<\/span> objElement = objXML.documentElement\r\n Set<\/span> objNode = objElement.selectSingleNode(strElement)\r\n If <\/span>Not<\/span> objNode Is Nothing Then<\/span>\r\n GetXMLElement = objNode.nodeTypedValue\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>CreateSoapRequest(strBasicRequest As String<\/span>, strFunction As String<\/span>) As String<\/span>\r\n Dim <\/span>strRequest As String<\/span>\r\n strRequest = RequestEnvelopeStart\r\n strRequest = strRequest & RequestBodyStart(strFunction)\r\n strRequest = strRequest & strBasicRequest & vbCrLf<\/span>\r\n strRequest = strRequest & RequestBodyEnde(strFunction)\r\n strRequest = strRequest & RequestEnvelopeEnde\r\n CreateSoapRequest = strRequest\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>RequestEnvelopeStart() As String<\/span>\r\n Dim <\/span>strRequest As String<\/span>\r\n strRequest = strRequest _\r\n & \"<soapenv:Envelope xmlns:soapenv=\"\"http:\/\/schemas.xmlsoap.org\/soap\/envelope\/\"\" \" _\r\n & \"xmlns:ser=\"\"http:\/\/service.ddbac.de\/\"\">\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" <soapenv:Body>\" & vbCrLf<\/span>\r\n RequestEnvelopeStart = strRequest\r\nEnd Function<\/span><\/pre>\n<soapenv:Envelope ...>\r\n <soapenv:Body><\/pre>\n
Public Function <\/span>RequestBodyStart(strMethod As String<\/span>) As String<\/span>\r\n Dim <\/span>strRequest As String<\/span>\r\n strRequest = strRequest & \" <ser:\" & strMethod & \">\" & vbCrLf<\/span>\r\n RequestBodyStart = strRequest\r\nEnd Function<\/span><\/pre>\n <ser:GetBankInfo><\/pre>\n
<ser:sBankCode>70000997<\/ser:sBankCode>\"<\/pre>\n
Public Function <\/span>RequestBodyEnde(strMethod As String<\/span>) As String<\/span>\r\n Dim <\/span>strRequest As String<\/span>\r\n strRequest = strRequest & \" <\/ser:\" & strMethod & \">\" & vbCrLf<\/span>\r\n RequestBodyEnde = strRequest\r\nEnd Function<\/span><\/pre>\n<ser:sBankCode>70000997<\/ser:sBankCode>\"<\/pre>\n
Public Function <\/span>RequestEnvelopeEnde() As String<\/span>\r\n Dim <\/span>strRequest As String<\/span>\r\n strRequest = strRequest & \" <\/soapenv:Body>\" & vbCrLf<\/span>\r\n strRequest = strRequest & \"<\/soapenv:Envelope>\" & vbCrLf<\/span>\r\n RequestEnvelopeEnde = strRequest\r\nEnd Function<\/span><\/pre>\n <\/soapenv:Body>\r\n<\/soapenv:Envelope><\/pre>\n
Public Function <\/span>Request(strRequest As String<\/span>, objXMLResponse As <\/span>MSXML2.DOMDocument) _\r\n As Boolean<\/span>\r\n Dim <\/span>strURL As String<\/span>\r\n Dim <\/span>objXMLHTTP As <\/span>MSXML2.XMLHTTP60\r\n Set<\/span> objXMLHTTP = New<\/span> MSXML2.XMLHTTP60\r\n Set<\/span> objXMLResponse = New<\/span> MSXML2.DOMDocument\r\n strURL = cURLBase\r\n With<\/span> objXMLHTTP\r\n .Open \"post\", strURL, False<\/span>\r\n .setRequestHeader \"Content-Type\", \"text\/xml; charset=utf-8\"\r\n .setRequestHeader \"Content-Length\", Len<\/span>(strRequest)\r\n .send strRequest\r\n objXMLResponse.loadXML .responseText\r\n Request = True<\/span>\r\n End With<\/span>\r\nEnd Function<\/span><\/pre>\n\n
Public <\/span>Const cURLBase As String<\/span> = \r\n\"https:\/\/service.ddbac.de\/demo\/ServiceNG.asmx\"<\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2015_01\/pic_971_009.png\")
<\/p>\nPrivate Sub <\/span>cmdRequest_Click()\r\n ...\r\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>objNode As <\/span>MSXML2.IXMLDOMNode\r\n ....\r\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument\r\n objXML.loadXML strResponse\r\n Set<\/span> objNode = objXML.selectSingleNode(\"\/\/PinTanConnection\")\r\n If <\/span>Not<\/span> objNode Is Nothing Then<\/span>\r\n MsgBox<\/span> \"Die Bank ist Webservice-fähig.\"\r\n Else<\/span>\r\n MsgBox<\/span> \"Die Bank ist nicht Webservice-fähig.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n