Anonymous user
Echo server: Difference between revisions
Add REALBasic implementation
(Add REALBasic implementation) |
|||
Line 1,427:
(thread (λ() (copy-port I O) (close-output-port O)))
(echo-server))
</lang>
=={{header|REALbasic}}==
This example uses the built-in ServerSocket class to handle multiple users.
<lang vb>
Class EchoSocket
Inherits TCPSocket
Sub DataAvailable()
Dim data As String = Me.ReadAll
Me.Write(data + EndOfLine.Windows) 'EndOfLine.Windows is a carriage return and line feed
End Sub
End Class
Class EchoServer
Inherits ServerSocket
Function AddSocket() As TCPSocket
Return New EchoSocket
End Function
End Class
Class App
Inherits ConsoleApplication
Sub Run(args() As String)
Listener = New EchoServer
Listener.Port = 12321
Listener.Listen()
While True
DoEvents() 'pump the event loop
Wend
End Sub
Private Listener As EchoListener
</lang>
| |||