XProfan

/*
|
|
|
|   INC: Download.Inc
|   empfohlene Einbindung: include download.inc
|                          **************************
|
|   Support: https://xprofan.com/includes
|
|   Die Urheberrechte dieser Software liegen bei mir (iF, David Strutz).
|
|
|   Salve, iF.
|   20070713
|
|____________________________________________________________________________________*/
 {$cleq}
/*      Download.Inc XPSE Democode
XPSE (XProfan's free PreCompiler) ist erhältlich unter
https://xprofan.com/xpse                                                 */
include download.inc
windowstyle ( 8 | 16 | 512 )
cls 0
color 10,0
print

if len(trim$(dw.ip())) {//is.inet.available.trick

    print " INC-Version:             ",dw.ver()
    print " Ihre IP:                 ",dw.ip()
    print " Http-Abruf:              ",dw.get("https://xprofan.com/hilfe/sheet/xpse/","_testout.html"),"bytes."
    print " Bild-Abruf:              ",dw.get("https://xprofan.com/images/lv.bmp","_lv.bmp"),"bytes."
    print " Downloadgeschwindigkeit:~",int(dw.checkspeed()),"bytes/sec"
    long hbox=createhtmlbox (hwnd,"file:///"+translate$(getdir$("@"),"\","/")+"/_testout.html",0,180,width(hwnd),(height(hwnd)-180))
    loadbmp "_lv.bmp",(width(hwnd)-210),10;0

else

    print " Es konnte keine Internetverbindung genutzt werden."
    waitkey
    end

endif

do {

    waitinput

    select key

        caseof 2 : break

    endselect

}

destroywindow(hbox)
end

declare prog_version!, down_bytes&
 $I download.inc
cls
print $ProgDir
down_bytes&=dw.get(http://url/update.txt,$ProgDir/update/update.txt)
print down_bytes&
waitkey
end

down_bytes&=dw.get(http://url/update.txt,$ProgDir/update/update.txt

down_bytes&=dw.get("https://url/update.txt",$ProgDir+"/update/update.txt")

def $dw.version="0.1.6.x8.0"
var dw.CallerProcAddr&=0

proc dw.ver

    return $dw.version

endproc

proc dw.ip

    return dw.get("https://ip.mxii.com")

endproc

proc dw.get

    parameters url$,target$

    if %pCount=1

        return dw.DownloadFile(url$,"",dw.CallerProcAddr&)

    elseif %pCount=2

        return dw.DownloadFile(url,target,dw.CallerProcAddr&)

    endif

    return ""

endproc

proc dw.checkinternet

    var isnet&=0
    var dllh&=usedll("wininet.dll")
    casenot dllh& : return 0
    var hinet&=external("wininet.dll","InternetOpenA",0,0,0,0,0)

    if hinet&

        isnet&=1
        external("wininet.dll","InternetCloseHandle",hInet&)

    endif

    freedll dllh&
    return isnet&

endproc

proc dw.checkspeed

    casenot dw.checkinternet() : return 0
    var __int_dwspd&=&gettickcount
    dw.get("https://ip.mxii.com/speed.get")
    __int_dwspd&=1000/((&gettickcount-__int_dwspd&)/150000)
    return __int_dwspd&

endproc

######## INTERNAL FUNCTIONS ########

proc dw.DownloadFile

    parameters url$,destinationFileName$,downloadCallerProc&
    var oel&=set("ErrorLevel",-1)
    var ofm&=set("FileMode",2)
    var content$=""
    var tofile&=if(len(destinationFileName$),1,0)
    var dllh&=usedll("wininet.dll")

    ifnot dllh&

        set("FileMode",ofm&)
        set("ErrorLevel",oel&)
        return ""

    endif

    var hInet& = external("wininet.dll","InternetOpenA",0,0,0,0,0)

    ifnot hInet&

        freedll dllh&
        set("FileMode",ofm&)
        set("ErrorLevel",oel&)
        return ""

    endif

    var hFile&=external("wininet.dll","InternetOpenUrlA",hInet&,addr(url$),0,0,$80000000,0)

    ifnot hFile&

        external("wininet.dll","InternetCloseHandle",hInet&)
        freedll dllh&
        set("FileMode",ofm&)
        set("ErrorLevel",oel&)
        return ""

    endif

    declare buf#
    dim buf#,1024

    if tofile&

        if fileexists(destinationFileName)

            var delfh&=assign(destinationFileName$)
            erase delfh&
            assign delfh&,""

        endif

        var fh&=assign(destinationFileName$)
        openrw fh&

    endif

    case downloadCallerProc& : call(downloadCallerProc&,-1)
    var bytesread&=0
    var accbytesread&=0

    while 1

        external("wininet.dll","InternetReadFile",hFile&,buf#,1024,addr(bytesread&))

        if bytesread&>0

            if tofile

                blockwrite fh&,buf#,0,bytesread&
                accbytesread&=accbytesread&+bytesread&

            else

                content$=content$+char$(buf#,0,bytesread&)

            endif

            case downloadCallerProc& : call(downloadCallerProc&,bytesread&)

        else

            break

        endif

    wend

    case downloadCallerProc& : call(downloadCallerProc&,-2)
    external("wininet.dll","InternetCloseHandle",hFile&)
    external("wininet.dll","InternetCloseHandle",hInet&)
    dispose buf#
    freedll dllh&
    set("FileMode",ofm&)
    set("ErrorLevel",oel&)

    if tofile&

        closerw fh&
        assign fh&,""
        return accbytesread&

    endif

    return content$

endproc