FiveTech Support Forums

#command DEFAULT <var> := <xpr> => if <var> = NIL ; <var> := <xpr> ; end
#command IF <condition> THEN <*statements*> => if <condition> ; <statements> ; end

Function Scarica_Storico(cUrl,cZipFile)
     local nVersionWin:=cWinVersion()
   If val(cWinVersion())=7
      Download_Windows_Seven(cUrl,cZipFile)
      else
         GETURLTOFILE(cUrl,cZipFile)
   Endif
return nil

STATIC FUNCTION GETURLTOFILE( cUrl, cFile, cUsr, cPsw )
    LOCAL lOk := .F.

    LOCAL oHtp, oStr, ex

    DEFAULT cFile := CFILENAME( STRTRAN( cUrl, "/", "\" ) )

    //TRY
        oHtp = CREATEOBJECT( "Msxml2.XMLHTTP.6.0" )
        oHtp:Open( "POST", cUrl, .F., cUsr, cPsw )
        oHtp:Send()

        IF oHtp:Status != 200 THEN BREAK
        MemoWrit(cFile,oHtp:ResponseBody)
        //oStr = CREATEOBJECT( "ADODB.Stream" )
        //oStr:Open()
        //oStr:Type = 1
        //oStr:Write( oHtp:ResponseBody )
        //oStr:SaveToFile( cFile, 2 )
        //oStr:Close()

        lOk = .T.
    //CATCH ex
    //        ? ex:message
    //END

    RETURN lOk

  Error description: (DOS Error -2147352567) WINOLE/1007  Errore di sistema: -2147012890.
 (0x80072EE6): msxml6.dll
   Args:
     [   1] = C   POST
     [   2] = C   .\data\
     [   3] = L   .F.
     [   4] = U   
     [   5] = U   

Stack Calls
===========
   Called from:  => TOLEAUTO:OPEN( 0 )
   Called from: source\Aggiorna.prg => GETURLTOFILE( 94 )

FUNCTION DownloadFromWWW( cUrl, cFile )

LOCAL oErr
LOCAL oHttp := Win_OleCreateObject( "MSXML2.ServerXMLHTTP" )

   IF FILE( cFile )
      hb_FileDelete( cFile )
   ENDIF

   IF .NOT. "http" $ cUrl
      RETURN .F.
   ENDIF

   BEGIN SEQUENCE WITH { | oErr | BREAK( oErr ) }
      oHttp:Open( "GET", cUrl, .F. )
      oHttp:setRequestHeader( "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:68.0) Gecko/20100101 Firefox/68.0" )
      oHttp:Send()

      IF oHttp:Status = 200
         StrFile( oHttp:ResponseBody(), cFile )
      ENDIF
      oHttp:Abort()

   RECOVER USING oErr
      MsgStop( "Error download " + cUrl )
   END SEQUENCE

RETURN FILE( cFile )

setRequestHeader