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 xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers