(283)  Registro

Español
Incluye

Descargar.inc (http:)

 
- Página 1 -


Descargar.Inc

HTTP-Abruffunktionen para einfacheres Abfragen de Webserver-Ausgaben.

<!---->

Descargar/ In el Warenkorb
4,99 €
 inkl. MwSt.
no Versandgebühr
KompilierenMarcaSeparación
/*
|
|
|
|   INC: Descargar.Inc
|   empfohlene Einbindung: include download.inc
|                          **************************
|
|   Apoyo: https://XProfan.com/includes
|
|   El Urheberrechte dieser Software mentira en me (IF, David Strutz).
|
|
|   Salve, IF.
|   20070713
|
|____________________________________________________________________________________*/
 {$cleq}
/*      Descargar.Inc XPSE Democode
XPSE (XProfan's free PreCompiler) es erhältlich bajo
https://XProfan.com/xpse                                                 */
include download.inc
windowstyle ( 8 | 16 | 512 )
cls 0
color 10,0
imprimir

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

    imprimir " INC-Versión:             ",dw.ver()
    imprimir " Ihre IP:                 ",dw.ip()
    imprimir " Http-Abruf:              ",dw.get("https://XProfan.com/hilfe/sheet/xpse/","_testout.html"),"bytes."
    imprimir " Bild-Abruf:              ",dw.get("https://XProfan.com/images/lv.bmp","_lv.bmp"),"bytes."
    imprimir " 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

más

    imprimir " Lo podría no Internetverbindung genutzt voluntad."
    waitkey
    end

endif

do {

    waitinput

    seleccionar key

        caseof 2 : romper

    endselect

}

destroywindow(hbox)
end




647 kB4,99 €
inkl. MwSt.
no Versandgebühr
item:DE-8
Bezeichnung:Download.Inc
Versión:0.1.6
Kurzbeschreibung: Erweiterte HTTP-Abruffunktionen para einfacheres Abfragen de Webserver-Ausgaben.
Hochgeladen:16.02.2009
Descargar
3 kB
Hochgeladen:31.10.2020
Ladeanzahl: 61
Descargar
 
23.11.2004  ▲
Vollständiges Zitat
Absatzweise CitaZeilenweise Cita
 



 
- Página 1 -


@Jacob: Posesiones Su Wunsch berücksichtigt y neue Versión hochgeladen.

Demo esta - uno kann nun el Largo dw.CallerProcAddr una ProcAddr zuweisen.
 
13.07.2007  ▲
 




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



@Dietmar: Usted debe el alte Unit de Deinem XManager herauswerfen y por esta INC sustituir. El INC es fehlerfreier, unanfälliger y más rápido como ellos anders arbeitet como el Unit.
 
02.12.2007  ▲
 




marian
¡Hola,
Yo desafortunadamente no Vollversion de xProfan 11, möchte aber todavía una Expediente de el Internet herunterladen. Dabei bin I esta Incluir (Versión 0.16) gestoßen, aber irgendwie weiß Yo no más.
So sieht momentan mein Testprogramm para el Procedimiento de:
KompilierenMarcaSeparación
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
>

Der Interpreter Versión 8 son inmediatamente una Fehlermeldung de, dass dw.CallerProcAddr no Zahl sei. Kommentiert uno esta Línea de, así folgen Fehlermeldungen, dass el Características unbekannt seien.
Der Interpreter el Freeversion 11 stürzt de. Entfernt uno $I download.inc kommt no para absturz, aber eben a üblichen Fehlermeldungen "Funktion unbekannt" o. "Klammern no ausgewogen"

Was mache Yo falso??
 
28.05.2010  ▲
 



¡Hola Marian,

Incluya el erfordert el Präkompiler (XPSE [...]  ) - probiere veces Por favor, si entonces así y XProfan 8 el mitgelieferte Ejemplo herunterläd. In el Freeware-Versión de XProfan 11 (Interpreter) hay auch una ähnliche Función nombre DownLoadFile.

Syntaxfehler es auch:
KompilierenMarcaSeparación
down_bytes&=dw.get(http://url/update.txt,$ProgDir/update/update.txt
>
korrekt:
KompilierenMarcaSeparación
down_bytes&=dw.get("https://url/update.txt",$ProgDir+"/update/update.txt")
>

PS: Usted puede una hilfreiches Updatemanagement-Feature el Hilos en XProfan.Com nutzen.

Si usted z.B. una Programa postest/ vorstellst como z.B. hier en Gonzo: [...]  entonces hast Usted el Möglichkeit en el Vorstellungs-/ Initialposting el Versión a hinterlassen. In el Themenübersicht wiederum de Hilos (Ejemplo Gonzo [...]  ) hay rechts unten una Link a uno permanenten URL, el como Antwort sólo el Versionsnummer liefert como z.B. [...]  . So restos lo una Arbeitsschritt una neue Versión a veröffentlichen y gleichzeitig darüber una Updatemanagement abzuwickeln - zudem ha uno por el Subir des Programmpaketes auch una statische URL de el una Client entonces simplemente herunterladen kann z.B. si una neue Versión vorliegt.
 
28.05.2010  ▲
 




marian
Yo me ahora XPSE heruntergeladen y el Pfad a xpse.exe como Interpreterpfad angegeben. si yo nun así el Beispielprogramm ausführe öffnet se una DOS-Ventana con el Meldungen, dass Runtime y Compiler gefunden fueron. Runtime y Compiler son beide de el Versión 8. Wenn Yo entonces una "C" eingebe, en a compilieren, restos el Compiler en Línea 6 posición con el Fehlermeldung: "Befehl unbekannt: VAR"
Yo auch ya intenta, en el *.enh-Expediente todos var-Befehle por declarar a ersetzten. Como kam entonces el Fehlermeldung beim Compilieren: "Befehl unbekannt: SELECT"

Wer kann helfen?

Das Updatemanagement Comunidad, bringt me nichts, como el Programa no en diesem Sinne veröffentlich voluntad se.
 
28.05.2010  ▲
 



Ah, verstehe - "fehlen" el XProfan 8 todavía unos pocos otro Features.

Yo schaue (después de el Abendessen) si la no simplemente para XProfan 8 traducir lässt.
 
28.05.2010  ▲
 



Probiere veces: (ungetestet)
KompilierenMarcaSeparación
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
volver content$ ENDPROC
 
28.05.2010  ▲
 



Spars Usted, el Vars necesario auch todavía weg...
 
28.05.2010  ▲
 



 
- Página 2 -


So - y Asignar en #99 umgestellt en lugar de dynamisch - Por favor, testen:
KompilierenMarcaSeparación
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&

    

    volver content$

ENDPROC
 
28.05.2010  ▲
 




Dietmar
Horn
En XProfan 8.0 ir el Dateinummern todavía no a 99, pero sólo de 1 a 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!

El Hilfedatei en el XProfan 8-Paket es una HLP!

Ahhhhhhhhhhhhhhhhhh! *kreuzbandschüttel*

@Dietmar: Posesiones en #15 umgestellt y de if tofile if tofile& gemacht:
KompilierenMarcaSeparación
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&

    

    volver content$

ENDPROC

KompilierenMarcaSeparación funktioniert así con XProfan 8 (getestet).
 
29.05.2010  ▲
 



◄
12

Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

26.954 Views

Untitledvor 0 min.
Pascal ter Haseborg25.05.2023
Cyberangle03.02.2023
Walter12.01.2023
Uwe Lang17.09.2022
Más...

Themeninformationen

Dieses Thema ha 4 subscriber:

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


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie