Global $sLog = @ScriptDir&"\log.txt"
FileDelete($sLog)

TCPStartup()

$iSocketServer = TCPListen(@IPAddress1, 1234)
print("server socket: " & $iSocketServer)

print("waiting for client...")
Do
	$iSocketClient = TCPAccept($iSocketServer)
Until $iSocketClient > 0
print("client connected on socket:" & $iSocketClient)

While True
	$bData = TCPRecv($iSocketClient, 1024, 1)
	$iError = @error
	$iExtended = @extended
	If $iError <> 0 Or $iExtended <> 0 Or BinaryLen($bData) <> 0 Then
		print("TCPRecv() => '"&BinaryToString($bData)&"'; @error="&$iError&"; @extended="&$iExtended&";")
	EndIf
WEnd


Func print($sText)
	FileWrite("log.txt",  StringFormat("[%i:%i:%i:%i] SERVER: %s\r\n", @HOUR, @MIN, @SEC, @MSEC, $sText))
EndFunc