Downloading from a website

[driessen]

Hello,

Can someone tell me how to download a file (usually an EXE-file) from a website and save it to a folder on my networkdrive automatically?

It might be possible that a username and password are necessary to download the file.

Nevertheless I want to download the file without user intervention.

Thank you very much in advance.

[Otto]

Hello Michel,

viewtopic.php?f=3&t=17600&hilit=update&start=15#p91979

Best regards,
Otto

[hag]

Otto
Will the code you referenced work with Harbour?

[lailton.webmaster]

Hi,

When i don't need work with FTP "(user and password)" I use this function to download:

if ( URLDownloadToFile( 0, "http://www.domain.com/file.exe", "c:\file.exe", 0, 0 ) == 1)
MsgStop("Error: Your download failed !!!","Error in download...")
else
MsgInfo("Download Sucess !!!","Download OK")
endif

DLL Function URLDownloadToFile(pCaller AS LONG, szURL AS STRING, szFileName AS STRING, dwReserved AS LONG, lpfnCB AS LONG) AS LONG PASCAL FROM "URLDownloadToFileA" LIB "urlmon.dll"

[driessen]

Hi, Lailton.webmaster,

Thanks a lot for your answer.

I tried it out and I got the message that the downloaded is succeeded, but the download itself does not occur.

Any idea ?

Thanks.

[Otto]

Michel,
have you checked your security setup (firewall, antivirus)?
I think to load “exe” files from the Internet system-admin’s want like.
I would suggest to rename the files.
Best regards,
Otto

[lailton.webmaster]

Driessen,
Try this way

Code: Select all  Expand view

#include "Fivewin.ch"
#define   DOWN_OK    0
#define   DOWN_ERROR 1
function main()
local urlFILE := "http://www.lailton.com.br/tmp/demo._exe"
local toFILE  := "c:\test\demo2.exe"

 if ( URLDownloadToFile( 0, urlFILE, toFILE, 0, 0 ) == DOWN_OK )
      MsgInfo("Download OK !!!")
 else
      MsgStop("Error: Your download failed !!!","Error in download...")
 endif
return
DLL Function URLDownloadToFile(pCaller AS LONG, szURL AS STRING, szFileName AS STRING, dwReserved AS LONG, lpfnCB AS LONG) AS LONG PASCAL FROM "URLDownloadToFileA" LIB "urlmon.dll"
 

[driessen]

Otto,

Thanks. I already checked that.

Lailton.webmaster,

Thanks for your example. It's working fine now.

Can we add something that the user can see the progress of the download ?

[anserkk]

Dear Mr.Michel,

To understand how to display a progress bar while downloading a file from internet, Please refer the topic viewtopic.php?f=3&t=11915&start=20

The sample code is available there posted by Mr.Hakan
Pls. remember to link xHarbour's Tip.Lib

Regards
Anser

[lailton.webmaster]

You can use this way:

Code: Select all  Expand view

MsgRun("Downloading...","Wait...",{|| iif( URLDownloadToFile( 0, urlFILE, toFILE, 0, 0 ) == DOWN_OK,Msginfo("Download OK"),MsgStop("Download Failed"))} )
 

Msdn show about OnProgress, more i dont know how add this feature to use.
URL: http://msdn.microsoft.com/en-us/library/ms775123%28VS.85%29.aspx

[hag]

Is there similiar code for harbour.

[lailton.webmaster]

I belive that this code work too in Harbour.

Please try use.

[hag]

I seem to have a problem with the dllDownloadtofile call. Do i need to put a new library in my make script. This has me confused.

DLL Function URLDownloadToFile(pCaller AS LONG, szURL AS STRING, szFileName AS STRING, dwReserved AS LONG, lpfnCB AS LONG) AS LONG PASCAL FROM "URLDownloadToFileA" LIB "urlmon.dll"

Please explain.

[lailton.webmaster]

Try Add this line

#include "Fivewin.ch"
#include "dll.ch"

or use xHarbour is the best !!