FiveTech Support Forums

// -------------------------------------------------------------------------- //
function leeADDS()
local site
local cad:=""
local out
local oWebClient
local oTimer,oDlg
local cPagename


site := "aviationweather.gov"
cPagename:= "/adds/metars/index.php?submit=1&station_ids=LEAL&chk_metars=on&chk_tafs=on&hoursStr=3"

    oWebClient := TWebClient():New()
    oWebClient:Connect( site )


DEFINE TIMER otimer INTERVAL 1000 ACTION if(comprueba(cad) , oDlg:end() , nil) OF app():ownd
ACTIVATE TIMER otimer

DEFINE DIALOG oDlg FROM 3, 3 TO 28, 79 title "Espera "+cPageName

//    oWebClient:bOnConnect = { || MsgInfo( "Connected!" ) }
//    oWebClient:bOnRead    = { | cData | cad += cData     }
    oWebClient:bOnRead    = { | cData |  cad += cData    }
    oWebClient:oSocket:SendData( "GET " + cPageName + " HTTP/1.0" + CRLF +"Host: "+site+ CRLF +CRLF )


activate dialog oDlg centered

out:= fcreate("meteo.txt",0)
fwrite(out,cad+CRLF)
fclose(out)

RELEASE TIMER otimer

return nil

// ---------------------------------------------------------------------------- //
static function comprueba(cad)
local bien:= .t.


if !cad="HTTP/1.1 200 OK"
bien:= .f.
endif


if !("</html>"$cad)
bien:= .f.
endif

return bien

#include "fivewin.ch"

#define SET_HOST "aviationweather.gov"
#define SET_REQUEST "GET [URL] HTTP/1.1" + CRLF + ;
                   "Host: [HOST]" + CRLF + ;
                   'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.77 Safari/535.7' + CRLF +;
                   'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' + CRLF +;
                   'Accept-Language: en-us,en;q=0.5' + CRLF +;
                   'Accept-Encoding: deflate' + CRLF +;
                   'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' + CRLF +;
                   "Connection: Close" + CRLF + CRLF 



function main()

? GetDatas()

return nil

FUNCTION GetDatas()
   LOCAL cRequest
   LOCAL cResponse
   LOCAL cBuffer
   LOCAL pSocket
   LOCAL nBytes
   LOCAL nPos, i
   LOCAL cStr
   LOCAL crlf := chr(13)+chr(10)
   LOCAL nMaxBuff := 1024
   LOCAL aResponse := {}
   LOCAL cUrl
                     
   HB_INetInit()

   cUrl    := "/adds/metars/index.php?submit=1&station_ids=LEAL&chk_metars=on&chk_tafs=on&hoursStr=3"
   
   pSocket := HB_INetConnect( SET_HOST, 80 )

   IF HB_INetErrorCode( pSocket ) <> 0
      RETURN NIL
   ELSE
      cRequest  := strTran( SET_REQUEST, "[URL]", cUrl )
      cRequest  := strTran( cRequest, "[HOST]", SET_HOST )                   
      nBytes    := HB_INetSend( pSocket, cRequest )
      cBuffer   := SPACE(nMaxBuff)
      cResponse := ""

      DO WHILE nBytes > 0
         nBytes    := HB_INetRecv( pSocket, @cBuffer )
         cResponse += LEFT( cBuffer, nBytes )
         cBuffer   := SPACE(nMaxBuff)
      ENDDO

   ENDIF
   HB_INetClose( pSocket )
   HB_INetCleanUp()
   
   
RETURN cResponse

HTTP/1.1 301 Moved Permanently
Server: AkamaiGHost
Content-Length: 0
Location: https://aviationweather.gov/adds/metars/index.php?submit=1&station_ids=LEAL&chk_metars=on&chk_tafs=on&hoursStr=3
Date: Wed, 09 Sep 2020 08:56:06 GMT
Connection: close