Sample Script: TLuaSocket

--Construct a new socket device

socket = TLuaSocket()

iPortNumber = 8080

--Open a TCP socket

iRet = socket:OpenTCP(iPortNumber)

--If OpenTCP returned a 0 (boolean FALSE) then the open failed

if iRet==0 then

	print("Cannot open port "..iPortNumber.." Error code:"..GetLastError())

else

	--Read some data (max 1024 bytes) from the socket

	iReadSize = 1024

	data = socket:Read(iReadSize)

	--Print the content

	if iReadSize > 0 then

		print("Data received from server:\n\n")

		print(data)

	else

		print("No data received from server")

	end

end

socket:Close()