ソケット通信の例を記載します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
Kf(_tcpsocket){ Pe{ /*キーステーションが最初に実行するキーセット*/ N(_main); } } K(_main){ De{ (str)._dstipaddress="127.0.0.1"; (int)._portnum=49280; (key)._socketman; } U{ R("TCP通信") R5(#disp) Pe{ /* 0:socketman 1:宛先ホスト 2:ポート番号 3:文字コード 4:改行文字 5:自動接続(0:off 1:on) */ ._socketman?=manOpen("socketman",._dstipaddress?,._portnum?,"shiftjis","\n",1); ._socketman?%setReceiver(#me/<#_NCSReceiver); ._socketman?%start(); ._socketman?%send("message\n"); } X Pe((str)#_NCSReceiver,(str)msg){ #disp?=msg; } Pd{ if(._socketman?!=null){ ._socketman?%close(); } } } } |