WEB聊天室的四种实现方案及其比较一基于ActiveX的聊天室.docxVIP

WEB聊天室的四种实现方案及其比较一、基于ActiveX的聊天室?一、基于ActiveX的聊天室 基于ActiveX的聊天室其实现过程类似于前文所述的Java聊天室。在返回给客户端的HTML页面里插入ActiveX控件，该ActiveX控件与Web服务器上运行的专用聊天服务程序进行连接，当客户端用户输入新发言时，发言被传送到聊天服务器并由其广播。和Java Applet一样，ActiveX控件实现了实时聊天。 在网页上使用ActiveX比用Java Applet具有更快的速度和更大的灵活性。因为ActiveX控件下载后，不需要虚拟机解释而是直接执行，如同本机上的应用程序一样。在网页中你可以嵌入各种ActiveX控件（如数据表格、多媒体、图形图象、压缩加密等等），可以方便的将传统应用程序轻松的移植到Intranet/Internet上。它所能实现的功能远远超过现有的各种动态网页技术，包括DHTML、CGI、ASP等。不过话又说回来，由于ActiveX能够存取客户机的所有资源，所以安全性成为该技术流行开来的最大障碍。当下载的网页中包含ActiveX控件时，浏览器用户必须确认该控件带有可以信赖的公司的电子签名，才敢放心执行。ActiveX的另一缺陷是它只能运行于Windows平台，而且只同IE浏览器配合较好，对于Netscape的用户来说，必须下载专门的PlugIn才能查看ActiveX网页。 我们使用Visual Basic 6来实现聊天服务器和客户端的ActiveX控件。 (1)聊天服务器的编写 新建一个工程，类型为标准EXE，名字为prjChatServer，将主Form名字改为frmServer，其上放置的控件有： txtLog，类型TextBox，属性MultiLine=True??ScrollBars=Vertical sktChatServer，类型?Winsock，属性?Index=0 cmdExit，类型?CommandButton txtLog用于显示各客户连接信息，sktChatServer为Winsock控件数组，用于处理与各客户的TCP/IP连接，cmdExit按钮则用于退出系统。 在frmServer的代码窗口中加入以下代码： Option Explicit Private Const LISTEN_PORT As Integer = 1888??监听端口号 Private Type ActiveClient_Type ????Connected As Boolean???是否在连接状态 ????ClientIP As String???????客户端的IP地址 End Type Private gClients() As ActiveClient_Type??存储所有连接的聊天用户 Private Sub AddLog(sMess As String)??显示信息 ????txtLog.Text = txtLog.Text + sMess + Chr(13) + Chr(10) End Sub Private Sub cmdExit_Click() ????Unload Me End Sub Private Sub Form_Load() ????ReDim gClients(0) ????sktChatServer(0).LocalPort = LISTEN_PORT ????sktChatServer(0).Listen???启动服务器 ????AddLog 聊天服务器启动,端口号为 + CStr(LISTEN_PORT) + ... End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ????Dim i As Integer ????退出时断开所有的连接 ????For i = 1 To UBound(gClients) ????????If gClients(i).Connected Then ????????????sktChatServer(i).Close ????????????Unload sktChatServer(i) ????????End If ????Next End Sub Private Sub sktChatServer_Close(Index As Integer) ????AddLog sktChatServer(Index).RemoteHostIP + ( + CStr(Index) + ) + ?离开了聊天室. ????sktChatServer(Index).Close ????Unload sktChatServer(Index) ???