hsp37のwifiサーバ

hsp37ではtcp-serverの切断は原則ない！　

 #include "hspsock.as"

port = 12345

sdim buf, 1024

dim position

title "HSP TCP Server"

sockmake 0, port

if stat != 0 : dialog "ポートを開けません": end

mes "12345で待機中..."

*main

    sockwait 0

    if stat == 0 {

        mes "接続されました"

        goto *recv

    }

    wait 10

    goto *main

*recv

    sockget buf, 1024, 0

    if buf != "" {

        position = 0

        getstr buf, buf, position, 10　; 10は

        mes buf

        if buf = "ledon"  : mes "LED ON"

        if buf = "ledoff" : mes "LED OFF"

        sockput "OK\n", 0

        buf = ""

    }

    wait 10

    goto *recv