GLBasic User Manual

Main sections

NETISACTIVE

ok% = NETISACTIVE()


Returns whether the network engine is currently running. If the server quits, the client engines will be shutdown, too.

The NET... commands give network functionality to GLBasic programs using the TCP protocol. TCP has the advantage over other protocols that sending and receiving of network messages is ensured.

NOTE : This command requires that you have purchased either GLBasic Premium or the GLBasic NET add-on.

Example :
FUNCTION ReadHighScores: names$[], scores[], username$, thescore
LOCAL ct, i, str$, proxy$, port

    str$ = "highscores/listgame.php"
    str$ = str$ + "?game=mygame"
    str$ = str$ + "&name="+username$
    str$ = str$ + "&score="+thescore
    str$ = str$ + "&secret=mycode"

    PRINT ".: WebGet scores :.", 0, 0
    SHOWSCREEN

    INIOPEN "config.ini"
    proxy$ = INIGET$("server", "proxy")
    port = INIGET$("server", "port")
    KILLFILE "scores.ini"
    IF port=0 OR proxy$="NO_DATA"
        NETWEBGET("www.glbasic.com", "/"+str$, 80, "scores.ini")
    ELSE
        NETWEBGET(proxy$, "http://www.glbasic.com/" + str$, port, "scores.ini")
    ENDIF

    INIOPEN "scores.ini"
    ct = INIGET$("scores", "count")
    DIM names$[ct]
    DIM scores[ct]

    FOR i=1 TO ct
        names$[i-1] = INIGET$("scores", "n"+i)
        scores[i-1] = INIGET$("scores", "s"+i)
    NEXT
ENDFUNCTION

See also...