Holger Hans Peter Freyther | e15fa4c | 2010-12-08 10:06:52 +0100 | [diff] [blame] | 1 | PackageLoader fileInPackage: 'Sockets'. |
| 2 | |
| 3 | Eval [ |
| 4 | | msg socket datagram addr | |
| 5 | |
| 6 | addr := Sockets.SocketAddress byName: '127.0.0.1'. |
| 7 | socket := Sockets.DatagramSocket local: '127.0.0.1' port: 5000. |
| 8 | datagram := Sockets.Datagram new. |
| 9 | datagram port: 1313. |
| 10 | datagram address: addr. |
| 11 | |
| 12 | "SLTM" |
| 13 | msg := #(2 0 0 1 0 0 0 0 0 0 0 |
| 14 | 15 193 232 197 7 0 17 |
| 15 | 128 247 248 249 250 251 |
| 16 | 252 253 254 ) asByteArray. |
| 17 | |
| 18 | datagram data: msg. |
| 19 | socket nextPut: datagram. |
| 20 | |
Holger Hans Peter Freyther | ae74181 | 2010-12-08 11:28:12 +0100 | [diff] [blame^] | 21 | "TFP" |
| 22 | msg := #(2 0 0 1 0 0 0 0 0 0 0 8 |
| 23 | 192 232 197 7 0 20 62 2) asByteArray. |
| 24 | datagram data: msg. |
| 25 | socket nextPut: datagram. |
| 26 | |
Holger Hans Peter Freyther | e15fa4c | 2010-12-08 10:06:52 +0100 | [diff] [blame] | 27 | "TRA" |
| 28 | msg := #(2 0 0 1 0 0 0 0 0 0 0 6 192 232 197 7 0 23) asByteArray. |
| 29 | datagram data: msg. |
| 30 | socket nextPut: datagram. |
| 31 | ] |