Feito Sandor. Obrigado.
- Code: Select all Expand view
// C:\FWH\SAMPLES\GOOGLEBU.PRG - MODIFICADO EM: 23/03/2023 - Joao Santos.
#include "FiveWin.ch"
// The example loads the Google search page and enters "xHarbour" as
// query data. The response from Google for the query is stored in a local
// HTML file.
PROCEDURE Main
LOCAL oHttp, cHtml, hQuery, cFile
oHttp := TIpClientHttp():new( "http://www.google.de/search" )
// build the Google query
hQUery := Hash()
hSetCaseMatch( hQuery, .F. )
hQuery[ "q" ] := "xHarbour"
hQuery[ "hl" ] := "en"
hQuery[ "btnG" ] := "Google+Search"
/*
hQuery[ "q" ] := "FiveWin"
hQuery[ "hl" ] := "en"
hQuery[ "btnG" ] := "Google+Search"
*/
// add query data to the TUrl object
oHttp:oUrl:addGetForm( hQuery )
// Connect to the HTTP server
IF oHttp:open()
// downlowad the Google response
// cHtml := oHttp:readAll()
// http://fivewin.com.br/index.php?/topic/ ... le-search/
/*
Fala Kapi... Faz tempo que não 'posto' por aqui mas vai lá...
Não sei onde achou isso, mas é interessante.
Uma pequena alteração: troque alinha:
cHtml := oHttp:readAll() // Kapi
por:
*/
cHtml := strtran(oHttp:readAll(), "/images/br", "http://www.google.com/images/br")
cHtml := strtran(cHtml, 'CsQyDc" href="', 'CsQyDc" href="http:\\www.google.com')
/*
Vai mostrar o ícone do GOOGLE e 'liberar' os links de "VIDEOS", "IMAGES" e "NEWS"
[ ]'s, Sandor
*/
MemoWrit( "Google_xHarbour.html", cHtml )
oHttp:close()
// ? Len( cHtml ), "bytes Recebidos: "
MsgInfo( Len( cHtml ), "bytes Recebidos: " )
// ? "e Gravados Para o Arquivo: Google_xHarbour.html"
MsgInfo( "e Gravados Para o Arquivo: Google_xHarbour.html", "Gravou em:" )
ShellExecute( 0, "Open", "c:\fwh1905\samples\Google_xHarbour.html" )
ELSE
? "Connection error:", oHttp:lastErrorMessage()
ENDIF
RETURN NIL
// FIN - kapiabafwh@gmail.com
Regards, saludos.
