Caros Colegas,
Não preciso dizer que sou iniciante em xHarbou/Harbour, e este fórum tem sido uma grande fonte de ajuda na minha empreitada na migração do clipeer para [x]HB.
Num sistema, quando vai cadastrar um cliente, após o campo que digita o CPF ou CNPJ, na validação consigo abrir o navegador (adaptei o ex. postado pelo Billy) para que o cliente digite o CPF/CNPJ para verificar se Regular/Ativo.
Vi a possibilidade de copiar para o ClipBoard e usar CTRL+V e digitar apenas o Captcha. Confesso que ainda não tenho a menor idéia de como fazê-lo, mas não é o caso por enquanto.
Porém,tem um exemplo no Reference Guide, que diz que é possível abrir o Google, preencher o campo query, e obter o resultado. Penso que talvez esse seja o caminho para melhorar a função.
O problema é que não consigo compilar para testar outros resultados. Tenho instalado o xHarbour que baixei da seção downloads (disponibilizado pelo colega Leonardo).
Para compilar, fiz da mesmo forma que com vários outros exemplos que precisei, ou seja, usando xBuild para criar o projeto, mas no exemplo especifico, não sei como configurar para compilar.
Procurando no fórum, encontrei apenas dois tópico com TipClientHTTP, um de junho/2008 e outro de dezembro/2010, mas abordam outras questões. Acompanhando este tópico, será que isto pode ajudar, ou nada a ver? Mesmo assim, como posso compilar este exemplo?:
Código: Selecionar todos
// 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
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"
// 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()
Memowrit( "Google_xHarbour.html", cHtml )
oHttp:close()
? Len(cHtml), "bytes received "
?? "and written to file Google_xHarbour.html"
ELSE
? "Connection error:", oHttp:lastErrorMessage()
ENDIF
RETURN
