Dear Friends
i has com object the need to recieve an Commvariant type as an parameter to
an method
How to pass this type of parameter.
here the code i've tryed
#define true 1
func main
Local e
altd()
e:= GoogleSearch("pocketSOAP", 0, 10, true, "", true, "", "", "" )
Function GoogleSearch ( searchTerm,;
start, ;
maxResults, ;
MatchFilter, ;
restrict, ;
safeSearch, ;
languageRestrict, ;
inputEncoding, ;
outputEncoding )
Local e,t
t := CreateObject("pocketsOAP.HTTPTransport")
//t:SetProxy( "localhost", 7070)
e := CreateObject("PocketSOAP.Envelope.2")
e:SetMethod( "doGoogleSearch", "urn:GoogleSearch")
e:Parameters:create( "key",'xx')
e:Parameters:create( "q", searchTerm)
e:Parameters:create( "start", start)
e:Parameters:create( "maxResults", maxResults)
e:Parameters:create( "filter", MatchFilter)
e:Parameters:create( "restrict", restrict)
e:Parameters:create( "safeSearch", safeSearch)
e:Parameters:create( "lr", languageRestrict)
e:Parameters:create( "ie", inputEncoding)
e:Parameters:create( "oe", outputEncoding)
t:SOAPAction ( "urn:GoogleSearchAction")
? t:send( "http://api.google.com/search/beta2";, e:serialize)
e:Parse( t ) // Samples i get in VB this is passed as e.Parse T
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
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
