Function to download a defined file from a homepage ?

[Baxajaun]

Dear Otto,

from Microsoft

https://msdn.microsoft.com/en-us/library/ms775123%28v=vs.85%29.aspx

Best regards,

[jesusdelamora]

Code: Select all  Expand view

#include "fivewin.ch"

    function Main()
            LOCAL   nRet
           
            nRet := DOWNLOADFILE( "http://www.yoursite.it/index.html", "C:\index.html" )
           
            MsgStop( nRet )
    RETURN NIL


    #pragma BEGINDUMP

    #include <Windows.h>
    #include <hbapi.h>
    #include <urlmon.h>

    HB_FUNC( DOWNLOADFILE )

    {
            HRESULT hr;
           
            hr = URLDownloadToFile( NULL, hb_parc( 1 ), hb_parc( 2 ), 0, NULL ) ;
           
            hb_retnl( hr ) ;
    }

    #pragma ENDDUMP
 

GRACIAS POR LA INFORMACION