all tasks

Task/SOAP/0DESCRIPTION

@@ -0,0 +1,2 @@
+In this task, the goal is to create a SOAP client which accesses functions defined at '''http://example.com/soap/wsdl''', and calls the functions '''soapFunc( )''' and '''anotherSoapFunc( )'''.
+{{Clarify_task}}

Task/SOAP/1META.yaml

@@ -0,0 +1,4 @@
+---
+category:
+- Less Than 10 Examples
+note: Networking and Web Interaction

Task/SOAP/ActionScript/soap.as

@@ -0,0 +1,16 @@
+import mx.rpc.soap.WebService;
+import mx.rpc.events.ResultEvent;
+var ws:WebService = new WebService();
+ws.wsdl = 'http://example.com/soap/wsdl';
+ws.soapFunc.addEventListener("result",soapFunc_Result);
+ws.anotherSoapFunc.addEventListener("result",anotherSoapFunc_Result);
+ws.loadWSDL();
+ws.soapFunc();
+ws.anotherSoapFunc();
+//  method invocation callback handlers
+private function soapFunc_Result(event:ResultEvent):void {
+  // do something
+}
+private function anotherSoapFunc_Result(event:ResultEvent):void {
+  // do another something
+}

Task/SOAP/AutoHotkey/soap.ahk

@@ -0,0 +1,11 @@
+WS_Initialize()
+    WS_Exec("Set client = CreateObject(""MSSOAP.SoapClient"")")
+    WS_Exec("client.MSSoapInit ""http://example.com/soap/wsdl""")
+    callhello = client.soapFunc("hello")
+    callanother = client.anotherSoapFunc(34234)
+
+    WS_Eval(result, callhello)
+    WS_Eval(result2, callanother)
+    Msgbox % result . "`n" . result2
+    WS_Uninitialize()
+#Include ws4ahk.ahk  ; http://www.autohotkey.net/~easycom/ws4ahk_public_api.html

Task/SOAP/ColdFusion/soap.cfm

@@ -0,0 +1,3 @@
+<cfset client = createObject("webservice","http://example.com/soap/wsdl")>
+<cfset result = client.soapFunc("hello")>
+<cfset result = client.anotherSoapFunc(34234)>

Task/SOAP/Mathematica/soap.math

@@ -0,0 +1,3 @@
+InstallService["http://example.com/soap/wsdl"];
+soapFunc["Hello"];
+anotherSoapFunc[12345];

Task/SOAP/PHP/soap.php

@@ -0,0 +1,14 @@
+<?php
+//load the wsdl file
+$client = new SoapClient("http://example.com/soap/definition.wsdl");
+//functions are now available to be called
+$result = $client->soapFunc("hello");
+$result = $client->anotherSoapFunc(34234);
+
+//SOAP Information
+$client = new SoapClient("http://example.com/soap/definition.wsdl");
+//list of SOAP types
+print_r($client->__getTypes());
+//list if SOAP Functions
+print_r($client->__getFunctions());
+?>

Task/SOAP/Perl/soap.pl

@@ -0,0 +1,8 @@
+use SOAP::Lite;
+
+print SOAP::Lite
+  -> service('http://example.com/soap/wsdl')
+  -> soapFunc("hello");
+print SOAP::Lite
+  -> service('http://example.com/soap/wsdl')
+  -> anotherSoapFunc(34234);

Task/SOAP/PureBasic/soap.purebasic

@@ -0,0 +1,5 @@
+XIncludeFile "COMatePLUS.pbi"
+Define.COMateObject soapObject = COMate_CreateObject("MSSOAP.SoapClient")
+soapObject\Invoke("MSSoapInit('http://example.com/soap/wsdl')")
+result = soapObject\Invoke("soapFunc('hello')")
+result2 = soapObject\Invoke("anotherSoapFunc(34234)")

Task/SOAP/Python/soap.py

@@ -0,0 +1,4 @@
+from SOAPpy import WSDL
+proxy = WSDL.Proxy("http://example.com/soap/wsdl")
+result = proxy.soapFunc("hello")
+result = proxy.anotherSoapFunc(34234)

Task/SOAP/Ruby/soap.rb

@@ -0,0 +1,10 @@
+require 'soap/wsdlDriver'
+
+wsdl = SOAP::WSDLDriverFactory.new("http://example.com/soap/wsdl")
+soap = wsdl.create_rpc_driver
+
+response1 = soap.soapFunc(:elementName => "value")
+puts response1.soapFuncReturn
+
+response2 = soap.anotherSoapFunc(:aNumber => 42)
+puts response2.anotherSoapFuncReturn

Task/SOAP/Tcl/soap.tcl

@@ -0,0 +1,9 @@
+package require WS::Client
+
+# Grok the service, and generate stubs
+::WS::Client::GetAndParseWsdl http://example.com/soap/wsdl
+::WS::Client::CreateStubs ExampleService   ;# Assume that's the service name...
+
+# Do the calls
+set result1 [ExampleService::soapFunc "hello"]
+set result2 [ExampleService::anotherSoapFunc 34234]

Task/SOAP/VBScript/soap.vbscript

@@ -0,0 +1,6 @@
+Dim client
+Dim result
+Set client = CreateObject("MSSOAP.SoapClient")
+client.MSSoapInit "http://example.com/soap/wsdl"
+result = client.soapFunc("hello")
+result = client.anotherSoapFunc(34234)

Task/SOAP/Visual-Objects/soap.vobj

@@ -0,0 +1,10 @@
+LOCAL oSoapClient 	AS OLEAUTOOBJECT
+LOCAL cUrl 		AS STRING
+LOCAL uResult        AS USUAL
+oSoapClient := OLEAutoObject{"MSSOAP.SoapClient30"}
+cUrl        := "http://example.com/soap/wsdl"
+IF oSoapClient:fInit
+   oSoapClient:mssoapinit(cUrl,"", "", "" )
+   uResult := oSoapClient:soapFunc("hello")
+   uResult := oSoapClient:anotherSoapFunc(34234)
+ENDIF