毕业设计（论文）-基于CS架构的某小型公司内部管理系统的设计.doc

某小型公司内部管理系统的设计某小型公司内部管理系统的设计 摘摘 要要 网络通讯在当今已经不算新鲜事物 但大多数网络通讯都需要借助 Internet 上的服务器 这就给那些具有大规模内部网络的用户造成了许多问题 如浪费网络资源 遭遇到网络攻击 传播的病毒 破坏防御系统等等 由于互 连网上的网络通讯工具给企业内部信息交流带来了不便 所以为了方便内部网 络的用户之间的沟通 需要开发一个基于局域网的信息收发系统的即时通讯工 具 实现在内部网络中进行信息的交流 本课题设计主要针对局域网通讯而开 发设计的 采用的是 C S 构架 利用 Delphi 编程工具来实现单播 广播以及在 线用户显示和查看历史记录的功能 并借助一些网络通讯组件 成功的实现了 在局域网上的即时通讯 本论文共分为六部分 第一部分是课题的背景及研究 意义 第二部分是所运用的理论基础知识 第三部分是本系统的需求分析 第 四部分是系统结构和模块设计 第五部是实施和测试情况 最后是本设计的结 论总结及部分参考文献 关键词关键词 即时通讯 C S 构架 单播 广播 历史记录 591 论文网 www 591LW com The Design and Implementation of Receiving and Sending Information System Based On LAN Abstract The network communication in already did not calculate the new things now but the majority network communication all needed to draw support from on Internet the server this gave these to have the large scale internal network user to create many problems like waste network resources bitter experience to network attack dissemination virus destruction defense system and so on Because on the interconnection network communication facilities the interior communication have brought inconveniently for the enterprise therefore in order to facilitate internal network between user s communication needs to develop one based on the local area network information receiving and dispatching system instant message facilities realizes carries on the information in the internal network the exchange This topic design mainly aims at the local area network communication to develop the design uses is the C S structure realizes the unicast the broadcast as well as the online user demonstration and the examination historic record function using the Delphi programming tool and drew support from some network communication module the success realization on the local area network instant message The present paper altogether divides into six parts The first part is the topic background and the research significance the second part is the rationale knowledge which utilizes the third part is this system demand analysis the fourth part is the system structure and the module design fifth is the implementation and the test situation finally is this design conclusion summary and the part reference Key words Instant message C S structure Unicast Broadcast Historic record 591 论文网 www 591LW com 目目 录录 论文总页数 25 页 1引言 1 1 1课题的背景 1 1 2国内外研究现状 1 1 3本课题研究的意义 2 2理论基础 2 2 1C S 软件架构技术 2 2 2用户数据报协议 UDP 3 2 3单播 UNICAST 3 2 4广播 BROADCAST 4 3需求分析 5 3 1现行业务系统描述 5 3 2现行系统存在的主要问题分析 5 3 3提出解决方案 6 4系统设计 6 4 1系统总体架构 6 4 2界面设计 7 4 3系统功能模块设计 9 4 3 1网络组件 9 4 3 2用户信息显示功能 10 4 3 3局域网内实现单播功能 14 4 3 4局域网内实现广播功能 17 4 3 5历史信息记录功能 17 5系统实施及测试 18 5 1实施概况 18 5 2测试方案 19 5 3测试结果 21 结 论 22 参考文献 22 第 1 页 共 25 页 1 1引言引言 1 11 1课题的背景课题的背景 随着计算机网络日新月异的发展 人们的交流方式越来越多 传统的交流 方式 如 信件 电报 电话等已经难以满足人们的交流要求 在互联网上即 时的和好友取得联系 已经成为当今社会人们主流的联系方式 因此 计算机 之间进行即时通讯 发送文件等交流方式已经成为必然潮流 因此出现了 QQ UC 等聊天工具 然而 QQ UC 等聊天工具虽然方便 实用 但是 娱乐功 能太多 有很多吸引人的娱乐功能 从一定程度上来说 是一种娱乐工具 不 能作为用于即时通讯 文件共享的专用工具 目前 用于实现单一的即时通讯 文件共享的软件实在太少 而且它们中大部分都对远程服务器有非常大的依赖 性 没有彻底实现点对点的交流 为此 我们决定开发一个专用于实现基于局 域网内部计算机之间即时通讯 文件传输的软件 以方便内网计算机之间信息 的交流 本软件属于点对点连接的 在连接并通信时 尤其是近程的即时通讯 彻底的脱离了远程的服务器 避免了和远程服务器连接时过多的浪费网络资源 并且避免了服务器忙或与服务器无法连接时 浪费过多时间用于和服务器建立 连接 因此 这个软件是极具适应性和实用性的即时通讯软件 1 21 2国内外研究现状国内外研究现状 即时通讯的出现和互联网有着密不可分的关系 从技术上来说 IM 完全基 于 TCP IP 网络协议族实现 而 TCP IP 协议族是整个互联网得以实现的技术基 础 最早期的即时通讯雏形可以追溯到芬兰人 Jarkko Oikarinen 于 1988 年发 明的一种网络聊天协议 IRC Internet Relay Chat 该协议仅支持文本聊天 并且也不支持好友列表的概念 1996 年第一个 IM 产品 ICQ 发明后 即时通讯 的技术和功能开始基本成型 其工作原理开始被人们所了解 但不同厂商实现 即时通讯技术原理时采用的协议却有较大的差异 甚至到目前为止世界主要的 IM 服务运营商 AOL American Online 美国在线 仍然没有公布其主要即时通讯 产品 AIM American Instant Messenger 的专用协议 从 1997 年第一代即时 通讯软件诞生后发展到现在 即时通讯行业先后经历了文本通信 第一代 语 音交流 第二代 视频交流 第三代 和跨网沟通 第四代 等多种信息传递 技术变革 尽管第一代 第二代以及第三代即时通讯软件的信息传递主要在互 联网范围内 但各个阶段都可以看到即时通讯行业在跨网通讯领域中的应用 在移动即时信息进一步深化应用 跨网语音交流进一步加强 跨网通讯领域的 进一步拓宽 都意味着真正意义的跨网即时通讯已发展成型 可以说跨网即时 通讯应用的萌芽 雏形以及诞生 都贯穿着整个行业的发展 而在过去的几年 第 2 页 共 25 页 行业的主导服务商腾讯在香港成功上市 并在当年取得 55 的收入增长的佳绩 新浪斥资近两亿元收购 UC 即时通讯技术平台 微软的 MSN 加大了中国市场的攻 势 TOM SKYPE 高调推出 即时通信行业出现了连续多年高速的增长 1 31 3本课题研究的意义本课题研究的意义 随着现代通讯技术不断的发展 即时通讯技术也有飞速的发展 它是一种 使人们能在网上识别在线用户并与他们实时交换消息的技术 被很多人称为电 子邮件发明以来最酷的在线通讯方式 但是为了提高通讯的质量 很多企业在 网络上进行即时通讯时一般都不会采用 Internet 上的即时通讯软件 如 QQ MSN OICQ 等 因此本课题主要是研究基于局域网的信息收发系统的设计 与实现 希望能通开发设计的局域网通讯软件来方便在内部网络上的信息交流 这样不紧提高了通讯的质量 还能有效的防护在互连网上带来的攻击 对于那 些大中型企业来说更是需要这样的一个自己内部的即时通讯工具 避免带来工 作效率上不去 病毒及木马的感染率增大 远程服务器连接时过多的浪费网络 资源 互连网由于某种原因而断开时造成通讯中断等问题 2 2理论基础理论基础 2 12 1C SC S 软件架构技术软件架构技术 C S Client Server 结构 即大家熟知的客户机和服务器结构 它是软 件系统体系结构 通过它可以充分利用两端硬件环境的优势 将任务合理分配 到 Client 端和 Server 端来实现 降低了系统的通讯开销 目前大多数应用软 件系统都是 Client Server 形式的两层结构 由于现在的软件应用系统正在向 分布式的 Web 应用发展 Web 和 Client Server 应用都可以进行同样的业务处 理 应用不同的模块共享逻辑组件 因此 内部的和外部的用户都可以访问新 的和现有的应用系统 通过现有应用系统中的逻辑可以扩展出新的应用系统 这也就是目前应用系统的发展方向 传统的 C S 体系结构虽然采用的是开放模式 但这只是系统开发一级的开 放性 在特定的应用中无论是 Client 端还是 Server 端都还需要特定的软件支 持 由于没能提供用户真正期望的开放环境 C S 结构的软件需要针对不同的 操作系统系统开发不同版本的软件 加之产品的更新换代十分快 已经很难适 应百台电脑以上局域网用户同时使用 第 3 页 共 25 页 图 1 客户机 服务器计算结构 2 22 2用户数据报协议 用户数据报协议 UDPUDP 用户数据报协议 UDP 是 ISO 参考模型中一种无连接的传输层协议 提供 面向事务的简单不可靠信息传送服务 UDP 协议基本上是 IP 协议与上层协议的 接口 UDP 协议适用端口分辨运行在同一台设备上的多个应用程序 由于大多数网络应用程序都在同一台机器上运行 计算机上必须能够确保 目的地机器上的软件程序能从源地址机器处获得数据包 以及源计算机能收到 正确的回复 这是通过使用 UDP 的 端口号 完成的 源端口号标识了请求域 名服务的本地机的应用程序 同时需要将所有由目的站生成的响应包都指定到 源主机的这个端口上 与 TCP 不同 UDP 并不提供对 IP 协议的可靠机制 流控 制以及错误恢复功能等 由于 UDP 比较简单 UDP 头包含很少的字节 比 TCP 负载消耗少 所以 UDP 适用于不需要 TCP 可靠机制的情形 比如 当高层协议 或应用程序提供错误和流控制功能的时候 UDP 是传输层协议 服务于很多知 名应用层协议 包括网络文件系统 NFS 简单网络管理协议 SNMP 域名系 统 DNS 以及简单文件传输系统 TFTP 2 32 3单播 单播 UnicastUnicast 单播 Unicast 指网络中从源向目的地转发单播流量的过程 单播流量地 址唯一 单播方式下 只有一个发送方和一个接收方 与之比较 组播是指单 个发送方对应一组选定接收方的一种通信 任意播是指任意发送方对应一组较 为接近的接收方间的一种通信 早期的点对点通信含义类似于单播 单播传输是 LANs 传输中的主要使用方式 所有 LANs 如以太网 和 IP 网络都支持单播传输模式 并且大多数用户都了解标准单播应用程序 如 第 4 页 共 25 页 http smtp ftp 和 telnet 都作为 TCP 传输协议 新版本的网际协议第 六版 IPv6 支持单播同时也支持任意播和组播类型 许多路由选择协议如路 由选择信息协议 RIP 和开放最短路径优先 OSPF 都支持高效 Internet 单播路由选择过程 而 IPv6 支持单播 Unicast 组播 Multicast 和任意播 Anycast 三种类型 IPv6 中没有关于广播 Broadcast 的具体划分 而是作为组播的 一个典型类型 图 2 单播物理结构图 2 42 4广播 广播 BroadcastBroadcast 网络广播是指一个节点同时向相同域中的其它所有节点传输数据包的过程 组播是一种特殊的广播 其中一组请求收听的选定用户将收到广播 广播传输 通常在局域网 如以太网 中进行 但有时也发生在虚拟局域网 VLAN 中 IPv6 支持单播 Unicast 组播 Multicast 以及任意播 Anycast 三种类 型 IPv6 中没有关于广播 Broadcast 的具体划分 而是作为组播的一个典 型 生成广播信息的应用程序包括地址解析协议 ARP 通过该协议 主机发 送一个地址解析查询到局域网中的所有计算机上 以实现网络 IP 地址的分配 有些路由选择协议 如 RIP 主要用于支持网络设备 Advertise 网络服务 网络广播中涉及以下重要概念 广播域 Broadcast Domain 这是一个限定区域 其中的所有设备都可 以共享信息 换句话说 与网络相连 且负责接收广播的所有设备都是同一广 播域的一部分 在一个共享以太网中 工作站通过共享媒体将帧广播到其它所 有节点 其它节点收听广播 只接收寻址到它们的帧 因此 共享以太网中的 第 5 页 共 25 页 所有节点都属于同一广播域 此外通过虚拟局域网技术可以创建一个虚拟广播 域 广播地址 Broadcast Address 这是一个特殊地址 当数据包可以寻址 到该地址时 可以帮助所有设备打开和处理信息 例如 MAC 地址 格式为 1xFFFFFFFF 是一种广播地址 IP 地址 255 255 255 255 是通用广播地址 任 何设备都将打开寻址到广播地址的信息 并将它们传送到下一个工作站 广播风暴 Broadcast Storm 当主机系统响应一个在网上不断循环的广 播数据包或者试图响应一个没有应答的系统时就会发生广播风暴 随着网络数 据包数量的增加 广播风暴可能会引起网络拥塞问题 为防止广播风暴的发生 需要细心配置网络以阻止非法广播信息的进入 图 3 广播物理结构图 3 3需求分析需求分析 3 13 1现行业务系统描述现行业务系统描述 随着计算机网络日新月异的发展 人们的交流方式越来越多 传统的交流 方式如 信件 电报 电话等已经难以满足人们的交流要求 在互联网上即时 的和好友取得联系 已经成为当今社会人们主流的联系方式 两台计算机之间 进行即时通讯 发送文件等交流方式已经成为时代的潮流 因此出现了 QQ UC 等即时通讯工具 这些即时通讯业务属于基础语音业务外的数据增值类业务 从范畴来讲属于 消息类 业务 本质是完成对 文字 声音 图像 信息的 传递 同属于消息类的业务还有短信 彩信等 他们之间都存在一定程度的替 代性 同时又各有长短 但不会成为那些大中型企业内部的主要通讯工具 在 企业中要求很简单 能确保快速正常的即时通讯 还要具有很好的安全性 这 样才能提高工作效率 增加企业的效益 第 6 页 共 25 页 3 23 2现行系统存在的主要问题分析现行系统存在的主要问题分析 目前 像 QQ UC 等即时通讯工具虽然方便 实用 但是 娱乐功能太多 有很多吸引人的娱乐功能 从一定程度上来说 是一种娱乐工具 不能作为用 于作为即时通讯 文件共享的专用工具 并且现在用于实现单一的即时通讯 文件共享的软件真的实在太少 因此不能为那些大中型企业所使用 而且在现 行的系统中主要的问题是 一 在即时通讯系统中由于防火墙 网络速度等原 因难以建立或者速度很慢 IM 服务器还提供消息中转服务 即时消息全部先发 送到 IM 服务器 还要再由服务器转发给对方 所以连接时过多的浪费了网络资 源 并且在服务器忙或与服务器无法连接时 浪费过多时间用于和服务器建立 连接 二 即时通讯工具始终是通过互连网的服务器来传输的 正是这样所以 更有可能会带来遭遇到网络上的许多攻击 如木马 蠕虫等 为企业中的信息 交流带来了很大的安全性问题 3 33 3提出解决方案提出解决方案 根据企业在内部网络上信息交流的需求 所以本课题就主要针对内部的网 络来设计这样的一个即时通讯系统 本系统是在基于局域网的在 IM 客户端和 IM 服务器之间通讯采用的 UDP 协议和 C S 软件构架技术上开发的通讯工具 它 在近程的即时通讯时彻底的脱离了远程的服务器 不通过远程服务器来完成实 现通讯 避免了和远程服务器连接时过多的浪费网络资源 并且避免了服务器 忙或与服务器无法连接时浪费过多时间用于和服务器建立连接 同时也为内网 服务增强了许多的安全性 彻底的将通讯工具从互连网上搬到内网中来 这样 一来就不会受到来自互连网的攻击了 这种系统主要是为了方便了大中型企业 在内部即时通讯要求 从而进一步提高工作效率 增加企业的效益 4 4系统设计系统设计 4 14 1系统总体架构系统总体架构 本系统主要是采用 C S 结构 并且每个客户端也是作为服务器端的 当系 统发送信息给局域网的用户 主要由单播模块和广播模块来实现 而其中的单 播模块和用户信息模块是具有依赖性的 在接收信息的时候又有两个模块来完 成 一是信息接收的模块 另一个是信息查看的模块 由此可以看出本系统主要分为两大部分模块 发送模块和接收模块 发送 模块 单播模块 广播模块 用户信息模块 信息记录模块接收模块 接收信 息模块 查看信息模块 有了以上的了解了那让我们来看看系统的架构图 第 7 页 共 25 页 图 4 系统架构图 4 24 2界面设计界面设计 4 34 3系统功能模块设计系统功能模块设计 4 3 14 3 1 网络组件网络组件 4 3 24 3 2 用户信息显示功能用户信息显示功能 为了方便用户选取单个用户进行信息发送和查看在线用户的信息 所以设 计了一个 ListView 来进行显示如图 5 在 ListView 中包括了用户名 工作组 IP 地址 当有用户打开本系统的时候将会向局域网中的所有用户发送一个握手 信息来获取网络中的在线用户信息并添加到列表中显示出来 同时也把自己的 系统主界面 服务器 客户 单 播 发 送 广 播 发 送 接 收 信 息 显示用户信息 信 息 写 入 查看历史记录 工 作 组 IP 地 址 用 户 名 第 8 页 共 25 页 网络资源信息发送给对方 使自己被添加到其他用户的列表中 其中分别要对网络中的所有的用户名 工作组 IP 地址进行获取 下面来 看一下对于获取这些网络资源的代码部分 1 用户名获取代码如下 Begin Result False FillChar NetResource SizeOf NetResource 0 初始化网络层次信息 NetResource lpRemoteName GroupName 1 指定工作组名称 NetResource dwDisplayType RESOURCEDISPLAYTYPE SERVER 类型为服务器 工作组 NetResource dwUsage RESOURCEUSAGE CONTAINER 已连接机器 NetResource dwScope RESOURCETYPE DISK 列举文件资源信息 获取指定工作组的网络资源句柄 Res WNetOpenEnum RESOURCE GLOBALNET RESOURCETYPE DISK RESOURCEUSAGE CONTAINER NetResource lphEnum If Res NO ERROR then Exit 执行失败 While True Do 列举指定工作组的网络资源 Begin Count FFFFFFFF 不限资源数目 BufSize 8192 缓冲区大小设置为 8K GetMem Buf BufSize 申请内存 用于获取工作组信息 获取计算机名称 Res WNetEnumResource lphEnum Count Pointer Buf BufSize If Res ERROR NO MORE ITEMS then break 资源列举完毕 If Res NO ERROR then Exit 执行失败 Temp TNetResourceArray Buf For Ind 0 to Count 1 do 列举工作组的计算机名称 Begin 获取工作组的计算机名称 tmpStr Temp lpRemoteName Delete tmpstr 1 2 Form1 ListBox1 Items Add tmpStr list Add tmpstr Inc Temp end end Res WNetCloseEnum lphEnum 关闭一次列举 If Res NO ERROR then exit 执行失败 Result True FreeMem Buf end Function tform1 GetUsers GroupName string List TStringList Boolean type TNetResourceArray TNetResource 网络类型的数组 Var NetResource TNetResource Buf Pointer Count BufSize Res DWord lphEnum THandle Ind Integer Temp TNetResourceArray TmpStr String 第 9 页 共 25 页 2 工作组获取代码如下 var 显示所有工作组的名称 NetResource TNetResource Buf Pointer Count BufSize Res DWORD 一个无符号的 占四个字节 32 的整型 句柄类型 lphEnum THandle p TNetResourceArray i j SmallInt NetworkTypeList TList 返回局域网中的工作组名称 列出一个网络类型中的所有工作组名称 begin NetResource TNetResource NetworkTypeList Items J 网络类型信息 获取某个网络类型的文件资源的句柄 NetResource 为网络类型信息 lphEnum 为返回名柄 Res WNetOpenEnum RESOURCE GLOBALNET RESOURCETYPE DISK RESOURCEUSAGE CONTAINER NetResource lphEnum if Res NO ERROR then break 执行失败 while true do 列举一个网络类型的所有工作组的信息 begin Count FFFFFFFF 不限资源数目 BufSize 8192 缓冲区大小设置为 8K GetMem Buf BufSize 申请内存 用于获取工作组信息 获取一个网络类型的文件资源信息 Res WNetEnumResource lphEnum Count Pointer Buf BufSize if Res ERROR NO MORE ITEMS 资源列举完毕 or Res NO ERROR 执行失败 then break P TNetResourceArray Buf for I 0 to Count 1 do 列举各个工作组的信息 begin List Add StrPAS P lpRemoteName 取得一个工作组的名称 Inc P end end Res WNetCloseEnum lphEnum 关闭一次列举 if Res NO ERROR then break 执行失败 end Result True FreeMem Buf NetworkTypeList Destroy end 第 10 页 共 25 页 3 IP 地址获取代码如下 procedure TForm1 ServerUDPRead Sender TObject AData TStream ABinding TIdSocketHandle var readbuf array 0 2030 of char msg head recvip recvname recvworkgroup recvmsg memo string recvport integer f textfile begin ZeroMemory readbuf 0 2030 adata Read readbuf sizeof readbuf msg Trim String Pchar Readbuf 0 memo1 Lines Add msg head trim copy msg 1 headlen 添加对方 IP 1 返回对方 IP 2 发出 Hand 握手信息 if head LOGIN then begin recvip abinding PeerIP recvport 9000 memo1 Lines Add login recv recvip inttostr recvport recvname copy msg headlen 1 namelen recvworkgroup copy msg headlen namelen 1 length msg adduser recvname recvworkgroup recvip recvport handdata recvip myname myworkgroup recvport end 添加对方返回的自己的 ip 对比 if head REVLOG then begin memo1 Lines Add revlog recv RECVPORT strtoint copy msg headlen 1 portlen recvip copy msg headlen portlen 1 iplen recvlog recvip recvport end 第 11 页 共 25 页 4 3 34 3 3 局域网内实现单播功能局域网内实现单播功能 在本设计中单播发送的按钮为 BitBtn2 主要是通过 IdUDPServer 和 IdUDPClient 组件来编写的 由 client SendBuffer 语句来发送的 主要是对 局域网内部的同一工作组用户发送信息 处理握手信息 添加对方 ip 返回对方 ip if head HAND then Begin memo1 Lines Add hand recv RECVNAME COPY msg headlen 1 namelen recvworkgroup copy msg headlen namelen 1 workglen recvip abinding PeerIP recvport 9000 recvp2pdata recvip recvname recvworkgroup recvport end 处理握手信息 添加对方 ip 返回对方 ip if head HAND then Begin memo1 Lines Add hand recv RECVNAME COPY msg headlen 1 namelen recvworkgroup copy msg headlen namelen 1 workglen recvip abinding PeerIP recvport 9000 recvp2pdata recvip recvname recvworkgroup recvport end 第 12 页 共 25 页 下面是发送按钮的代码部分 由于是单播所以需要指定用户 而用户是由 ListView 中显示的 则要对其 进行显示并能选取 通过客服端来让主机服务器响应 实现代码主要如下 procedure TForm1 BitBtn2Click Sender TObject var myinfobuf array 0 1023 of char ToPORT integer chatinfo ToIP savelog string chatinfobuf array 0 2030 of char tempItem TListItem f textfile Function tform1 recvp2pdata recvip recvname recvworkgroup string recvport integer string var minfobuf array 0 1023 of char minfo string tempitem tlistitem i j integer begin j 0 for i 0 to userlist Items Count 1 do begin if userlist Items Item i CaptionRECVNAME then inc j 1 if j userlist Items Count then begin tempItem UserList Items Add tempItem Caption RECVNAME if form5 checkbox1 Checked then tempItem SubItems Add recvworkgroup begin tempItem UserList Selected 用户列表选择 if not assigned tempItem or tempItem nil then begin MessageBox self Handle 请选择消息接收者 提示 0 调用窗口 exit end ToIp tempItem SubItems 1 获取通用对话框文件名和导出仅选中的记录 ToPORT 9000 chatinfo format 6s 255s 1024s CHAT myname memo1 Lines Text strpcopy chatinfobuf chatinfo memo1 Lines Add strpas myinfobuf client SendBuffer toip toport chatinfobuf sizeof chatinfobuf end 第 13 页 共 25 页 if form5 CheckBox3 Checked then tempItem SubItems Add RECVNAME if form5 CheckBox4 Checked then tempItem SubItems Add recvip end else exit end minfo format 6s 4d 255s REVLOG recvport recvip 返回对方 IP port strpcopy minfobuf minfo server SendBuffer recvip recvport minfobuf sizeof minfobuf Label2 Caption INTTOSTR USERLIST Items Count end procedure tform1 adduser revname revworkgroup revip string revport integer var tempitem tlistitem begin tempItem UserList Items Add tempItem Caption revname if form5 checkbox1 Checked then tempItem SubItems Add revworkgroup if form5 CheckBox3 Checked then tempItem SubItems Add revname if form5 CheckBox4 Checked then tempItem SubItems Add revip Label2 Caption INTTOSTR USERLIST Items Count end procedure tform1 recvlog recvip string recvport integer var tempitem tlistitem i j integer begin for i 0 to userlist Items Count 1 do begin if tempItem Captionmyname then inc j 1 if j userlist Items Count then 第 14 页 共 25 页 IP 地址进行显示 由工作组进行显示 最后连接到表 Label2 中去 4 3 44 3 4 局域网内实现广播功能局域网内实现广播功能 在本设计中单播发送的按钮为 BitBtn3 主要是通过 IdUDPServer 和 IdUDPClient 组件来编写的 主要是使用了 client Broadcast 来对信息进行发 送的 在发送时将会把信息发送给在局域网内部的所有用户包括自己 下面是发送按钮的代码部分 procedure TForm1 BitBtn3Click Sender TObject var chatinfo string chatinfobuf array 0 2030 of char f textfile begin chatinfo format 6s 255s 1024s CHAT myname memo1 Lines Text strpcopy chatinfobuf chatinfo client Broadcast chatinfobuf 9000 end begin tempItem UserList Items Add tempItem Caption myname if form5 checkbox1 Checked then tempItem SubItems Add myworkgroup if form5 CheckBox3 Checked then tempItem SubItems Add myname if form5 CheckBox4 Checked then tempItem SubItems Add recvip end else exit end Label2 Caption INTTOSTR USERLIST Items Count end 第 15 页 共 25 页 4 3 54 3 5 历史信息记录功能历史信息记录功能 为了能让用户对历史的信息进行查看 所以本设计中包含了一个对历史信 息进行记录的功能 主要是创建一个记事本文件对信息进行复制保存 以下就 是历史信息记录的代码 procedure Tdetailform RecorBBtnClick Sender TObject begin if SavRecorDia Execute then begin RecorEd Text SavRecorDia FileName end end procedure Tdetailform Button3Click Sender TObject var F textfile begin showmessage RecorEd Text assignfile f RecorEd Text rewrite F closefile F end begin if detailform RecorEd Text then begin Assignfile f detailform RecorEd Text if fileexists detailform RecorEd Text then append f else rewrite F writeln f writeln f 发往 ToIp if SealCheckBox Checked then writeln f 时间 datetostr now timetostr now else writeln f 时间 datetostr now timetostr now writeln f writeln f SRMemo Lines Text writeln f closefile f end end 第 16 页 共 25 页 5 5系统实施及测试系统实施及测试 5 15 1实施概况实施概况 本设计是基于局域网内采用 C S 结构的即时通信软件 其主要实现的是单 播和广播功能 还包含了显示用户信息 查看历史信息等辅助功能 本设计是 在是 Microsoft Windows XP 系统上利用编程软件开发的 然后再组建的局域网 中来进行测试和调试工作 所以最少会用到两台或两台以上的电脑并由交换机 组成一个小型的局域网 考虑到一些系统兼容性的问题 所以在内部网络上的 每台计算机上都用的是相同的操作系统 在网络配置方面也是相同的方式 对 于编程软件的选择主要是采用 Delphi7 来编写和编译程序的 因为考虑到 Delphi 是具有可视化的一个编程环境 Delphi 它提供了 500 多个可供使用的 构件 利用这些部件可以快速地构造出应用系统 也可以根据自己的需要修改 部件或用 Delphi 本身编写自己的部件 能提供方便 快捷的 Windows 应用程序 开发环境 本程序也基本是借助与那些组件来编写的 5 25 2测试方案测试方案 本程序在 Windows XP 操作系统下 使用 Borland Delphi 7 企业版软件作 为开发工具 利用 Delphi7 企业版 集成开发环境中提供的网络通讯组件进 行编程的 代码也是在这个开发环境中编译的 并在组建的局域网中进行系统 测试的 设计测试的是同在一个局域网中 先将编译好的程序复制到内部网络上的 没台计算机上面 然后都将设计的系