XProfan

Deutsch

Der Code läd ein Byte zu viel und meldet in &bytesRead auch ein Byte zu viel.

Dazu kommt, dass wenn man in der Whileschleife das Auskommentierzeichen entfernt, dass das Programm in der Schleife hängen bleibt.
Kompilieren Markieren Separieren

cls
print http.get(http://xprofan.com/getappversionfromfile.core?id=38357)
print &bytesRead
waitkey
end

proc http.get

    parameters url$
    casenot downloadFile(url$) : return

    while %loading

        locate 1,1
        print &getTickCount

    endwhile

    return $Download

endproc

08.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Das kann ich alles nicht nachvollziehen:

Sowohl im Interpreter als auch kompoiliert läuft das Prohramm bei mir völlig problemlos und bleibt auch bei auskommentierten Locate- und Print-Zeilen nicht hängen.

&BytesRead hat bei Ausgabe den Wert 4. Inwiefern das stimmt, kann ich nicht beurteilen. Wenn ich Dateien bekannter Größe von xprofan.de lade, ist &BytesRead korrekt.

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

08.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Und wenn Du mal die meinige Exe zum Text probierst? (unten als Anhang)

Ich habe auch einen Screenshot beigelegt - die Ausgabe passt nicht zum Source.

Das &bytesRead nicht stimmt habe ich falsch gemeldet - &bytesRead gibt korrekt 4 aus.

$download jedoch hat hinten eine 0 dran - und das Print gibt zwei Zeilen aus.

Wenn Du Die URL einfach mal im Browser lädst: [...]

dann siehst Du das lediglich momentan 3.75 zu laden wäre, also 4 Byte, und nicht 3.750, und nicht 3.750

3.750 was dieses Print im Beispiel bei mir jedoch ausgibt.

Benutze ich die kleine download.inc so erhalte ich das gewünschte Ergebnis.
Kompilieren Markieren Separieren

cls
print http.get(http://xprofan.com/getappversionfromfile.core?id=38357)
waitkey
end

proc http.get

    parameters url$
    casenot downloadFile(url$) : return

    while %loading

        locate 1,1
        print &getTickCount

    endwhile

    return $Download

endproc

Zwischenablage01.png Vorschau

6 kB

Hochgeladen:

08.03.2008

Ladeanzahl:

Herunterladen

http.exe

978 kB

Hochgeladen:

08.03.2008

Ladeanzahl:

Herunterladen

08.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Ok, beim Rückgabestring war tatsächlich noch ein Bug. In der nächsten Subscriptionsversion ist auch das behoben und es kommt tatsächlich nur 3.75 an.

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

08.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Ok, mit der (dann) neuen Version probiere ich auch diese Schleife nochmals
Kompilieren Markieren Separieren

while %loading

    locate 1,1
    print &getTickCount

endwhile

und hoffe, dass diese nicht wie bei mir mit B15, nicht verlassen wird.

09.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Antworten

Themenoptionen

Ungelesen
Abonnieren
Merkliste
Hinweise
Gäste
Löschen
Ständig
Erledigt

4.224 Betrachtungen

Unbenannt	vor 0 min.
Stephan Sonneborn	23.10.2019
Andre Rohland	12.06.2018
Georg Teles	25.09.2014

Themeninformationen

Dieses Thema hat 2 Teilnehmer:

iF (3x)

RGH (2x)

XProfan

X11B15: DownloadFile-Problem

Antworten

Themenoptionen

4.224 Betrachtungen

Themeninformationen

Datenschutz