(287)  S'inscrire

Français
Comprend

Télécharger.inc (http:)

 
- page 1 -


Télécharger.Inc

HTTP-Abruffunktionen pour einfacheres Abfragen de Webserver-Ausgaben.

<!---->

Télécharger/ dans den Warenkorb
4,99 €
 inkl. MwSt.
aucun Versandgebühr
KompilierenMarqueSéparation
/*
|
|
|
|   INC: Télécharger.Inc
|   empfohlene Einbindung: include download.inc
|                          **************************
|
|   Soutien: https://XProfan.com/includes
|
|   qui Urheberrechte cette Software liegen chez mir (iF, David Strutz).
|
|
|   Salve, iF.
|   20070713
|
|____________________________________________________________________________________*/
 {$cleq}
/*      Télécharger.Inc XPSE Democode
XPSE (XProfan's free PreCompiler) ist disponible sous
https://XProfan.com/xpse                                                 */
include download.inc
style de fenêtre ( 8 | 16 | 512 )
cls 0
color 10,0
imprimer

si len($ Trim(dw.ip())) {//is.inet.available.trick

    imprimer " INC-Version:             ",dw.Ver()
    imprimer " ses IP:                 ",dw.ip()
    imprimer " Http-Abruf:              ",dw.get("https://XProfan.com/hilfe/sheet/xpse/","_testout.html"),"bytes."
    imprimer " Bild-Abruf:              ",dw.get("https://XProfan.com/images/lv.bmp","_lv.bmp"),"bytes."
    imprimer " 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

d'autre

    imprimer " Es konnte aucun Internetverbindung genutzt volonté."
    waitkey
    end

endif

do {

    waitinput

    sélectionner clé

        caseof 2 : pause

    endselect

}

destroywindow(hbox)
end




647 kB4,99 €
inkl. MwSt.
aucun Versandgebühr
item:DE-8
Bezeichnung:Download.Inc
Version:0.1.6
Kurzbeschreibung: Erweiterte HTTP-Abruffunktionen pour einfacheres Abfragen de Webserver-Ausgaben.
Hochgeladen:16.02.2009
Download
3 kB
Hochgeladen:31.10.2020
Downloadcounter: 61
Download
 
23.11.2004  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



 
- page 1 -


@Jacob: Habe Deinen Wunsch berücksichtigt et neue Version hochgeladen.

Demo dabei - il peut eh bien dem Long dw.CallerProcAddr une ProcAddr zuweisen.
 
13.07.2007  ▲
 




Michael
Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
01.12.2007  ▲
 



@Dietmar: Du devrait qui vieille Unit aus Deinem XManager herauswerfen et par cet INC ersetzen. qui INC ist fehlerfreier, unanfälliger et plus rapide là vous anders arbeitet comme qui Unit.
 
02.12.2007  ▲
 




marian
Salut,
j'ai malheureusement aucun Vollversion de xProfan 11, voudrais mais toutefois une Dossier aus dem Internet herunterladen. Dabei suis je sur cet Include (Version 0.16) gestoßen, mais irgendwie sais je pas plus.
So sieht momentan mon Testprogramm pour qui Procédure aus:
KompilierenMarqueSéparation
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
>

qui Interpreter Version 8 gibt tout de suite une Fehlermeldung aus, dass dw.CallerProcAddr aucun numéro sei. Kommentiert on cet la ligne aus, so folgen Fehlermeldungen, dass qui Funktionen inconnu seien.
qui Interpreter qui Freeversion 11 stürzt ab. Entfernt on $I download.inc venez es pas zum absturz, mais plan le habituel Fehlermeldungen "Funktion unbekannt" bzw. "Klammern pas ausgewogen"

quoi fais je faux??
 
28.05.2010  ▲
 



allô Marian,

qui Include erfordert den Präkompiler (XPSE [...]  ) - probiere la fois s'il te plaît si ensuite avec cela et XProfan 8 cela mitgelieferte Beispiel herunterläd. dans qui Freeware-Version de XProfan 11 (Interpreter) gibt es aussi une ähnliche Funktion nommé DownLoadFile.

Syntaxfehler ist aussi:
KompilierenMarqueSéparation
down_bytes&=dw.get(http://url/update.txt,$ProgDir/update/update.txt
>
korrekt:
KompilierenMarqueSéparation
down_bytes&=dw.get("https://url/update.txt",$ProgDir+"/update/update.txt")
>

PS: tu peux un hilfreiches Updatemanagement-Feature qui Threads sur XProfan.Com nutzen.

si Du z.B. un Programme postest/ vorstellst comment z.B. ici chez Gonzo: [...]  ensuite la hâte Du qui Possibilité im Vorstellungs-/ Initialposting qui Version trop hinterlassen. dans qui Themenübersicht wiederum de Threads (Beispiel Gonzo [...]  ) gibt es à droite unten une Link trop einer permanenten URL, qui comme Antwort seulement qui Versionsnummer liefert comment z.B. [...]  . So bleibt es un Arbeitsschritt une neue Version trop veröffentlichen et gleichzeitig par-dessus un Updatemanagement abzuwickeln - zudem hat on par cela Envoyer des Programmpaketes aussi une statische URL de qui un Client ensuite simple herunterladen peux z.B. si une neue Version vorliegt.
 
28.05.2010  ▲
 




marian
je hab mir maintenant XPSE heruntergeladen et den Pfad trop xpse.exe comme Interpreterpfad angegeben. si je eh bien avec cela cela Beispielprogramm ausführe ouvrez sich un DOS-la fenêtre avec den Meldungen, dass Runtime et Compiler trouvé wurden. Runtime et Compiler sommes beide aus qui Version 8. si je ensuite un "C" eingebe, afin de compilieren, bleibt qui Compiler dans la ligne 6 stehen avec qui Fehlermeldung: "Befehl inconnu: VAR"
je hab aussi déjà versucht, dans qui *.enh-Dossier alle var-Befehle par declare trop ersetzten. là kam ensuite qui Fehlermeldung beim Compilieren: "Befehl inconnu: SELECT"

qui peux aider?

cela Updatemanagement qui Community, bringt mir rien, là cela Programme pas dans diesem Sinne veröffentlich volonté soll.
 
28.05.2010  ▲
 



Ah, verstehe - "fehlen" dem XProfan 8 encore un paire autre Features.

je schaue (pour dem dîner) si sich cela pas simple pour XProfan 8 traduire peut.
 
28.05.2010  ▲
 



Probiere la fois: (ungetestet)
KompilierenMarqueSéparation
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&

    end
return content$ endproc
 
28.05.2010  ▲
 



Spars Dir, qui Vars doit aussi encore weg...
 
28.05.2010  ▲
 



 
- page 2 -


So - et Assign sur #99 umgestellt statt dynamisch - s'il te plaît testen:
KompilierenMarqueSéparation
def $dw.version="0.1.6.x8.0"
declare dw.CallerProcAddr&
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

    declare isnet&
    isnet&=0
    declare dllh&
    dllh&=usedll("wininet.dll")
    casenot dllh& : return 0
    declare hinet&
    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
    declare __int_dwspd&
    __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&
    declare oel&,ofm&,content$,tofile&,dllh&,hInet&,hFile&,delfh&,fh&,bytesread&,accbytesread&
    oel&=set("ErrorLevel",-1)
    ofm&=set("FileMode",2)
    content$=""
    tofile&=if(len(destinationFileName$),1,0)
    dllh&=usedll("wininet.dll")

    ifnot dllh&

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

    endif

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

    ifnot hInet&

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

    endif

    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$)

            assign #99,destinationFileName$
            erase #99

        endif

        assign #99,destinationFileName$
        openrw #99

    endif

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

    while 1

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

        if bytesread&>0

            if tofile

                blockwrite #99,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 #99
        return accbytesread&

    

    return content$

endproc
 
28.05.2010  ▲
 




Dietmar
Horn
chez XProfan 8.0 aller qui Dateinummern encore pas jusqu'à 99, mais seulement de 1 jusqu'à 15.
 
Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V.  [...] 

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch:  [...] 
28.05.2010  ▲
 



Roland!

qui Hilfedatei im XProfan 8-paquet ist une HLP!

Ahhhhhhhhhhhhhhhhhh! *kreuzbandschüttel*

@Dietmar: Habe sur #15 umgestellt et aus si tofile si tofile& gemacht:
KompilierenMarqueSéparation
def $dw.version="0.1.6.x8.0"
declare dw.CallerProcAddr&
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

    declare isnet&
    isnet&=0
    declare dllh&
    dllh&=usedll("wininet.dll")
    casenot dllh& : return 0
    declare hinet&
    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
    declare __int_dwspd&
    __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&
    declare oel&,ofm&,content$,tofile&,dllh&,hInet&,hFile&,delfh&,fh&,bytesread&,accbytesread&
    oel&=set("ErrorLevel",-1)
    ofm&=set("FileMode",2)
    content$=""
    tofile&=if(len(destinationFileName$),1,0)
    dllh&=usedll("wininet.dll")

    ifnot dllh&

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

    endif

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

    ifnot hInet&

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

    endif

    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)

            assign #15,destinationFileName$
            erase #15

        endif

        assign #15,destinationFileName$
        openrw #15

    endif

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

    while 1

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

        if bytesread&>0

            if tofile&

                blockwrite #15,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 #15
        return accbytesread&

    

    return content$

endproc

KompilierenMarqueSéparation funktioniert so avec XProfan 8 (getestet).
 
29.05.2010  ▲
 



◄
12

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

26.959 Views

Untitledvor 0 min.
Pascal ter Haseborg25.05.2023
Cyberangle03.02.2023
Walter12.01.2023
Uwe Lang17.09.2022
plus...

Themeninformationen

cet Thema hat 4 participant:

iF (11x)
marian (2x)
Dietmar Horn (1x)
Michael Wodrich (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie