PC Toledo

Código: Selecionar todos

Function pega_databrasilia2
  Local ctexto:='Local time in Brasilia', cUrl, oWeb, cRet, cPagina, cDia, cMes, cAno,cTimeini,cDiferTempo
  cUrl:="https://www.timeanddate.com/worldclock/fullscreen.html?n=45"
  ctimeini:=Time()
  #if !defined(__HBSCRIPT__HBSHELL)
      REQUEST __HBEXTERN__HBSSL__
  #endif
  if Empty(oURL:=TUrl():New(cURL))
     GravaLogControl("Invalid URL "+cURL)
     Return CToD("")
  endif
  if !(oURL:cProto=="http") .and. !(oURL:cProto=="https")
     GravaLogControl("This is a header test for http/https. Use an http/https address.")
     Return CToD("")
  Endif
  if oURL:cProto=="https" .and. ! tip_SSL()
     GravaLogControl("Error: Requires SSL support")
     Return CToD("")
  Endif
  Try
    oHTTP:=TIPClientHTTP():New(oURL)
    oHTTP:nConnTimeout:=20000
  catch oError
    GravaLogControl("Data internet - TIPClientHTTP error :"+oError:Description)
    Return CToD("")
  end
  Try
    oHTTP:Open(cURL)
    //cPagina:=oHTTP:ReadAll() // Baixa todo o conteúdo do site.
    cPagina:=oHTTP:Read() // Baixa todo o conteúdo do site.
  catch oError
    GravaLogControl("Data internet - GET error :"+oError:Description)
    Return CToD("")
  end  
  oHTTP:Close()
  cDiferTempo:=(timetosec(Time())-timetosec(cTimeini))/60
  if cDiferTempo > 0.30 // 30 segundos gravar log desta demora
     GravaLogControl("Data internet - demora no acesso "+AllTrim(Str(cDiferTempo,6,2))+ " segundos")
  endif
  If cPagina != nil .and. cTexto $ cPagina
     cPagina := Substr(cPagina,At(cTexto,cPagina)+25)
     cPagina := Substr(cPagina,At(",",cPagina)+1)
     cPagina := Alltrim(Substr(cPagina,1,At("<",cPagina)-1))
     cDia := Strzero(Val(Substr(cPagina,1,At(" ",cPagina))),2,0)
     cPagina := Substr(cPagina,At("de ",cPagina)+3)
     cMes := VqMes(lower(Alltrim(Substr(cPagina,1,At(" ",cPagina)))))
     cPagina := Substr(cPagina,At("de ",cPagina)+3)
     //cAno := Substr(cPagina,1,At(hb_eol(),cPagina)-1)
     cAno := AllTrim(cPagina)
     //cPagina := Substr(cPagina,At(hb_eol(),cPagina)+2)
     cData := cDia+"/"+cMes+"/"+cAno
     //cHora := Substr(cPagina,1,8)
     cRet:=CToD(cData)  // +'*'+cHora
  else
     GravaLogControl("Data internet - nao encontrado LOCAL TIME IN BRASILIA no retorno")
     if cPagina != nil
        GravaLogControl("Retorno - "+cPagina)
     endif
     cRet:=CToD("")
  endif
  return(cRet)

Código: Selecionar todos

	
Local cUrl  := "https://www.timeanddate.com/worldclock/fullscreen.html?n=45"
Try
      oServer:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.6.0")
Catch
      MsgInfo('Erro na Criação do Serviço')
      Return .f.
End
Try
      oServer:Open( "GET", cUrl, .f. )
      oServer:SetRequestHeader( "Content-Type", "application/x-www-form-urlencoded" )
      oServer:SetRequestHeader( "Connection", "keep-alive" )
      oServer:Send()
      oServer:WaitForResponse( 5000 )
Catch
      MsgInfo('Erro na Conexão com o Site')
      Return .f.
End
cRet   := oServer:ResponseBody
//   MemoWrit("site.txt", cRet)

   nIni   := At('<div id=rs1><div>',  cRet ) + 17
   cHtml1:= SubStr( cRet, nIni)
   nFim   := At('</div><div id=i_date>', cHtml1 ) - 1
   MsgInfo(SubStr(cRet, nIni, nFim))

   nIni  := At('</div><div id=i_date>',  cRet) + 21
   cHtml1:= SubStr( cRet, nIni)
   nFim  := At('</div><div id=i_time>', cHtml1) - 1
   MsgInfo( SubStr(cRet, nIni, nFim))

   nIni := At('</div><div id=i_time>',  cRet) + 21
   cHtml1:= SubStr( cRet, nIni)
   nFim := At('</div><div id=i_timea>', cHtml1) - 1
   MsgInfo(SubStr(cRet, nIni, nFim))

Código: Selecionar todos

HbMk2 SeuPrograma hbwin.hbc