Baixar de https...

[carlos_dornelas]

Pessoal, utilizo ainda o xharbour 0.99.70. Alguém tem uma dica de como baixar uma página de sites iniciados via https? Preciso baixar o html do site https://br.financas.yahoo.com/q?s=bbas3&ql=1 ,mas com a rotina que utilizava para baixar de http não funciona mais!

Eis a rotina que utilizava:

Código: Selecionar todos

cDownload := string
nSizeFiles := 1000000 // size inf bytes of the file
oUrl2 := tURL():New( cDownload )
lSuccess := .F.
WITH OBJECT ( tIPClient():New( oUrl2 ) )
   :nConnTimeout := 100000
   IF :Open( oUrl2 )
      :ReadToFile('cotac.htm',, 1000000 )
      :Close()
      lSuccess := .T.
   else
      sucesso=1
   ENDIF
END

[carlos_dornelas]

Pessoal, dá uma força aí!! Já quebrei a cabeça (que está meio enferrujada!!) e não consigo mesmo...

Antonio Carlos

[fladimir]

Ve se resolve....

Código: Selecionar todos

function tstLerSite()
	local oOle, cHTML

   REQUEST HB_CODEPAGE_PTISO
   HB_CDPSELECT("PTISO")

	TRY

		oOle := CreateObject( "Microsoft.XMLHTTP" )
		oOle:Open( 'GET', 'https://br.financas.yahoo.com/q?s=bbas3&ql=1', .F. )
		oOle:Send()

		cHTML := oOle:ResponseBody
		oOle  := NIL

		memowrit('cotac.htm', cHTML)
		
	CATCH
	END
   Hb_LangSelect("PT")       //--> Pra voltar para portugues
   Hb_CdpSelect("PT850")    //--> Pra voltar para portugues
   
return