Acceder a Google por SOAP

Hola

Creo que deberias cambiar la linea

loWS = NEWOBJECT("Wsclient",HOME()+"ffc\_webservices.vcx")
por
loWS= NEWOBJECT("WSHandler", HOME() + "ffc\_ws3client.vcx")

(aun no lo he probado)
Pedro José Hernández Muñoz

blog: http://pedrohdz.blogspot.com/atom.xml
"Jorge Luis Vejerano" escribió en el mensaje
news:%23A$

Encontré en el red un artículo (algo viejito) pero interesante.

http://www.fpress.com/revista/num0502/art.htm

El artículo menciona que el ejemplo sólo funciona en vfp7. Pero yo tengo
vfp 8 y no lo puedo correr. La razón: no tengo la clase
_webservices.vcx. Ok, dónde lo consigo?

Saludos!

Es correcto amigo. Gracias

Sin embargo ahora me da un problema en la línea siguiente

*
oResults = oGoogle.doGoogleSearch(GOOGLEKEY, cQuery, nStart,
nMaxResults, lFilter , cRestrict , lSafeSearch, cLR, cIE, cOE)
*

La variable GOOGLEKEY tiene la llave que obtuve al añadirme a la cuenta
de google. Sin embargo me manda un mensaje de error que dice:
"la variable mi_llave is not found"

El código completo es el siguiente:


#define GOOGLEKEY patricia21
#define GOOGLEWSDLFILE "c:\googleapi\googlesearch.wsdl"


CLEAR
LOCAL oGoogle as Google
LOCAL loWS
loWS= NEWOBJECT("WSHandler", HOME() + "ffc\_ws3client.vcx")
loWS.WSName = "Google"
oGoogle = loWS.SetupClient(GOOGLEWSDLFILE, [GoogleSearchService],
[GoogleSearchPort])

cQuery= "FoxPro"
nStart= 0
nMaxResults= 10
lFilter= .f.
cRestrict= ""
lSafeSearch= .t.
cLR= ""
cIE= "latin1"
cOE= "latin1"

* Los resultados vienen en un objeto XML.

oResults = oGoogle.doGoogleSearch(GOOGLEKEY, cQuery, nStart,
nMaxResults, lFilter , cRestrict , lSafeSearch, cLR, cIE, cOE)

* Escanea XML y busca el nodo "resultElements".

IF TYPE( "oResults" ) != "O" OR ISNULL( oResults )
? "problemas boy"
ELSE
? oResults.length, " results were found for [", cQuery ,"]"
? "Results will be pasted to clipboard"
_cliptext = ""
FOR i=1 TO oResults.length
oTemp = oResults.nextnode
IF oTemp.nodename = "resultElements"
oActualResults = oTemp.childnodes
FOR j=0 TO oActualResults.length-1

? "=="
? "Result ", j+1
? oActualResults.item(j).text
_cliptext=_cliptext+oActualResults.item(j).text
NEXT
ENDIF
NEXT
ENDIF
RETURN

Saludos!

Pedro José Hernández Muñoz wrote:

Hola

Creo que deberias cambiar la linea

loWS = NEWOBJECT("Wsclient",HOME()+"ffc\_webservices.vcx")
por
loWS= NEWOBJECT("WSHandler", HOME() + "ffc\_ws3client.vcx")

(aun no lo he probado)

Hola

Lo acabo de probar ahora mismo y parece que funciona, solo veo un problema y
es en GOOGLEKEY , donde has de poner la clave que Google te asignó tras
crear la cuenta de usuario. ( Es una cadena de 32 caracteres ).

Tras entrar en la página de Create Account ( a continuacion viene el enlace
para hacer login )
https://www.google.com/accounts/Log...Fcreatekey
has de hacer login con la cuenta de correo y el password que escogiste al
crear la cuenta de usuario y recibes la clave correcta en esa cuenta de
correo.

El único cambio que hice fue en GOOGLEKEY y me funcionó perfectamente el
código que expusiste en el mensaje.


Pedro José Hernández Muñoz

blog: http://pedrohdz.blogspot.com/atom.xml
"Jorge Luis Vejerano" escribió en el mensaje
news:

Es correcto amigo. Gracias

Sin embargo ahora me da un problema en la línea siguiente

*
oResults = oGoogle.doGoogleSearch(GOOGLEKEY, cQuery, nStart,
nMaxResults, lFilter , cRestrict , lSafeSearch, cLR, cIE, cOE)
*

La variable GOOGLEKEY tiene la llave que obtuve al añadirme a la cuenta
de google. Sin embargo me manda un mensaje de error que dice:
"la variable mi_llave is not found"

El código completo es el siguiente:


#define GOOGLEKEY patricia21
#define GOOGLEWSDLFILE "c:\googleapi\googlesearch.wsdl"


CLEAR
LOCAL oGoogle as Google
LOCAL loWS
loWS= NEWOBJECT("WSHandler", HOME() + "ffc\_ws3client.vcx")
loWS.WSName = "Google"
oGoogle = loWS.SetupClient(GOOGLEWSDLFILE, [GoogleSearchService],
[GoogleSearchPort])

cQuery= "FoxPro"
nStart= 0
nMaxResults= 10
lFilter= .f.
cRestrict= ""
lSafeSearch= .t.
cLR= ""
cIE= "latin1"
cOE= "latin1"

* Los resultados vienen en un objeto XML.

oResults = oGoogle.doGoogleSearch(GOOGLEKEY, cQuery, nStart,
nMaxResults, lFilter , cRestrict , lSafeSearch, cLR, cIE, cOE)

* Escanea XML y busca el nodo "resultElements".

IF TYPE( "oResults" ) != "O" OR ISNULL( oResults )
? "problemas boy"
ELSE
? oResults.length, " results were found for [", cQuery ,"]"
? "Results will be pasted to clipboard"
_cliptext = ""
FOR i=1 TO oResults.length
oTemp = oResults.nextnode
IF oTemp.nodename = "resultElements"
oActualResults = oTemp.childnodes
FOR j=0 TO oActualResults.length-1

? "=="
? "Result ", j+1
? oActualResults.item(j).text
_cliptext=_cliptext+oActualResults.item(j).text
NEXT
ENDIF
NEXT
ENDIF
RETURN

Saludos!

Pedro José Hernández Muñoz wrote:
> Hola
>
> Creo que deberias cambiar la linea
>
> loWS = NEWOBJECT("Wsclient",HOME()+"ffc\_webservices.vcx")
> por
> loWS= NEWOBJECT("WSHandler", HOME() + "ffc\_ws3client.vcx")
>
> (aun no lo he probado)

Asi es...Muchas gracias Sr. Pedro

Pedro José Hernández Muñoz wrote:

Hola

Lo acabo de probar ahora mismo y parece que funciona, solo veo un problema y
es en GOOGLEKEY , donde has de poner la clave que Google te asignó tras
crear la cuenta de usuario. ( Es una cadena de 32 caracteres ).

Tras entrar en la página de Create Account ( a continuacion viene el enlace
para hacer login )
https://www.google.com/accounts/Log...Fcreatekey
has de hacer login con la cuenta de correo y el password que escogiste al
crear la cuenta de usuario y recibes la clave correcta en esa cuenta de
correo.

El único cambio que hice fue en GOOGLEKEY y me funcionó perfectamente el
código que expusiste en el mensaje.