Luiz, Please post a functioning, reduced, self contained, VBScript sample, as well as your xHarbour conversion.
Ron On Aug 4, 2008, at 12:52 PM, Luiz Rafael Culik Guimaraes wrote: > 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 > ------------------------------------------------------------------------- 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