Download internet file without interference

[yury]

Hi everyone,

How can I download a file in "http:\\200.150.20.14\f_080714.xml"
and save the same in folder "f:\Sistem\xml\" without interference of user ?

I am using:

Code: Select all

cLink = "http:\\200.150.20.14\f_080714.xml"

ShellExecute(GetActiveWindow(),nil,cLink,"","",5)

It´s working, but the user need click in save button and choice the folder...

I would like do this automatically...

Many thanks

Regards

[Patrick Mast]

How can I download a file in "http:\\200.150.20.14\f_080714.xml" and save the same in folder "f:\Sistem\xml" without interference of user ? I am using:

Code: Select all

cLink = "http:\\200.150.20.14\f_080714.xml"
ShellExecute(GetActiveWindow(),nil,cLink,"","",5)

It´s working, but the user need click in save button and choice the folder... I would like do this automatically...

I use this:

Code: Select all

FUNCTION wfReadURL(cUrl)
  LOCAL cPageContent:="Error: " + cUrl + " not found or timed out."
  LOCAL oConn
  
  IF Upper(Left(cUrl,4))#"HTTP"
     cUrl:="http://"+cUrl
  ENDIF
  
  TRY
  
   oConn := TipClientHttp():New(TURL():New(cUrl))
   oConn:nConnTimeout := 20000

   IF oConn:Open(cURL)
      cPageContent := oConn:ReadAll()
      oConn:Close()
   ENDIF
   
  CATCH
   cPageContent:="Error opening " + cUrl
   
  END
  
RETURN cPageContent


//================================================================================


FUNCTION wfSaveURL(cUrl,cSaveAs)

  LOCAL cPageContent:=wfReadURL(cUrl)
  LOCAL lReturn:=.T.
  
  IF cPageContent="Error:"
     lReturn:=.F.
  ELSE
     MemoWrite(cSaveAs,cPageContent)
     IF !File(cSaveAs)
        lReturn:=.T.
     ENDIF   
  ENDIF
  
RETURN lReturn

Patrick

[driessen]

Patrick,

This is a topic which I am interested to.

Is there a possibility to check if a file exist on internet ?

For instance : can I check the existance of a file called :

http://www.test.be/test.txt ?

Thanks.

[Patrick Mast]

This is a topic which I am interested to. Is there a possibility to check if a file exist on internet ?

For instance : can I check the existance of a file called :
http://www.test.be/test.txt ?

Sure:

Code: Select all

IF wfReadURL("http://www.test.be/test.txt") # "Error opening"
   ... File is there
ELSE
   ... File is not there
ENDIF

Patrick

[driessen]

Patrick,

Thanks for your answer.

I tried it out but I got an error "unresolved external symbol _HB_FUN_WFREADURL"

What now ?

[Patrick Mast]

Thanks for your answer. I tried it out but I got an error "unresolved external symbol _HB_FUN_WFREADURL". What now ?

Comon
The wfReadURL() function is above in this thread

Patrick

[driessen]

Patrick,

Sorry, I looked over it.

Thanks.

[yury]

Patrick, perfect !

thanks very much

regards

[RAMESHBABU]

Hello Mr.Patrick

Code: Select all

oConn := TipClientHttp():New(TURL():New(cUrl)) 

Please let me know TipClientHttp() and TURL() functions are available in which lib ?

- Ramesh Babu P

[Patrick Mast]

Hello Ramesh,

Code: Select all

oConn := TipClientHttp():New(TURL():New(cUrl)) 

Please let me know TipClientHttp() and TURL() functions are available in which lib ?

You need to include TIP.LIB

Patrick

[RAMESHBABU]

Mr.Patrick

Thank you very much.

- Ramesh Babu P

[MOISES]

Patrick,
Is it available for Harbour?

[Patrick Mast]

Is it available for Harbour?

Yes, I think Harbour did port the TIP library yes.

Patrick

[ShumingWang]

hLib = LOADLIBRARY( "urlmon.dll")
if URLDownloadToFile( 0, "www.myweb.com/path/my.exe", "d:\downloadtopath\my.exe", 0, 0 ) == 0

Else
MsgStop("Not download", "Stop" )
exit
EndIf
FREELIBRARY( hLib )

DLL32 FUNCTION URLDownloadToFile(pCaller AS LONG,szURL AS STRING, szFileName AS STRING, dwReserved AS LONG, lpfnCB AS LONG);
AS LONG PASCAL;
FROM "URLDownloadToFileA";
LIB hlib

Regards!
Shuming Wang

[Horizon]

Hi Patrick,

Code: Select all

IF oConn:Open(cURL) 
      cPageContent := oConn:ReadAll() 
      oConn:Close() 
   ENDIF 

Is it possible to show progress bar (for example in message bar) while reading at ReadAll() method?

I download big files from www. Users confuse if there is a problem or not.

Thanks,