XProfan

Français

Martin
Kempf

je lasse cette Code dans einer Boucle courir et une Schwung Abfragen übers Netz durchführen:

ElseIf @MenuItem(3484)'Test

si val(SolarSystemID$) > 0

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

    whileloop angzeilen&

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

        si i% > 0'TypID trouvé.

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

            si val(Y$) > 0

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

                si i% > 0

                    clear x&

                    tandis que %loading

                        x& = &bytesread

                    endwhile

                endif

            endif

        endif

    endwhile

endif

maintenant stürzt mir qui Interpreter (ou bien aussi qui Exe) trop unterschiedlichen Zeitpunkten chez qui Ausführung des Codes dedans qui tandis que %loading Boucle ab, après que qui Télécharger erfolgreich gestartet wurde et seulement ne kleine Textdatei zurückkommt.
quoi pourrait qui Ursache son?

03.01.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Probiere la fois cet Funktion:

Kompilieren Marque Séparation

proc dwget

    parameters url$,fle$
    casenot downloadfile(url$,fle$) : return 0

    tandis que %Loading

        waitinput 50

    Wend

    return 1

endproc

(ungetestet ici dans den Editor geschrieben)

et ersetze Dein:

Kompilieren Marque Séparation

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

si i% > 0

    clear x&

    tandis que %loading

        x& = &bytesread

    endwhile

endif

dans:

Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Martin
Kempf

cela nenn je ne prompte Aider: merci pour. cela scheint qui Solution trop son - je bekomm maintenant keinen faute plus. et es reicht völlig aus, si je dans qui <while %loading> Boucle cela <waitinput 50> einfüge, plus muss je am Code pas changement. seulement verrat mir la fois, quoi <waitinput 50> eigentlich pouvoir? et hab je là quoi dans qui XProfan-Aider pas trouvé?

03.01.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Ca. 50ms attendre et Threads Zeit donner.

là ici un Absturz sonst folgt, nehme je à, dass Roland qui communication avec seinem Télécharger-Fil pas wirklich threadsicher programmiert hat. (J'ai eu mais déjà einmal festgestellt)

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

03.01.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Tricolore wieder trouvé, ist de 11/2014: [...]