6 lines
191 B
Text
6 lines
191 B
Text
server = SocketOpen[12321];
|
|
SocketListen[server, Function[{assoc},
|
|
With[{client = assoc["SourceSocket"], input = assoc["Data"]},
|
|
WriteString[client, ByteArrayToString[input]];
|
|
]
|
|
]]
|