tcp comm
Hi
I was running the example tcp server and client on port 9097. I unblocked the port but it still won't run for the client. I am running both scripts from my pc. Is that wrong? Here is the code
R E B O L [ Title: "Example TCP Server & Client" ]
either all [args: system/options/args find args "-c"] [
port: open/direct/lines/no-wait tcp://localhost:9097
args: true
][
listen: open/direct/lines/no-wait tcp://:9097
wait listen
port: first listen
args: false
]
view/new win: layout/size [
backdrop either args [green][red]
text "type a message then press [ENTER] to send to the green window"
entry: field [ insert port entry/text focus entry ]
display: info "" 300x200
button "quit" [
close port
if not args [close listen]
unview halt
]
] 320x300
win/offset: 0x0
show win
forever [
wait port
foreach msg any [copy port []] [
append display/text join msg newline
]
show display
]
posted by: john 6-May-2014/1:48:45-7:00
I haven't had a moment to go through this code yet. Have you seen:
http://business-programming.com/business_programming.html#section-17.4
Particularly this example:
view layout [ across
q: btn "Serve"[focus g p: first wait open/lines tcp://:8 z: 1]text"OR"
k: btn "Connect"[focus g p: open/lines rejoin[tcp:// i/text ":8"]z: 1]
i: field form read join dns:// read dns:// return
r: area rate 4 feel [engage: func [f a e][if a = 'time and value? 'z [
if error? try [x: first wait p] [quit]
r/text: rejoin [x "^/" r/text] show r
]]] return
g: field "Type message here [ENTER]" [insert p value focus face]
]
posted by: Nick 8-May-2014/13:18:12-7:00
Hi,
Thanks . I will go over the code you have posted. As Always, thanks.
posted by: John 8-May-2014/13:34:34-7:00
|