blob: c059dae591f4060f562aff2b2079f4d32d8e5d58 (
plain)
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
|
PackageLoader fileInPackage: 'Sockets'.
Eval [
| msg socket datagram addr |
addr := Sockets.SocketAddress byName: '127.0.0.1'.
socket := Sockets.DatagramSocket local: '127.0.0.1' port: 5000.
datagram := Sockets.Datagram new.
datagram port: 1313.
datagram address: addr.
"SLTM"
msg := #(2 0 0 1 0 0 0 0 0 0 0
15 193 232 197 7 0 17
128 247 248 249 250 251
252 253 254 ) asByteArray.
datagram data: msg.
socket nextPut: datagram.
"TRA"
msg := #(2 0 0 1 0 0 0 0 0 0 0 6 192 232 197 7 0 23) asByteArray.
datagram data: msg.
socket nextPut: datagram.
]
|