www/web connect funcion or class?

[ShumingWang]

Hi,
I want a function/class("www.myside.com/down/a1.exe","d:\myapp\tmp",loverwrite)
so easily support my app upgrade/download newfile from web site.

Thanks!
Shuming Wang

[R.F.]

TURL class has what you're looking for.... available in xHarbour

[ShumingWang]

oUrl := tURL():New(“http://www.my.com/down/a1.dll")
get a crash.

Regards!

Shuming Wang

[ssbbs]

You can try this:

Code: Select all  Expand view

// author: ssbbs
// 下載更新紀錄
Func    GetModify()
Local   cFile   := "d:\myapp\tmp\a1.exe"
        If File(cFile)
           fErase(cFile)
        EndIf
        If URLDownloadToFile( 0, "www.myside.com/down/a1.exe", cFile, 0, 0 ) == 0
           msgInfo( "檔案取回成功", "OK" )
        Else
           MsgStop( "修改紀錄檔無法讀取！", "警告！" )
        EndIf
Return  NIL
DLL32   FUNCTION URLDownloadToFile(pCaller AS LONG,
                                                         szURL AS STRING,
                                                         szFileName AS STRING,
                                                         dwReserved AS LONG,
                                                         lpfnCB AS LONG);
        AS LONG PASCAL;
        FROM "URLDownloadToFileA";
        LIB "urlmon"


[ShumingWang]

Need FREELIBRARY( hLib ) ?

Thanks !
Shuming Wang