Anonymous user
Echo server: Difference between revisions
→{{header|PureBasic}}
No edit summary |
|||
Line 837:
=={{header|PureBasic}}==
<lang Purebasic>
If InitNetwork() = 0▼
End▼
NewMap RecData.s()
OpenWindow(0, 100, 200, 200, 100, "Echo Server", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget )
CreateNetworkServer(
Repeat
Line 858 ⟶ 852:
*Buffer = AllocateMemory(20000)
count = ReceiveNetworkData(ClientID, *Buffer, 20000)
Buffer$ = PeekS(*Buffer, count)▼
For i = 1 To count
If
SendNetworkString (ClientID, Left( RecData(Str(ClientID)), Len(RecData(Str(ClientID))) - 2))
RecData(Str(ClientID)) = ""
EndIf
Next
ElseIf Event = #PB_NetworkEvent_Disconnect ; When a client has closed the connection...
DeleteMapElement(RecData(), Str(ClientID))
Line 877 ⟶ 868:
Until Event = #PB_Event_CloseWindow
</lang>
=={{header|Tcl}}==
| |||