Gavin Chen

其实Indy比较简单，但是可以提供的方法太多了。我找了很久，才搞明白。比方说这个读取缓冲区的数据，就有很多种方法。相对于TTcpClient的几种方法来说，TIdTCPClient确实提供了多种选择，不仔细研究真的容易糊涂（其实我比较喜欢用CurrentReadBuffer）：1、ReadFromStack原型：function ReadFromStack(const ARai

客户端：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComp

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Winsock, StrUtils;type TForm1 = class(TForm) Label1: TL

跟上一版本相比，服务器没怎么改，但客户端几乎重写。服务器代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdCompo

主体思路：先由管理机发UDP命令到客户端，客户端在获取主机IP后，再建立TCP连接，这样就不用手工去客户端设主机IP了，而且主机IP可随意变化。管理机（TCP服务端 / UDP客户端）源码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls

用于考试时乱序，相同的试题，但每位考生看到的题序不同。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;type TForm1 = class(TForm)

用于某企业知识竞赛，为了更有现场感，要加入音效。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, MPlayer, StdCtrls;type TForm1 = class(TForm) Butt

[ 2013-05-13 ]    【字符串操作】    AnsiStartsText('DATA ', strCommand) —— 如果字符以此打头，需引用 StrUtils    SameText(strCommand, 'QUIT') —— 判断两个字符相同    s:='0001000200030004';    s1:= LeftStr(s,4); //结果