接下来是后台服务器的制作。我用的是Microsoft Visual Studio .NET 2003。语言为VB。(图和相关文字不能放在一起-_- 大家麻烦点,上下对着看吧。)
首先建一个空项目,命名为server(图3)。在这个项目的“解决方案资源管理器”上右击项目,选择“添加(D)”-“添加新项(W)”,添加一个类,命名为server.vb(图4)。在server.vb里写上socket的代码。我是从微软件的网站上的例子上修改来的,也没什么可说的。
Imports System.Net
Imports System.Net.Sockets
Namespace ibaiy
Public Class Server
Private lisenSocket As Socket
Private allRoles As New Hashtable
Private rolesPosition As New Hashtable
’在这个例子中我不打算用数据库了,所以建一个hashtable来存在线用户的资料。如果要存入数据库,只需要加上登陆后验证用户名密码,读数据库资料,再存到这个hashtable里。用户做了操作时再把hashtable里的数据处理后再写入数据库就可以了。这里的操作不难,但比较麻烦,所以我偷下懒
’启动服务的主函数
Public Sub startServer(ByVal port As Integer)
lisenSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim ipen As IPHostEntry = Dns.Resolve(Dns.GetHostName)
Dim endpoint = New IPEndPoint(ipen.AddressList(0).Any, port)
lisenSocket.Bind(endpoint)
lisenSocket.Listen(1000)
lisenSocket.BeginAccept(AddressOf Me.Listen_Callback, lisenSocket)
End Sub
Public Sub Listen_Callback(ByVal result As IAsyncResult)
Dim s As Socket = CType(result.AsyncState, Socket)
Dim so2 As New StateObject
so2.workSocket = s.EndAccept(result)
so2.workSocket.BeginReceive(so2.buffer, 0, so2.buffer.Length, 0, AddressOf Me.Read_Callback, so2)
s.BeginAccept(AddressOf Me.Listen_Callback, s)
End Sub
Public Sub Read_Callback(ByVal result As IAsyncResult)
Dim so As StateObject = CType(result.AsyncState, StateObject)
so.len = so.workSocket.EndReceive(result)
opMsg(so)
so.buffer.Clear(so.buffer, 0, so.buffer.Length)
Try
so.workSocket.BeginReceive(so.buffer, 0, so.buffer.Length, SocketFlags.None, AddressOf Me.Read_Callback, so)
Catch
End Try
End Sub
’这个函数就是处理服务器收到客户端消息的处理函数,一会详细说明
Public Sub opMsg(ByVal so As StateObject)
End Sub
End Class
End Namespace
在server项目里像添加server.vb一样再添加一个StateObject.vb。这是为每个联接的SOCKET一定的buffer,索性做了一个新的类。写以下代码:
本文转自:http://www.5uflash.com/flashjiaocheng/Flashyingyongkaifa/975.html
首先建一个空项目,命名为server(图3)。在这个项目的“解决方案资源管理器”上右击项目,选择“添加(D)”-“添加新项(W)”,添加一个类,命名为server.vb(图4)。在server.vb里写上socket的代码。我是从微软件的网站上的例子上修改来的,也没什么可说的。
Imports System.Net
Imports System.Net.Sockets
Namespace ibaiy
Public Class Server
Private lisenSocket As Socket
Private allRoles As New Hashtable
Private rolesPosition As New Hashtable
’在这个例子中我不打算用数据库了,所以建一个hashtable来存在线用户的资料。如果要存入数据库,只需要加上登陆后验证用户名密码,读数据库资料,再存到这个hashtable里。用户做了操作时再把hashtable里的数据处理后再写入数据库就可以了。这里的操作不难,但比较麻烦,所以我偷下懒
’启动服务的主函数
Public Sub startServer(ByVal port As Integer)
lisenSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim ipen As IPHostEntry = Dns.Resolve(Dns.GetHostName)
Dim endpoint = New IPEndPoint(ipen.AddressList(0).Any, port)
lisenSocket.Bind(endpoint)
lisenSocket.Listen(1000)
lisenSocket.BeginAccept(AddressOf Me.Listen_Callback, lisenSocket)
End Sub
Public Sub Listen_Callback(ByVal result As IAsyncResult)
Dim s As Socket = CType(result.AsyncState, Socket)
Dim so2 As New StateObject
so2.workSocket = s.EndAccept(result)
so2.workSocket.BeginReceive(so2.buffer, 0, so2.buffer.Length, 0, AddressOf Me.Read_Callback, so2)
s.BeginAccept(AddressOf Me.Listen_Callback, s)
End Sub
Public Sub Read_Callback(ByVal result As IAsyncResult)
Dim so As StateObject = CType(result.AsyncState, StateObject)
so.len = so.workSocket.EndReceive(result)
opMsg(so)
so.buffer.Clear(so.buffer, 0, so.buffer.Length)
Try
so.workSocket.BeginReceive(so.buffer, 0, so.buffer.Length, SocketFlags.None, AddressOf Me.Read_Callback, so)
Catch
End Try
End Sub
’这个函数就是处理服务器收到客户端消息的处理函数,一会详细说明
Public Sub opMsg(ByVal so As StateObject)
End Sub
End Class
End Namespace
在server项目里像添加server.vb一样再添加一个StateObject.vb。这是为每个联接的SOCKET一定的buffer,索性做了一个新的类。写以下代码:
本文转自:http://www.5uflash.com/flashjiaocheng/Flashyingyongkaifa/975.html