<\/p>\n
Manchmal kann es nützlich sein, Informationen über das Internet bereitzustellen – und damit ist diesmal nicht der Zugriff auf eine Datenbank auf einem Webserver gemeint. In diesem Fall soll eine Anwendung etwa selbst ermitteln können, ob es ein Update für sie gibt, oder sie soll Informationen wie etwa Registrierungsdaten zum Webserver des Benutzers übermitteln. Dieser Beitrag stellt eine kleine Lösung bereit, mit der Sie die notwendigen Daten auf einem Webserver bereitstellen, und zeigt, wie Sie diese Informationen per Access-Datenbank auslesen.<\/b><\/p>\n
Dabei soll die Informationsbeschaffung keine Einbahnstraße sein: Ziel der Lösung dieses Beitrags ist es zunächst, dass Sie von einer Access-Anwendung aus eine Anfrage an einen Webserver schicken können.<\/p>\n
Diese Anfrage soll aber durchaus auch noch Parameter enthalten können, die dann von einem entsprechenden Algorithmus auf dem Webserver ausgewertet und entsprechend beantwortet werden können.<\/p>\n
PHP als Programmiersprache<\/b><\/p>\n
Die in diesem Beitrag vorgestellte Lösung basiert serverseitig auf der Sprache PHP. Auch, wenn Sie sich als Leser dieses Magazins zumindest als Anwender von Microsoft-Produkten zu erkennen geben, scheinen die meisten Webanwendungen auf Unix\/Linux-Servern zu laufen – dementsprechend ist die Chance, dass Sie die Möglichkeit zum Ausprobieren dieser Lösung auf einem Server mit PHP haben, relativ hoch. Die Portierung des hier vorgestellten, einfachen Codes auf eine andere Sprache sollte jedoch nicht allzu kompliziert sein.<\/p>\n
Webservice light<\/b><\/p>\n
Normalerweise verwendet man für solche Anforderungen einen Webservice. Dies ist jedoch nicht ganz trivial, sodass wir eine etwas vereinfachte Variante eines Webservice nutzen möchten, die auf einer einzigen .php<\/b>-Seite basiert.<\/p>\n
Die .php<\/b>-Seite soll dabei die von der Anwendung abgeschickten Parameter auswerten und eine entsprechende Antwort zurücksenden.<\/p>\n
Im einfachsten Fall sieht das wie folgt aus: Sie schicken vom Rechner aus eine Anfrage ab, die beispielsweise http:\/\/www.acciu.de\/zeit.php <\/b>lautet. Der Webserver soll dann ein XML-Dokument zurücksenden, das etwa so aussieht:<\/p>\n Dieses Dokument können wir mithilfe der MSXML-Bibliothek anschließend leicht auswerten.<\/p>\n Unser einfacher Webservice soll jedoch auch Parameter verarbeiten können. Diese werden beim Aufruf an den Link angehängt – zum Beispiel so:<\/p>\n Die Webseite update.php <\/b>soll nun anhand der übermittelten Version prüfen, ob es eine neuere Version gibt, und gegebenenfalls einen Link auf die neue Version übermitteln (den Ausdruck <Webadresse> <\/b>in diesem und den folgenden Beispielen ersetzen Sie durch die entsprechende Webseite, beispielsweise http:\/\/www.access-im-unternehmen.de\/index.php<\/b>).<\/p>\n Auch solche Anforderungen kann unser im Anschluss vorgestellter Webservice light erledigen – grundsätzlich gibt es kaum Grenzen, sofern Sie sich die Programmierung der wenigen notwendigen PHP-Codezeilen zutrauen und auf einen Webserver mit PHP zugreifen können.<\/p>\n Technik zum Anfragen der XML-Antworten<\/b><\/p>\n Der erste interessante Teil der Implementierung ist die Übertragung der Webadresse mit den Parametern zum Webserver und das Auslesen der Antwort auf diese Anfrage.<\/p>\n Diese Technik können Sie grundsätzlich verwenden, um beliebige Webseiteninhalte oder auch Dateien herunterzuladen. Die erste Variante dieser Funktion sieht wie in Listing 1<\/a><\/span> aus und erwartet den Link zur einzulesenden Datei als Parameter. Sie liefert den Quellcode dieser Datei zurück:<\/p>\n Listing 1: Einfache Routine zum Herunterladen von Quelltexten<\/p>\n Dazu verwendet sie das Objekt XMLHTTP <\/b>der Bibliothek Microsoft XML, Version x.0<\/b>, wobei x.0 <\/b>für die neueste verfügbare Version steht (aktuell 6.0<\/b>).<\/p>\n Dieses Objekt erlaubt es beispielsweise, Anfragen an einen Webserver zu senden und das von diesem gelieferte Resultat weiterzuverarbeiten. In diesem Falle rufen Sie die Anwendung beispielsweise so auf:<\/p>\n Dies gibt, im Direktfenster eingesetzt, beispielsweise den kompletten Quelltext der angegebenen Internetseite aus.<\/p>\n Wenn Sie nun beispielsweise die aktuelle Version einer Software damit über das Internet verfügbar machen möchten, würden Sie etwa eine Datei wie die folgende mit der Nummer der aktuellsten Version auf einen Webserver legen:<\/p>\n <\/p>\n Dann können Sie die Funktion DownloadText <\/b>mit der Routine AktuelleVersionErmitteln <\/b>aufrufen (s. Listing 2<\/a><\/span>) und aus der gelieferten XML-Datei den Wert des Elements currentVersion <\/b>auslesen.<\/p>\n Listing 2: Herunterladen und Auslesen einer bestimmten XML-Datei vom Webserver<\/p>\n Bis hierhin kommen Sie sogar noch ohne PHP über die Runden – die Datei können Sie als .xml<\/b>– oder auch als .html<\/b>-Datei auf den Webserver legen. Wichtig ist nur, dass das Verzeichnis dieser Datei öffentlich zugreifbar ist.<\/p>\n Interaktiv<\/b><\/p>\n Interessanter wird es, wenn der Webserver selbst die Antwort auf die Anfrage erst per PHP-Skript erstellen soll. Im Beitrag Registrierung von Anwendungen<\/b> (www.access-im-unternehmen.de\/797 <\/b>soll an einer Stelle das aktuelle Datum ermittelt werden, um der Manipulation beim Registrieren einer Anwendung vorzubeugen.<\/p>\n Dies setzt voraus, dass das PHP-Skript das Datum mit einer entsprechenden Prozedur ermittelt und erst dann das XML-Dokument mit dem Ergebnis zurücksendet.<\/p>\n Das PHP-Skript sieht wie folgt aus:<\/p>\n Das Auslesen übernimmt diesmal die Funktion aus Listing 3<\/a><\/span>.<\/p>\n Listing 3: Auslesen des aktuellen Datums im Format d.m.Y<\/p>\n Interaktiver<\/b><\/p>\n Im vorherigen Beispiel hat der Webserver einen Wert dynamisch ermittelt und diesen zurückgegeben. Nun gehen wir einen Schritt weiter: Die Anfrage selbst soll Parameter enthalten, die vom PHP-Skript ausgewertet werden und auf die das Skript entsprechend reagiert. In einem einfachen Beispiel übergeben wir zwei Zahlen, die das PHP-Skript addieren soll. Der Aufruf soll etwa so lauten:<\/p>\n Parameter hängen Sie an eine Webadresse an, indem Sie zunächst das Fragezeichen hinzufügen und dahinter eine durch das Kaufmanns-Und separierte Liste von Name-Wert-Paaren hinzufügen.<\/p>\n Die Funktion aus Listing 4<\/a><\/span> stellt einen solchen Ausdruck zusammen und sendet ihn an den Webserver.<\/p>\n Listing 4: Durchführen einer Berechnung durch ein PHP-Skript<\/p>\n Dort werkelt das folgende PHP-Skript und stellt das Ergebnis zusammen:<\/p>\n Der Ausdruck $GET[“zahl1′]<\/b> ermittelt den Wert des Parameters zahl1 <\/b>des Aufrufs, $GET[“zahl1′]<\/b>, entsprechend den von zahl2<\/b>. Die Summe schreibt die folgende Anweisung in die Variable $result<\/b>. Diese wird wiederum in das mit der echo<\/b>-Anweisung ausgegebene XML-Dokument eingebettet.<\/p>\n Wenn das PHP-Skript seinen Dienst getan hat, wird das Ergebnis an die aufrufende Prozedur geschickt und dort in ein XML-Dokument geladen.<\/p>\n Mit der Funktion selectSingleNode <\/b>ermittelt die Prozedur schließlich den Wert des Elements add\/result<\/b> und gibt diesen an die aufrufende Prozedur zurück.<\/p>\n Dateien statt XML-Dokumente<\/b><\/p>\n Die hier vorgestellte Technik erlaubt auch den Download kompletter Dateien. Dies ist besonders dann interessant, wenn Sie von einer bei einem Benutzer installierten Anwendung aus noch Komponenten nachladen oder auch eine neue Version herunterladen möchten.<\/p>\n<xml version=''1.0''>\r\n<zeit>18:37:20<\/zeit><\/pre>\n
<Webadresse>\/update.phpversion=1.0.0.3<\/pre>\n
Public Function DownloadText(ByVal strDateiadresse As String) As Text\r\n Dim objXMLHTTP As MSXML2.XMLHTTP\r\n Set objXMLHTTP = New MSXML2.XMLHTTP\r\n With objXMLHTTP\r\n .Open "GET", strDateiadresse, True\r\n .send\r\n Do While Not .ReadyState = 4\r\n DoEvents\r\n Loop\r\n DownloadText = .responseText\r\n End With\r\nEnd Function<\/pre>\n
Debug.Print DownloadText("http:\/\/www.access-im-unternehmen.de")<\/pre>\n<xml version=''1.0''>\r\n<currentVersion>1.0.0.3<\/currentVersion><\/pre>\n
Public Function AktuelleVersionErmitteln() As String\r\n Dim objXML As MSXML2.DOMDocument\r\n Dim strXML As String\r\n Dim strVersion As String\r\n Set objXML = New MSXML2.DOMDocument\r\n strXML = DownloadText("http:\/\/<Webadresse>\/currentVersion.xml")\r\n objXML.loadXML strXML\r\n strVersion = objXML.selectSingleNode("currentVersion").nodeTypedValue\r\n AktuelleVersionErmitteln = strVersion\r\nEnd Function<\/pre>\n<php\r\n $date = date("d-m-Y");\r\n echo "<xml version=''1.0''>";\r\n echo "<currentDate>" . $date . "<\/currentDate>";\r\n><\/pre>\nPublic Function AktuellesDatumErmitteln() As String\r\n Dim objXML As MSXML2.DOMDocument\r\n Dim strXML As String\r\n Dim strVersion As String\r\n Set objXML = New MSXML2.DOMDocument\r\n strXML = DownloadText("http:\/\/<Webadresse>\/ws.php")\r\n objXML.loadXML strXML\r\n strVersion = objXML.selectSingleNode("currentDate").nodeTypedValue\r\n AktuellesDatumErmitteln = strVersion\r\nEnd Function<\/pre>\n<Webadresse>.add.phpzahl1=1&zahl2=2<\/pre>\n
Public Function Summe(intZahl1 As Integer, intZahl2 As Integer) As Integer\r\n Dim objXML As MSXML2.DOMDocument\r\n Dim strXML As String\r\n Dim strParameters As String\r\n strParameters = "zahl1=" & intZahl1 & "&"\r\n strParameters = strParameters & "zahl2=" & intZahl2 & "&"\r\n If Len(strParameters) > 0 Then\r\n strParameters = Mid(strParameters, 1, Len(strParameters) - 1)\r\n End If\r\n Set objXML = New MSXML2.DOMDocument\r\n objXML.loadXML DownloadText("http:\/\/www.ribbon-admin.de\/add.php" & strParameters)\r\n Summe = objXML.selectSingleNode("add\/result").nodeTypedValue\r\nEnd Function<\/pre>\n<php\r\n $zahl1 = $_GET[''zahl1'];\r\n $zahl2 = $_GET[''zahl2'];\r\n $result = $zahl1 + $zahl2;\r\n echo "<xml version=''1.0''>";\r\n echo "<add>";\r\n echo "<result>" . $result . "<\/result>";\r\n echo "<\/add>";\r\n><\/pre>\n