Home   Archive   Permalink

tcp comm

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:
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

Thanks . I will go over the code you have posted. As Always, thanks.

posted by:   John     8-May-2014/13:34:34-7:00