Delphi实现简单TCP服务器范例源码.rar

“欢迎连接到简单TCP服务器”，这是本代码编译成功，运行程序后连接成功后的第一个提示。Delphi编写设计一个基本的CS结构的TCP服务器，客户端代码同样完整，指定主机IP、端口后，就可连接该服务器，客户端和服务端代码都要编译才能运行，先运行服务端并设置好，再启动客户端，然后进行消息发送和接收。

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       6841  2007-07-25 11:00  codesc.net\TCP\Client\Client.dcu

     文件         55  2007-07-25 10:59  codesc.net\TCP\Client\Client.ddp

     文件       2074  2007-07-25 10:59  codesc.net\TCP\Client\Client.dfm

     文件       2349  2018-05-15 11:54  codesc.net\TCP\Client\Client.pas

     文件        434  2007-07-25 11:01  codesc.net\TCP\Client\Project1.cfg

     文件       2014  2007-07-25 11:01  codesc.net\TCP\Client\Project1.dof

     文件        200  2007-07-25 11:01  codesc.net\TCP\Client\Project1.dpr

     文件        876  2007-07-25 10:55  codesc.net\TCP\Client\Project1.res

     文件        190  2007-07-25 11:00  codesc.net\TCP\Client\Project1.~dpr

     文件        434  2007-07-25 11:03  codesc.net\TCP\Server\Project1.cfg

     文件       2014  2007-07-25 11:03  codesc.net\TCP\Server\Project1.dof

     文件        200  2007-07-25 11:03  codesc.net\TCP\Server\Project1.dpr

     文件        876  2007-07-25 11:01  codesc.net\TCP\Server\Project1.res

     文件       6674  2007-07-31 12:01  codesc.net\TCP\Server\Server.dcu

     文件         55  2007-07-31 12:01  codesc.net\TCP\Server\Server.ddp

     文件       1742  2007-07-25 11:02  codesc.net\TCP\Server\Server.dfm

     文件       2554  2018-05-15 11:51  codesc.net\TCP\Server\Server.pas

     文件         55  2007-07-25 11:03  codesc.net\TCP\Server\Server.~ddp

     文件       1742  2007-07-25 11:02  codesc.net\TCP\Server\Server.~dfm

     文件       2498  2007-07-25 11:03  codesc.net\TCP\Server\Server.~pas

     目录          0  2018-05-15 11:54  codesc.net\TCP\Client

     目录          0  2018-05-15 11:51  codesc.net\TCP\Server

     目录          0  2018-05-15 11:50  codesc.net\TCP

     目录          0  2018-05-15 11:50  codesc.net

----------- ---------  ---------- -----  ----

                33877                    24