langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Hello-world-Web-server/PureBasic/hello-world-web-server.purebasic
+++ b/Task/Hello-world-Web-server/PureBasic/hello-world-web-server.purebasic
@ -0,0 +1,23 @@
+If InitNetwork() = 0
+	MessageRequester("Error", "Can't initialize the network !")
+	End
+EndIf
+
+Port = 8080
+
+If CreateNetworkServer(0, Port)
+	Repeat
+		Delay(1)
+		SEvent = NetworkServerEvent()
+		If SEvent
+			ClientID = EventClient()
+			Select SEvent
+				Case #PB_NetworkEvent_Data
+					SendNetworkData(ClientID,@"Goodbye, World!",Len("Goodbye, World!"))
+					CloseNetworkConnection(ClientID)
+			EndSelect
+		EndIf
+	ForEver
+Else
+	MessageRequester("Error", "Can't create the server (port in use ?).")
+EndIf