indy TCP通讯例子

纯粹的测试TCP的控件使用方法。自己定义了一个消息包。通过客户端发送。服务端解析，来测试控件的使用。 消息包组成： tPMsgHead=^tMsgHead; tMsgHead=packed record //包头 INF: DWord;//校验标识符，用于校验消息是否合法。（长度为4bytes，固定为0x34F982EA） nCmd: word;//指令,两字节 Error: DWord;//错误码，四字节。 length: word;//消息内容的长度(不包括消息头)。 end; tPRequireStudentData=^tRequireStudentData; tRequireStudentData=packed record //请求获取学生的数据的消息。 StudentName:array[0..20] of char; end; tPReceStudentData=^tReceStudentData; tReceStudentData=packed record //返回学生内容的消息。 StudentName:array[0..20] of char; StudentNum:byte; StudentPoint:byte; StudentSex:array[0..12] of char; end; const cmd_RequireStudentData=$0101; //指令请求获取学生数据 cmd_ReceStudentData=$0102; //指令反馈学生数据