- 1、本文档共8页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
简单的UDP聊天工具概要设计说明书
简单的UDP聊天工具概要设计说明书
1、任务概述
1.1 项目命名
基于UDP协议的简单的网络聊天工具
1.2 目标
编写一个基于UDP协议的简单的网络聊天工具(以下简称网聊1.0),主要用于实验目的,暂不考虑实用性,聊天程序既是客户端,可以链接到远程主机,同时又是UDP服务器,可以响应计算机的链接要求,而且增加一个服务器,提供注册和监控的功能。
1.3 运行环境
Windows2000操作系统
1.4 需求概述
网聊1.0需实现
1、聊天双方限于文字的聊天模式;
2、实现多方聊天;
3、实时监控其他聊天对象的在线状态。
1.5 条件与限制
考虑到UDP协议的不可靠性,建议在运行稳定的局域网内运行。
1.6 开发工具
Delphi7.0 profesional
AccessXP
1.6 参考资料
《Delphi7.0网络应用开发》,电子工业出版社,2003.1
《Delphi4.0编程技术内幕》,机械工业出版社,2002.1
2、总体设计
2.1 处理流程(见图1、图2)
2.2 功能模块及接口设计
客户端
【登录】
【主界面】
【设置】
【通讯模板】 服务器端
【用户登录注册】
【与客户端通讯】
【定时扫描】
【远程数据模板】 一、客户端
【通讯数据包格式】
//通信数据包格式
TMsgForServer = record
MsgType:string[50];//信息包类型信息
CustomerID:string[50];//用户ID
CustomerIP:string[50];//用户IP
port:string[50];端口号
Key:string[50]; //密码
NickName:string[50];//别名
end;
【单元文件】
1、Login.pas(登录单元关键声明)
TLoginFrm = class(TForm)
private
procedure ShowMainform;
procedure Logincheck;
procedure OpenConfigform(parameter:string);
public
ReceiveInfor:TMsgForServer;
procedure setLocal0;
procedure SetLocal1;
2、configForm.pas;(设置单元关键声明)
TConfigFrm = class(TForm)
private
procedure ModifyCustomerInforModify;//修改、建立新的用户
procedure ConfigNetSetting;
procedure AddFriend;
public
configReceiveInfor:TMsgForServer;
3、ClientForm.pas(主窗口单元关键声明)
TClientFrm = class(TForm)
public
DownloadInfor:TMsgForServer;
procedure SendMsg;
procedure RefreshFriendsList;
procedure RefreshChatFriend;
procedure ReFreshLocalInfor;//更新ClientFrm窗口中状态条上本地信息
procedure AddNewFriend(MsgForServer:TMsgForServer);
4、CommunicationModul.pas(通讯单元关键声明)
TCommunicationModulFrm = class(TForm)
IdUDPClientForServer1: TIdUDPClient;
procedure FormCreate(Sender: TObject);
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
private
{ Private declarations }
public
procedure SetLocal;
procedure SetRemoteServer;
//*****与登录相关的函数*****
function refreshServerCustomerInfor(MsgForServer:TMsgForServer):boo
您可能关注的文档
最近下载
- 小学语文一至六年级部编教材快乐读书吧内容及要求一览表.docx
- 六年级语文上学期复习计划.docx
- 构建小学低年级有效的识字教学模式——小学低年级识字教学有效性实践研究-来源:新课程(第2019004期)-山西三晋报刊传媒集团有限责任公司.pdf VIP
- 第8课 增设动画添效果(课件)五年级上册信息技术闽教版.ppt
- 沪教版小学牛津英语五年级第一学期5A-M1U1-习题卷(附答案).docx VIP
- 第三期聚心计划考试.docx
- 部编版三年级语文上册第2单元《语文园地二》课件.pptx VIP
- 冷链物流仓储中心建设项目可行性研究报告.doc
- 大学生职业生涯规划课教案.doc VIP
- 试析有效识字教学.doc VIP
文档评论(0)