SWF5-XMLSocket example 5 12 735 bytes 1686 bytes 2003-06-24 00:00:00 2003-07-13 19:33:34 Oldes (oliva.david@seznam.cz) To create TCP/IP connection

(swf5-xmlsocket.rswf)

fnt_Courier: Font [name "_typewriter" bold]
txt_test: EditText test 319x179 [
    ReadOnly WordWrap Font [fnt_Courier 12]
    layout [indent: 10 leading: -2]
    border
]
txt_input: EditText input 319x19 [
    Font [fnt_Courier 12]
    layout [indent: 10 leading: -2]
    border
]
place txt_test
place txt_input at 0x180

es: emptySprite
sensor: place es [
    actions [
        keyDown [
            if Key.getCode() = 'enter [
                with _parent [
                    if input <> "" [
                     socket.send(input)
                     input: ""
                    ]
                ]
            ]
        ]
    ]
]

doAction [
    myOnConnect: func[success][
        either success [
            test: "Connection succeeded!"
            socket.send("hello")
            socket.send("world")
        ][
            test: test add "^/X-Connection failed!"
        ]
    ]
    socket: make XMLSocket
    socket.onConnect: myOnConnect
    socket.onData:  func[src][
        test:  "^/Received: " add src
        ;test.scroll: test.maxscroll

    ]
    socket.onClose: func[][
        test: test add "^/Connection closed!"
    ]
    socket.connect("192.168.0.2" 5000)
    id: random 1000
    i: 0
]
showFrame
frm_loop: show 5 frames
doAction [
    i++
    str: id .": aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa". i
    socket.send(str)
    goto frm_loop and play 
]
showFrame end