a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
58 lines
1.2 KiB
Plaintext
58 lines
1.2 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Sends a query to Google and displays the Links from the response HTML page
|
|
*/
|
|
|
|
#require "hbtip"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL oHttp, cHtml, hQuery, aLink, oNode, oDoc
|
|
|
|
oHttp := TIPClientHTTP():new( "http://www.google.com/search" )
|
|
|
|
/* build the Google query */
|
|
hQUery := { => }
|
|
hb_HCaseMatch( hQuery, .F. )
|
|
|
|
hQuery[ "q" ] := "Harbour"
|
|
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()
|
|
? "Connection error:", oHttp:lastErrorMessage()
|
|
QUIT
|
|
ENDIF
|
|
|
|
/* download the Google response */
|
|
cHtml := oHttp:readAll()
|
|
oHttp:close()
|
|
? Len( cHtml ), "bytes received "
|
|
|
|
oDoc := THtmlDocument():new( cHtml )
|
|
|
|
oDoc:writeFile( "google.html" )
|
|
|
|
/* ":a" retrieves the first <a href="url"> text </a> tag */
|
|
oNode := oDoc:body:a
|
|
? oNode:getText( "" ), oNode:href
|
|
|
|
/* ":divs(5)" returns the 5th <div> tag */
|
|
oNode := oDoc:body:divs( 5 )
|
|
|
|
/* "aS" is the plural of "a" and returns all <a href="url"> tags */
|
|
aLink := oNode:aS
|
|
|
|
FOR EACH oNode IN aLink
|
|
? tip_HtmlToStr( oNode:getText( "" ) ), oNode:href
|
|
NEXT
|
|
|
|
RETURN
|