XProfan

Español

Martin
Kempf

Yo lasse esta Code en uno Bucle laufen y una Schwung Abfragen übers Netz durchführen:

ElseIf @MenuItem(3484)'Test

if val(SolarSystemID$) > 0

    hGrid& = @create("Grid",8,0)
    angzeilen& = GetLines(OLView&)

    whileloop angzeilen&

        GetItemText(OLview&, bereich#, 5,&Loop)
        Prim$ = @Trim$(cadena$(bereich#,0))'PrimKey
        X$ = "SELECT MWert2 from MAT WHERE MTyp = 'O' AND MKey = '"+Prim$+"'"'TypID holen
        clearlist
        i% = @db("fbSQLExec", ep&, X$, hGrid&)

        if i% > 0'TypID gefunden.

            Y$ = GetText $(hGrid&,0,0)

            if val(Y$) > 0

                Url$ = "https://api.eve-central.com/api/quicklook?typeid=" + Y$ +"&usesystem="+SolarsystemID$
                i% = downloadfile(Url$, "TMP.TXT")

                if i% > 0

                    clear x&

                    mientras que %loading

                        x& = &bytesread

                    endwhile

                endif

            endif

        endif

    endwhile

endif

Jetzt stürzt me el Interpreter (oder auch el Exe) a unterschiedlichen Zeitpunkten en Ausführung des Codes innerhalb el mientras que %loading Bucle de, después de el Descargar erfolgreich comenzó wurde y sólo ne poco Textdatei zurückkommt.
Was podría el Ursache ser?

03.01.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Probiere veces esta Función:

Kompilieren Marca Separación

proc dwget

    parámetros url$,fle$
    casenot downloadfile(url$,fle$) : volver 0

    mientras que %Loading

        waitinput 50

    wend

    volver 1

ENDPROC

(ungetestet aquí en el Editor geschrieben)

y ersetze Su:

Kompilieren Marca Separación

Url$ = "https://api.eve-central.com/api/quicklook?typeid=" + Y$ +"&usesystem="+SolarsystemID$
i% = downloadfile(Url$, "TMP.TXT")

if i% > 0

    clear x&

    mientras que %loading

        x& = &bytesread

    endwhile

endif

en:

Kompilieren Marca Separación

dwget("https://api.eve-central.com/api/quicklook?typeid=" + Y$ +"&usesystem="+SolarsystemID$,"tmp.exe")

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

03.01.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Martin
Kempf

el nenn Yo ne prompte Ayuda: danke dafür. Das scheint el Solución a ser - Yo bekomm ahora no Fehler mehr. Und lo reicht völlig de, si yo en el <while %loading> Bucle el <waitinput 50> einfüge, mehr muss Yo al Code no ändern. Nur verrat me de tiempo, qué <waitinput 50> eigentlich macht? Und tener Yo como qué en el XProfan-Ayuda No se ha encontrado?

03.01.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Ca. 50ms warten y Hilos Tiempo geben.

Como hier una Choque sonst folgt, Aprovecho a, dass Roland el Kommunikation con seinem Descargar-Hilo no wirklich threadsicher programmiert ha. (Tuve aber ya una vez festgestellt)

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

03.01.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Habs otra vez gefunden, es de 11/2014: [...]