2012-05-18 16:54:11 +00:00
|
|
|
"
|
|
|
|
Simple UDP replay from the state files
|
|
|
|
"
|
|
|
|
|
|
|
|
PackageLoader fileInPackage: #Sockets.
|
2012-08-05 07:27:20 +00:00
|
|
|
FileStream fileIn: 'rtp_replay_shared.st'.
|
2012-05-18 16:54:11 +00:00
|
|
|
|
2012-08-05 07:25:25 +00:00
|
|
|
|
|
|
|
Eval [
|
2013-12-13 12:18:19 +00:00
|
|
|
| replay file host dport |
|
2012-08-05 07:25:25 +00:00
|
|
|
|
2013-12-13 12:18:19 +00:00
|
|
|
file := Smalltalk arguments at: 1 ifAbsent: [ 'rtpstream.state' ].
|
|
|
|
host := Smalltalk arguments at: 2 ifAbsent: [ '127.0.0.1' ].
|
|
|
|
dport := (Smalltalk arguments at: 3 ifAbsent: [ '4000' ]) asInteger.
|
|
|
|
sport := (Smalltalk arguments at: 4 ifAbsent: [ '0' ]) asInteger.
|
2012-08-05 07:27:20 +00:00
|
|
|
|
2013-12-13 12:18:19 +00:00
|
|
|
replay := RTPReplay on: file fromPort: sport.
|
2012-08-05 07:25:25 +00:00
|
|
|
|
|
|
|
Transcript nextPutAll: 'Going to stream now'; nl.
|
2013-12-13 12:18:19 +00:00
|
|
|
replay streamAudio: host port: dport.
|
2012-05-18 16:54:11 +00:00
|
|
|
]
|