PC Toledo

Código: Selecionar todos

 
*****************************/
FUNCTION __DownloadHTTP( cRemoteFile , lOverwrite , cNewName )

    
   LOCAL hCurl 
   LOCAL cContent, cFileName
   LOCAL lDownload
   local aHeaders 
   #ifdef __PLATFORM__WINDOWS
   LOCAL cTempDir := ""//GetEnv("TEMP") 
   #else
   LOCAL cTempDir := ""//IIF( hb_DirExists( "/tmp/" ) , "/tmp/" , "./"  ) 
   #endif

   IF cNewName == NIL
      cFileName := HB_FNameName( cRemoteFile ) + HB_FNameExt( cRemoteFile )
   Else
      cFileName := cNewName    
   ENDIF   
   IF FILE( cFileName ) // Se o arquivo já existe
       IF lOverwrite // Se é para sobrepor sempre
           lDownload := .t. 
       ELSE
           lDownload := .f.
       ENDIF
    ELSE // Se não existe é para baixar
        lDownload := .t.
    ENDIF    
    IF lDownload               
        curl_global_init()
      
        if ! empty( hCurl := curl_easy_init() )
            aHeaders := { "Cache-Control: no-cache"            }
            curl_easy_setopt( hCurl, HB_CURLOPT_HTTPHEADER, aHeaders)
          curl_easy_setopt( hCurl, HB_CURLOPT_URL, cRemoteFile )  
          
          //Disabling the SSL peer verification (you can use it if you have no SSL certificate yet, but still want to test HTTPS)
          curl_easy_setopt(hCurl, HB_CURLOPT_FOLLOWLOCATION, 1)
          curl_easy_setopt(hCurl, HB_CURLOPT_SSL_VERIFYPEER, 0)
          curl_easy_setopt( hCurl, HB_CURLOPT_DL_BUFF_SETUP )
          
          //Sending the request and getting the response
          IF (curl_easy_perform( hCurl )) == 0
              cContent := curl_easy_dl_buff_get( hCurl )
              cFileName := hb_PathJoin( cTempDir, cFileName )
              
              LOG _t( "Downloading to %s", cFileName  ) INFO DISPLAY
              IF .NOT. hb_MemoWrit( cFileName , cContent )
                  LOG _t( "Error when writing %s",  cFileName  ) INFO DISPLAY
                   
              ENDIF
          ELSE 
              LOG _t( "Download failed."  ) ERROR DISPLAY
              IF FILE( cFileName  )
                 ?? " Using local version."
              ENDIF        
          ENDIF
        ENDIF
    ENDIF
        
RETURN cFileName 

Código: Selecionar todos

//--url de consulta
cURL="https://treinamento.olostech.com.br/ipso/controle_v1.2.ipso.asp?user=labjaragua&pwd=123456&service=1&numpac=4772509"

//--caso precise enviar algo no body
cJSON=""

//--define o metodo HTTP use conforme a API ou url solicita, geralmente, será GET
cMetodo="GET"

//--cria o servidor HTTP local
oServer := win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0" )	 
oServer:Open( cMetodo, cURL, .F. )

//--caso precise setar header
*oServer:SetRequestHeader( "Accept","application/json")
*oServer:SetRequestHeader( "Content-Type","application/json")

//--envia url ao servidor
oServer:Send( cJSON )

//--retorno da url
cRetorno := oServer:ResponseBody()  

Código: Selecionar todos

<?xml version='1.0' encoding='ISO-8859-1'?><ipso><status><codigo type='varchar(10)'>E102</codigo><servico type='integer'>1</servico><numpac type='bigint'>4772509</numpac><versao type='varchar(7)'>1.2</versao></status></ipso>

Código: Selecionar todos

//
LOCAL cCommand := 'wget -O arquivo_de_saida.XML   --no-check-certificate "https://treinamento.olostech.com.br/ipso/controle_v1.2.ipso.asp?user=labjaragua&pwd=123456&service=1&numpac=4772509"'

RUN (cCommand)
//

Código: Selecionar todos

FUNCTION Download_WinHttpRequest( sUrl, lErro )
LOCAL oOle, sTexto

lErro := .F.

BEGIN SEQUENCE WITH Break()
   sTexto := "ERRO: CreateObject(WinHttp.WinHttpRequest.5.1)"
   IF ( oOle := win_oleCreateObject( "WinHttp.WinHttpRequest.5.1" ) ) != NIL
      sTexto := 'ERRO: Open(GET) [' + sUrl + ']'
      oOle:Open( "GET", sUrl, .F. )
      sTexto := 'ERRO: Send() [' + sUrl + ']'
      oOle:Send()
      //sTexto := "ERRO: readyState"
      //WHILE oOle:readyState <> 4
      //    oOle:waitForResponse( 1000 )
      //ENDDO
      sTexto := 'ERRO: Status [' + sUrl + ']'
      IF oOle:Status() == 200
         sTexto := oOle:responseBody
      ELSE
         sTexto := 'ERRO: WinHttp.WinHttpRequest.5.1 STATUS: ' + NTrim(oOle:Status()) + ' [' + sUrl + ']'
         lErro := .T.
      ENDIF
   ELSE
      sTexto := 'ERRO: CreateObject(WinHttp.WinHttpRequest.5.1) [' + win_oleErrorText() + '] [' + sUrl + ']'
      lErro := .T.
   ENDIF
RECOVER
   IF Empty(sTexto) .or. Left(sTexto, 5) <> 'ERRO:'
      //sTexto := 'ERRO: ao baixar; [' + sUrl + ']'
      sTexto := ''
   ENDIF
   lErro := .T.
END SEQUENCE

RETURN sTexto