===============================================================

服务器，main.lua

===============================================================

local socket = require ( "socket" )

local tcpServer = nil

--创建指定端口的tcp server

local function createTCPServer( port )

-- Create Socket

local tcpServerSocket , err = socket.tcp()

local backlog = 5

-- Check Socket

if tcpServerSocket == nil then

return nil , err

end

-- Allow Address Reuse

tcpServerSocket:setoption( "reuseaddr" , true )

-- Bind Socket

local res, err = tcpServerSocket:bind( "*" , port )

if res == nil then

return nil , err

end

-- Check Connection

res , err = tcpServerSocket:listen( backlog )

if res == nil then

return nil , err

end

-- Return Server

return tcpServerSocket

end

--接受来自客户端的连接，并保存在tcpClient

local tcpClient = nil

local function acceptClient()

tcpServer:settimeout( 0 )

clientIn , _ = tcpServer:accept()

if clientIn then

tcpClient = clientIn

end

end

--接收已连接的客户端(tcpClient)数据

local function receiveLoop()

if tcpClient ~= nil then

local tcpClientMessage , _ = tcpClient:receive('*l')

if ( tcpClientMessage ~= nil ) then

print(tcpClientMessage)

tcpClient:send( "back:" .. tcpClientMessage .. "

")

end

end

end

local function main()

tcpServer , _ = createTCPServer( 8080 )

if tcpServer then

Runtime:addEventListener( "enterFrame" , acceptClient )

Runtime:addEventListener( "enterFrame" , receiveLoop )

end

end

main()

===============================================================

客户端程序，main.lua

===============================================================

local ui = require("ui")

local socket = require("socket")

local tcpClient = nil

--接收来自服务器的数据

local function receiveData()

if tcpClient then

tcpClient:settimeout(0)

local msg = tcpClient:receive("*l")

if msg then

print(msg)

end

end

end

--向服务器发送数据

local index = 0

local function btnListener(event)

index = index + 1

if tcpClient then

tcpClient:send("pack index:" .. index .. ".

")

end

end

--初始化

local function main()

local btn = ui.newButton{

default = "buttonBlue.png",

over = "buttonBlueOver.png",

onRelease = btnListener,

id = "btn"

}

btn:setReferencePoint(display.TopLeftReferencePoint)

btn.x = 10

btn.y = 100

--创建tcp连接

tcpClient = socket.tcp()

if tcpClient then

local ret = tcpClient:connect("192.168.1.2", 8080)

if ret then

tcpClient:send("hi, server, i'm client.

")

Runtime:addEventListener("enterFrame", receiveData)

end

end

end

main()

lua socket相关文档参见：http://w3.impa.br/~diego/software/luasocket/tcp.html

http://blog.csdn.net/chunleixiahe/article/details/41683427