26 lines
647 B
Smalltalk
26 lines
647 B
Smalltalk
![]() |
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.
|
||
|
]
|