XProfan

English

Martin
Kempf

I let this code in a Loop walk and a momentum inquire over network manage:

ElseIf @MenuItem(3484)'Test

if val(SolarSystemID$) > 0

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

    whileloop angzeilen&

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

        if i% > 0'TypID found.

            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&

                    while %loading

                        x& = &bytesread

                    endwhile

                endif

            endif

        endif

    endwhile

endif

now crashes me the Interpreter (or The Exe) To unterschiedlichen Zeitpunkten with the process the Codes inside the while %loading Loop ex, after the Download successful launched watts and only ne small Textdatei zurückkommt.
what could The cause his?

01/03/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Try time these function:

Compile Mark Separation

proc dwget

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

    while %Loading

        waitinput 50

    wend

    return 1

endproc

(ungetestet here in whom editor written)

and supplant your:

Compile Mark Separation

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

if i% > 0

    clear x&

    while %loading

        x& = &bytesread

    endwhile

endif

in:

Compile Mark Separation

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

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

01/03/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Martin
Kempf

the nenn I ne prompte Help: thanks for. the shining The Solution To his - I bekomm now none Error More. and it reicht completely from, if I into <while %loading> Loop the <waitinput 50> einfüge, More must I on the code not Change. only betrayal me time, what <waitinput 50> really power? and Have I there what in the XProfan-Help not found?

01/03/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

ca. 50ms Waiting and Threads Time give.

there here crash otherwise follows, take I, that Roland The communication with seinem Download-Thread not really threadsicher program has. (I had but already once fixes)

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

01/03/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Habs again found, is of 11/2014: [...]