Ron
VBS
dim e
set e = CreateObject("PocketSOAP.Envelope.2")
e.methodName = "getQuote"
e.URI = "urn:xmethods-delayed-quotes"
e.Parameters.Create "symbol", "MSFT"
dim t
set t = CreateObject("PocketSOAP.HTTPTransport.2")
t.SOAPAction = ""
t.Send "http://services.xmethods.net/soap";, e.serialize
e.parse t
wscript.echo "Stock quote for MSFT = " & e.parameters.item(0).Value
xharbour
func main
Local searchRes
Local encode:="",ret
Local e,t,res,env
altd()
e := CreateObject("PocketSOAP.Envelope.2")
e:methodName = "getQuote"
e:URI = "urn:xmethods-delayed-quotes"
e:Parameters:Create( "symbol", "MSFT")
t := CreateObject("PocketSOAP.HTTPTransport")
t:SOAPAction("")
env:= e:serialize
t:Send( "http://services.xmethods.net/soap";, env)
e:parse(t)
?"stock = " + e:parameters:item(0):Value
regards
Luiz
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
