{"id":35,"date":"2007-10-19T22:24:09","date_gmt":"2007-10-19T20:24:09","guid":{"rendered":"http:\/\/joergnapp.de\/2007\/10\/19\/nutzung-des-soap-servers-mit-office\/"},"modified":"2014-06-13T00:24:18","modified_gmt":"2014-06-12T22:24:18","slug":"nutzung-des-soap-servers-mit-office","status":"publish","type":"post","link":"https:\/\/joergnapp.de\/blog\/nutzung-des-soap-servers-mit-office\/","title":{"rendered":"Nutzung des SOAP-Servers mit Office"},"content":{"rendered":"

Ich wollte noch auf die Nutzung des SOAP-Servers<\/a> mit Word (2000) hinaus.<\/p>\n

Nutzung mit dem SOAP-Toolkit von Microsoft<\/h2>\n

Diese \u00e4lteren Office-Versionen haben im Gegensatz zur Methode mit .net keinen direkten Zugriff auf die SOAP<\/acronym>-Methoden. Dies l\u00e4sst sich aber mit Microsofts SOAP-Toolkit<\/a> nachr\u00fcsten. Microsoft schreibt zwar, dass das Toolkit durch .net veraltet sei, bietet aber sowohl das komplette SDK<\/a> wie auch das verteilbare Paket<\/a> zum Download an.<\/p>\n

Damit wird die Nutzung des Webservices ziemlich einfach. Unter Extras-Verweise mu\u00df ein Verweis zum Microsoft SOAP Toolkit hinzugef\u00fcgt werden.<\/p>\n

In der Prozedur ben\u00f6tigen wir zun\u00e4chst ein entsprechendes Objekt:<\/p>\n

\r\n    Dim soap As SoapClient\r\n    Set soap = New SoapClient\r\n<\/pre>\n
Mit diesem Objekt wird die WSDL-Datei abgeholt. Im Anschluss daran stehen die per Web-Service ver\u00f6ffentlichten Funktionen als Methoden des Objekts zur Verf\u00fcgung. F\u00fcr uns hei\u00dft das:<\/p>\n
\r\n    With soap\r\n        ' Hole die Funktionen aus der Beschreibungsdatei\r\n        .mssoapinit \"http:\/\/www.example.com\/soapserver.php?wsdl.\"\r\n\r\n        ' Und jetzt tu was...\r\n        ergebnis = .suche(\"Suchbegriff\")\r\n    End With\r\n<\/pre>\n
Dabei scheint es wichtig zu sein, im nuSoap einen Namespace zu verwenden. Ohne Namespace-Definition erhalte ich einen VB-Fehler, mit keinen.<\/p>\n
Nutzung von PocketSOAP<\/h3>\n
Eine weitere nette Bibliothek ist PocketSOAP<\/a> von Simon Fell. Nachdem man auch hier unter  Extras<\/kbd>–Verweise<\/kbd> diese Bibliothek hinzugef\u00fcgt hat, holt  folgende Code die Suchergebnisse ab:<\/p>\n
\r\n    Dim SOAP As New CoEnvelope\r\n    Dim HTTP As New HTTPTransport\r\n    Dim Result() As String\r\n\r\n    With SOAP\r\n        .MethodName = \"suche\"\r\n        .Parameters.Create \"sucheRequest\", \"Suchbegriff\"\r\n    End With\r\n\r\n    HTTP.Send \"http:\/\/www.example.com\/soapserver.php\", SOAP.Serialize\r\n\r\n    ' parse the SOAP message\r\n    SOAP.Parse HTTP\r\n\r\n    ' extract the return value\r\n    Result = SOAP.Parameters.Item(0).Value\r\n<\/pre>\n
Noch einfacher geht des mit dem \u201eSOAP<\/acronym> Proxy\u201c-Object: Hier gen\u00fcgen  folgende Zeilen:<\/p>\n
\r\n    Dim SOAPProxy As PSPROXYLib.CoSoapFactory\r\n    Dim SOAP As Object\r\n    Dim Result() As String\r\n\r\n    Set SOAPProxy = New PSPROXYLib.CoSoapFactory\r\n    Set SOAP = SOAPProxy.CreateProxy(\"http:\/\/www.example.com\/soapserver.php\")\r\n    Result = SOAP.suche(sucheRequest:=\"Suchbegriff\")\r\n<\/pre>\n
Zu PocketSOAP gibt es der\u00fcber hinaus einen WSDL-Proxygenerator<\/a>, der  aus einer WSDL-Datei entsprechende Klassen f\u00fcr VB<\/acronym> generiert. Damit stehen die \u00fcber SOAP<\/acronym> exportierten Funktionen als  Methoden dieser Objekte zur Verf\u00fcgung, was das Arbeiten mit diesen nat\u00fcrlich  sehr angenehm macht.<\/p>\n","protected":false},"excerpt":{"rendered":"
Ich wollte noch auf die Nutzung des SOAP-Servers mit Word (2000) hinaus. Nutzung mit dem SOAP-Toolkit von Microsoft Diese \u00e4lteren Office-Versionen haben im Gegensatz zur Methode mit .net keinen direkten Zugriff auf die SOAP-Methoden. Dies l\u00e4sst sich aber mit Microsofts SOAP-Toolkit nachr\u00fcsten. Microsoft schreibt zwar, dass das Toolkit durch .net veraltet sei, bietet aber sowohl … <\/p>\n
\u201eNutzung des SOAP-Servers mit Office\u201c <\/span>weiterlesen<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[11,14,17,15,4,12,182],"class_list":["post-35","post","type-post","status-publish","format-standard","hentry","category-allgemein","tag-office","tag-php","tag-pocketsoap","tag-soap","tag-visual-basic","tag-webservices","tag-word"],"_links":{"self":[{"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/posts\/35","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/comments?post=35"}],"version-history":[{"count":0,"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/posts\/35\/revisions"}],"wp:attachment":[{"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/media?parent=35"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/categories?post=35"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/tags?post=35"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}