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 | 58d0c24 | 2010-12-08 11:32:29 +0100 | [diff] [blame] | 27 | "ISUP" |
| 28 | msg := #(2 0 0 1 0 0 0 0 0 0 0 11 |
| 29 | 197 232 197 7 224 3 0 23 1 1 28) asByteArray. |
| 30 | datagram data: msg. |
| 31 | socket nextPut: datagram. |
| 32 | |
Holger Hans Peter Freyther | e15fa4c | 2010-12-08 10:06:52 +0100 | [diff] [blame] | 33 | "TRA" |
| 34 | msg := #(2 0 0 1 0 0 0 0 0 0 0 6 192 232 197 7 0 23) asByteArray. |
| 35 | datagram data: msg. |
| 36 | socket nextPut: datagram. |
Holger Hans Peter Freyther | 80ab4c6 | 2010-12-31 13:40:19 +0100 | [diff] [blame] | 37 | |
| 38 | "SST" |
| 39 | msg := #(2 0 0 1 0 0 0 0 0 0 0 24 195 233 197 7 224 9 0 3 5 9 2 66 1 4 67 31 0 1 5 3 7 233 5 0 ) asByteArray. |
| 40 | datagram data: msg. |
| 41 | socket nextPut: datagram. |
Holger Hans Peter Freyther | e15fa4c | 2010-12-08 10:06:52 +0100 | [diff] [blame] | 42 | ] |