D
dazzling
Unregistered / Unconfirmed
GUEST, unregistred user!
有人测试过吗? 当同时连接数达数万时, 稳定性如何?
(每次通讯数据量非常少,不过几K, 而且每个连接90%时间都空闲,没有数据传送)
(每次通讯数据量非常少,不过几K, 而且每个连接90%时间都空闲,没有数据传送)
M
Milpas
Unregistered / Unconfirmed
GUEST, unregistred user!
没测过,这种环境太难模拟了
张
张无忌
Unregistered / Unconfirmed
GUEST, unregistred user!
1K连接内问题不大，上了1K就不是恨稳定。
D
dazzling
Unregistered / Unconfirmed
GUEST, unregistred user!
哦? D下哪个组件能达到要求?
小
小陵
Unregistered / Unconfirmed
GUEST, unregistred user!
如果是上万的连接的话，最好直接用API来做
不要使用控件
转一篇文章看一下吧！
如何使用Delphi设计强大的服务器程序
现在网络的流行，使得服务器程序得到了广泛的应用，那么我们使用Delphi如何设计出强壮的服务器呢？
有人说，如果要设计服务器的话，一定要使用VC来设计，其实这个人说的有一定道理，因为如果你要使用
Delphi来设计服务器的话，要想设计高效的服务器就不要使用Delphi带来的大部分的控件（最好不要使用
Delphi控件），为什么呢？下面我会告诉大家。这样的话你全部使用API来设计服务器，就同VC没有太大
的区别了。
使用Delphi来设计服务器程序，具体选择是使用窗体消息模式还是使用完成端口的模式，这主要看你的用
户连接数量来决定。如果你的用户连接数量小于1000人的话，并且处理的数据量不大的话，可以使用窗体
的消息模式来进行服务器的开发，而如果大于1000，这样最好使用完成端口来开发服务器。我这里建议大
家最好使用完成端口模式，因为你不可能保证你的用户数量不变化，同时由于你的服务器如果运行一段时
间没有问题的话，最好做成WIN 的服务程序，这样可以保证后期的维护比较少。
现在介绍你在开发Delphi服务器的时候需要注意地方：
1 不要在程序中使用String变量
这个也是在实际的开发过程中发现的，我最开始开发的时候，为了简单一些，就大量使用String变量来开
发程序，但程序总是在运行一段时间后出现问题，后来查原因也不太清楚，到网上查资料，发现有人介绍
不要使用String来做变量，将自己的程序全部修改成数组问题就基本解决了。
2 使用快速的加密算法如XOR 加密或DES加密等算法
服务器在与客户端传递的时候一定要进行加密，但使用什么类型的加密算法呢？不要使用那种需要大量运
算的算法如RSA等算法，最好使用XOR加密或DES换位加密算法，这样主要是满足普通的加密密文的要求，
又保证服务器的运算速度。你也可以使用RSA加密密文，但这会造成服务器处理变慢，而如果遇到大量的
处理时候，很容易服务器就拒绝服务器。
3 使用原ADO函数来连接数据库
服务器程序通常都与数据库想结合，那么使用Delphi开发的时候，通常使用ADO的控件来制作，但如果你
学习ADO手册会发现，对于服务器其实不需要控件来完成数据的操作。可以直接使用ADO相应的函数来完成
。主要因为服务器程序与数据库通常都是比较简单的操作，没有很复杂的。所以使用原ADO模式就可以了
。这样也减少由于ADO控件带来的问题。
4 应多使用“池”
服务器在设计的过程，一定要大量的变量支持，如果不使用池这个概念，你的程序将在创建和释放变量过
程中浪费大量的时间。而且容易出现问题。设计过程中尽量不要创建和释放变量，如果能考虑到的变量，
都在开始的运行的时候创建完毕。这样可以加快程序的运行速度，减少冲突。具体如何使用池这个技术，
以后有时间再考虑写一篇介绍一下。
5 熟练使用指针操作
如果你不熟悉指针操作，那么你几乎无法设计出高效的服务器，如果你要真正的理解指针的概念，对于设
计服务器来说就是如虎添翼。
下面举个例子，如使用Recv接收数据到Buffer中后，你需要进行解密操作，你可以使用下面的方法进行：
var
a,b:array [1..8] of byte;
i :integer;
ResultBuffer :array [1..Max] of byte;
begin
for i := 1 to Sizeof(Buffer) div 8 do
begin
move(Buffer[(i-1)*8+1],a,8);
Des(a,b,true); //这里使用DES加解密处理
move(b,ResultBuffer[(i-1)*8+1],8);
end;
end
大家看一看，上面的代码，思路很清楚，就是将接收到的Buffer分别按8个提到变量a中，再使用DES解密
算法解密成b，再放回ResultBuffer中。
如果你熟练使用指针的话，效率会极大的提高
var
a,b
byte;
i :integer;
ResultBuffer :array [1..Max] of byte;
begin
for i := 1 to Sizeof(Buffer) div 8 do
begin
a := @Buffer[(i-1)*8+1];
b := @ResultBuffer[(i-1)*8+1]
Des(a^,b^,true); //这里使用DES加解密处理
end;
end
再看一看上面的代码，是不是少了两个Copy数据的过程，这就是指针给你带来的高效。
6 多使用WSASend，WSARecv等WinSocket 2函数，不要使用Send,Recv函数
这个主要看你的服务器运行在什么系统中了，如果运行在WIN系统里，最好使用WSA系统的函数，因为Micr
osoft毕竟将它们都优化了。
7 合理使用线程池操作
高效的服务器一定要使用线程池技术，使用多少线程合理，需要线程处理什么样的数据。我个人认为如果
要使用线程池的技术，一定要处理那些最费时的操作，如数据库的查询操作。
8 如果服务器使用了“池”的概念，这就又出现了一个问题，如何高效的分配池呢？
我在程序中大量的使用池，如线程池，数据池等。当数据到达的时候，如何分配池呢？这里就不告诉大家
了，以后再专门写一篇关于池的文章。详细的介绍如何使用池。大家也可以自己考虑一下。
9 使用高效的字符串操作函数
因为服务器一定要进行大量的字符串运行，如果使用Delphi自带的函数来操作，就比较费时，所以这里推
荐大家使用QStrings.pas字符串操作函数集，相信会对大家有帮助的。
10 优化你的SQL查询语句
你可以一方面优化SQL查询语句来提高运行效率，另一方面你还可以使用存储过程来更大的提高运行效率
。（这些知识你需要看数据库的内容，这里具体如何优化就不说了。）
上面介绍是我的实践经验，不一定全对，希望大家能有帮助。如果有更好的方法，也可以讨论。
不要使用控件
转一篇文章看一下吧！
如何使用Delphi设计强大的服务器程序
现在网络的流行，使得服务器程序得到了广泛的应用，那么我们使用Delphi如何设计出强壮的服务器呢？
有人说，如果要设计服务器的话，一定要使用VC来设计，其实这个人说的有一定道理，因为如果你要使用
Delphi来设计服务器的话，要想设计高效的服务器就不要使用Delphi带来的大部分的控件（最好不要使用
Delphi控件），为什么呢？下面我会告诉大家。这样的话你全部使用API来设计服务器，就同VC没有太大
的区别了。
使用Delphi来设计服务器程序，具体选择是使用窗体消息模式还是使用完成端口的模式，这主要看你的用
户连接数量来决定。如果你的用户连接数量小于1000人的话，并且处理的数据量不大的话，可以使用窗体
的消息模式来进行服务器的开发，而如果大于1000，这样最好使用完成端口来开发服务器。我这里建议大
家最好使用完成端口模式，因为你不可能保证你的用户数量不变化，同时由于你的服务器如果运行一段时
间没有问题的话，最好做成WIN 的服务程序，这样可以保证后期的维护比较少。
现在介绍你在开发Delphi服务器的时候需要注意地方：
1 不要在程序中使用String变量
这个也是在实际的开发过程中发现的，我最开始开发的时候，为了简单一些，就大量使用String变量来开
发程序，但程序总是在运行一段时间后出现问题，后来查原因也不太清楚，到网上查资料，发现有人介绍
不要使用String来做变量，将自己的程序全部修改成数组问题就基本解决了。
2 使用快速的加密算法如XOR 加密或DES加密等算法
服务器在与客户端传递的时候一定要进行加密，但使用什么类型的加密算法呢？不要使用那种需要大量运
算的算法如RSA等算法，最好使用XOR加密或DES换位加密算法，这样主要是满足普通的加密密文的要求，
又保证服务器的运算速度。你也可以使用RSA加密密文，但这会造成服务器处理变慢，而如果遇到大量的
处理时候，很容易服务器就拒绝服务器。
3 使用原ADO函数来连接数据库
服务器程序通常都与数据库想结合，那么使用Delphi开发的时候，通常使用ADO的控件来制作，但如果你
学习ADO手册会发现，对于服务器其实不需要控件来完成数据的操作。可以直接使用ADO相应的函数来完成
。主要因为服务器程序与数据库通常都是比较简单的操作，没有很复杂的。所以使用原ADO模式就可以了
。这样也减少由于ADO控件带来的问题。
4 应多使用“池”
服务器在设计的过程，一定要大量的变量支持，如果不使用池这个概念，你的程序将在创建和释放变量过
程中浪费大量的时间。而且容易出现问题。设计过程中尽量不要创建和释放变量，如果能考虑到的变量，
都在开始的运行的时候创建完毕。这样可以加快程序的运行速度，减少冲突。具体如何使用池这个技术，
以后有时间再考虑写一篇介绍一下。
5 熟练使用指针操作
如果你不熟悉指针操作，那么你几乎无法设计出高效的服务器，如果你要真正的理解指针的概念，对于设
计服务器来说就是如虎添翼。
下面举个例子，如使用Recv接收数据到Buffer中后，你需要进行解密操作，你可以使用下面的方法进行：
var
a,b:array [1..8] of byte;
i :integer;
ResultBuffer :array [1..Max] of byte;
begin
for i := 1 to Sizeof(Buffer) div 8 do
begin
move(Buffer[(i-1)*8+1],a,8);
Des(a,b,true); //这里使用DES加解密处理
move(b,ResultBuffer[(i-1)*8+1],8);
end;
end
大家看一看，上面的代码，思路很清楚，就是将接收到的Buffer分别按8个提到变量a中，再使用DES解密
算法解密成b，再放回ResultBuffer中。
如果你熟练使用指针的话，效率会极大的提高
var
a,b
byte;i :integer;
ResultBuffer :array [1..Max] of byte;
begin
for i := 1 to Sizeof(Buffer) div 8 do
begin
a := @Buffer[(i-1)*8+1];
b := @ResultBuffer[(i-1)*8+1]
Des(a^,b^,true); //这里使用DES加解密处理
end;
end
再看一看上面的代码，是不是少了两个Copy数据的过程，这就是指针给你带来的高效。
6 多使用WSASend，WSARecv等WinSocket 2函数，不要使用Send,Recv函数
这个主要看你的服务器运行在什么系统中了，如果运行在WIN系统里，最好使用WSA系统的函数，因为Micr
osoft毕竟将它们都优化了。
7 合理使用线程池操作
高效的服务器一定要使用线程池技术，使用多少线程合理，需要线程处理什么样的数据。我个人认为如果
要使用线程池的技术，一定要处理那些最费时的操作，如数据库的查询操作。
8 如果服务器使用了“池”的概念，这就又出现了一个问题，如何高效的分配池呢？
我在程序中大量的使用池，如线程池，数据池等。当数据到达的时候，如何分配池呢？这里就不告诉大家
了，以后再专门写一篇关于池的文章。详细的介绍如何使用池。大家也可以自己考虑一下。
9 使用高效的字符串操作函数
因为服务器一定要进行大量的字符串运行，如果使用Delphi自带的函数来操作，就比较费时，所以这里推
荐大家使用QStrings.pas字符串操作函数集，相信会对大家有帮助的。
10 优化你的SQL查询语句
你可以一方面优化SQL查询语句来提高运行效率，另一方面你还可以使用存储过程来更大的提高运行效率
。（这些知识你需要看数据库的内容，这里具体如何优化就不说了。）
上面介绍是我的实践经验，不一定全对，希望大家能有帮助。如果有更好的方法，也可以讨论。
D
dazzling
Unregistered / Unconfirmed
GUEST, unregistred user!
能再多贴些有关这方面的资料吗?分都给你,
谢谢
谢谢
小
小陵
Unregistered / Unconfirmed
GUEST, unregistred user!
一、Delphi与Socket
计算机网络是由一系列网络通信协议组成的，其中的核心协议是传输层的TCP/IP和UDP协议。TCP是面向连接的，通信双方保持一条通路，好比目前的电话线，使用telnet登陆BBS，用的就是TCP协议；UDP是无连接的，通信双方都不保持对方的状态，浏览器访问Internet时使用的HTTP协议就是基于UDP协议的。TCP和UDP协议都非常复杂，尤其是TCP协议，为了保证网络传输的正确性和有效性，必须进行一系列复杂的纠错和排序等处理。
Socket是建立在传输层协议(主要是TCP和UDP)上的一种套接字规范，最初是由美国加州Berkley大学提出，它定义两台计算机间进行通信的规范（也是一种编程规范），如果说两台计算机是利用一个“通道“进行通信，那么这个“通道“的两端就是两个套接字。套接字屏蔽了底层通信软件和具体操作系统的差异，使得任何两台安装了TCP协议软件和实现了套接字规范的计算机之间的通信成为可能。
微软的Windows Socket规范(简称winsock)对Berkley的套接字规范进行了扩展，利用标准的Socket的方法，可以同任何平台上的Socket进行通信；利用其扩展，可以更有效地实现在Windows平台上计算机间的通信。在Delphi中，其底层的Socket也应该是Windows的Socket。Socket减轻了编写计算机间通信软件的难度，但总的说来还是相当复杂的（这一点在后面具体会讲到）；Inprise在Delphi中对Windows Socket进行了有效的封装，使得用户可以很方便地编写网络通信程序。下面我们实例解读在Delphi中如何利用Socket编写通信程序。
二、利用Delphi编写Socket通信程序。
下面是一个简单的Socket通信程序，其中客户机和服务机是同一个程序，当客户机（服务器）在一个memo1中输入一段文字然后敲入回车，该段文字就可以显示在服务器(客户机)的memo2中，反之亦成立。具体步骤如下：
1、新建一个form，任意命名，不妨设之为chatForm；放上一个MainMenu(在Standard栏中)，建立ListenItem、ConnectItem、Disconnect和Exit菜单项；在从Internet栏中选择TServerSocket、TClientSocket添加到chatForm中，其中把TClientSocket的名字设为ClientSocket, port设为1025，默认的active为false；把TServerSocket的名字设为ServerSocket，port设为1025，默认的active为false，其他的不变；再放入两个memo，一个命名为memo1,另外一个命名为memo2,其中把memo2的color设置为灰色，因为主要用来显示对方的输入。下面我们一边编写代码一边解释原因。
２、双击ListemItem。写入如下代码：
procedure TChatForm.ListenItemClick(Sender: TObject);
begin
ListenItem.Checked := not ListenItem.Checked;
if ListenItem.Checked then
begin
ClientSocket.Active := False;
ServerSocket.Active := True;
end
else
begin
if ServerSocket.Active then
ServerSocket.Active := False;
end;
end;
该程序段的说明如下：当用户选择ListemItem时，该ListenItem取反，如果选中的话，说明处于Listen状态，读者要了解的是：listen是Socket作为Server时一个专有的方法，如果处于listen,则ServerSocket设置为活动状态；否则，取消listen，则关闭ServerSocket。实际上，只有用户一开始选择该菜单项，表明该程序用作Server。反之，如果用户选择ConnectItem，则必然作为Client使用。
３、双击ConnectItem，敲入以下代码。
procedure TChatForm.ConnectItemClick(Sender: TObject);
begin
if ClientSocket.Active then ClientSocket.Active := False;
if InputQuery('Computer to connect to', 'Address Name:', Server) then
if Length(Server) > 0 then
with ClientSocket do
begin
Host := Server;
Active := True;
ListenItem.Checked := False;
end;
end;
这段程序的主要功能就是当用户选择ConnectItem菜单项时，设置应用程序为客户机，弹出input框，让用户输入服务器的地址。这也就是我们不一开始固定ClientSocket的host的原因，这样用户可以动态地连接不同的服务器。读者需要了解的是主机地址只是Socket作为客户机时具有的一个属性，Socket作为服务器时“一般“不用地址，因为它同本机绑定。
4、在memo1的keydown方法中写入如下代码：
procedure TChatForm.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Return then
if IsServer then
ServerSocket.Socket.Connections[0].SendText(Memo1.Lines[Memo1.Lines.Count - 1])
else
ClientSocket.Socket.SendText(Memo1.Lines[Memo1.Lines.Count - 1]);
end;
该段代码的作用很明显，就是开始发消息了。其中如果是Server的话，它只向第一个客户机发消息，由于一个服务器可以连接多个客户机，而同客户机的每一个连接都由一个Socket来维持，因此ServerSocket.Socket.Connnections数组中存储的就是同Client维持连接的Socket。在标准Socket中，服务器方的Socket通过accept()方法的返回值获取维持同客户机连接的Socket,而发送、接受消息的方法分别为send(sendto)和recv(recvfrom), Delphi对此进行了封装。
５、其余代码的简要介绍。
procedure TChatForm.ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
begin
IsServer := True;
end;
ServerSocket的Accept方法，当客户机第一次连接时完成，通过其参数可以认为，它是在标准的accept方法后执行的，因为有TCustomWinSocket这个参数类型，它应该是标准Server方Socket的返回值。
procedure TChatForm.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
procedure TChatForm.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
这两段代码分别是服务器方和客户机方在收到对方的消息时，由Delphi触发的，作用是在memo2中显示收到的消息。其中，ClientSocketRead中的Socket实际上就是Socket本身，而在ServerSocketClientRead中的Socket实际上是ServerSocket.Socket.Connection[]中的某个Socket。不过在Delphi中，对服务器方的Socket进行了有效的封装。
procedure TChatForm.ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Clear;
end;
procedure TChatForm.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ListenItemClick(nil);
end;
这两段比较简单。其中ServerSocketClientConnect在ServerSocket收到一个新的连接时触发。而ClientSocketDisconnect在ClientSocket发出Disconncet时触发。
procedure TChatForm.Exit1Click(Sender: TObject);
begin
ServerSocket.Close;
ClientSocket.Close;
Close;
end;
procedure TChatForm.Disconnect1Click(Sender: TObject);
begin
ClientSocket.Active := False;
ServerSocket.Active := True;
end;
第一段为关闭应用程序。在标准Socket中，每个Socket在关闭时，必须调用closesocket()方法，否则系统不会释放资源。而在ServerSockt.Close和ClientSocket.Close中，系统内部肯定调用了closesocket（）方法。
三、标准Socket与Delphi中的Socket。
标准的Socket的应用程序框架如下：
Server方： Socket()[ 新建一个Socket]－－Bind()[ 同服务器地址邦定 ]－－Listen() －－Accept()－－block wait－－read()[接受消息，在windows平台中，方法为send(TCP),或者是sendto(UDP)]－－处理服务请求－－Write()[发送消息，在windows平台中，方法为send(TCP), 或者为sendto(UDP)。
Client方相对简单：Socket()－－Connect()[通过一定的port连接特定的服务器，这是与服务器建立连接]－－Write()－－Read()。
Socket可以是基于TCP的，也可以是基于UDP,同时Socket甚至建立在其他的协议，比如IPX/SPX，DECNet等。在新建一个Socket时，可以指定新建何类Socket。Bind()用来同服务器的地址邦定，如果一个主机只有一个IP地址，实际上邦定的作用就相对多余了。Listen()开始监听网络，Accept()用于接受连接，其返回值是保持同客户机联系的Socket。
在Delphi中，对于Windows中的Socket进行了有效的封装。在Delphi中，按其继承关系，可以分层两类：
一、TComponent－－TAbstractSocket－－TCustomSocket－－TCustomServerSocket－－TServerSocket
TComponent－－TAbstractSocket－－TCustomSocket－－TClientSocket
二、直接从TObject继承过来:
TObject－－TCustomWinSocket－－TServerWinSocket
TObject－－TCustomWinSocket－－TClientWinSocket
TObject－－TCustomWinSocket－－TServerClientWinSocket
可以看出第一类建立在TCustomSocket基础上，第二类建立在TCustomWinSocket的基础上。第一类建立在TComponet的基础上，第二类直接构建在TObject基础上。因此如果用户非常熟悉Socket并且想要编写控制台程序时，可以使用TCustomWinScoket类。
同uses中可以看出，它们都在ScktComp.pas中实现，而在schtComp.pas中，则包含了winsock.pas文件，如果继续深入winsock文件，在其中可以发现所有的Windows Socket的基本方法。
实际上，如果你了解了标准Socket的应用程序框架，对于使用Delphi编写Socket应用程序也就得心应手了；这不是说你必须了解复杂的Socket中的标准函数，也没有必要，因为Delphi已经为你做了很好的封装了，这也正是Delphi的强势所在，你只要了解那么一点点的基本框架。
这是我对Delphi中的Socket应用的理解，不足之处希望大家指正。同时也乐于为大家解答Delphi中有关Socket的问题。
计算机网络是由一系列网络通信协议组成的，其中的核心协议是传输层的TCP/IP和UDP协议。TCP是面向连接的，通信双方保持一条通路，好比目前的电话线，使用telnet登陆BBS，用的就是TCP协议；UDP是无连接的，通信双方都不保持对方的状态，浏览器访问Internet时使用的HTTP协议就是基于UDP协议的。TCP和UDP协议都非常复杂，尤其是TCP协议，为了保证网络传输的正确性和有效性，必须进行一系列复杂的纠错和排序等处理。
Socket是建立在传输层协议(主要是TCP和UDP)上的一种套接字规范，最初是由美国加州Berkley大学提出，它定义两台计算机间进行通信的规范（也是一种编程规范），如果说两台计算机是利用一个“通道“进行通信，那么这个“通道“的两端就是两个套接字。套接字屏蔽了底层通信软件和具体操作系统的差异，使得任何两台安装了TCP协议软件和实现了套接字规范的计算机之间的通信成为可能。
微软的Windows Socket规范(简称winsock)对Berkley的套接字规范进行了扩展，利用标准的Socket的方法，可以同任何平台上的Socket进行通信；利用其扩展，可以更有效地实现在Windows平台上计算机间的通信。在Delphi中，其底层的Socket也应该是Windows的Socket。Socket减轻了编写计算机间通信软件的难度，但总的说来还是相当复杂的（这一点在后面具体会讲到）；Inprise在Delphi中对Windows Socket进行了有效的封装，使得用户可以很方便地编写网络通信程序。下面我们实例解读在Delphi中如何利用Socket编写通信程序。
二、利用Delphi编写Socket通信程序。
下面是一个简单的Socket通信程序，其中客户机和服务机是同一个程序，当客户机（服务器）在一个memo1中输入一段文字然后敲入回车，该段文字就可以显示在服务器(客户机)的memo2中，反之亦成立。具体步骤如下：
1、新建一个form，任意命名，不妨设之为chatForm；放上一个MainMenu(在Standard栏中)，建立ListenItem、ConnectItem、Disconnect和Exit菜单项；在从Internet栏中选择TServerSocket、TClientSocket添加到chatForm中，其中把TClientSocket的名字设为ClientSocket, port设为1025，默认的active为false；把TServerSocket的名字设为ServerSocket，port设为1025，默认的active为false，其他的不变；再放入两个memo，一个命名为memo1,另外一个命名为memo2,其中把memo2的color设置为灰色，因为主要用来显示对方的输入。下面我们一边编写代码一边解释原因。
２、双击ListemItem。写入如下代码：
procedure TChatForm.ListenItemClick(Sender: TObject);
begin
ListenItem.Checked := not ListenItem.Checked;
if ListenItem.Checked then
begin
ClientSocket.Active := False;
ServerSocket.Active := True;
end
else
begin
if ServerSocket.Active then
ServerSocket.Active := False;
end;
end;
该程序段的说明如下：当用户选择ListemItem时，该ListenItem取反，如果选中的话，说明处于Listen状态，读者要了解的是：listen是Socket作为Server时一个专有的方法，如果处于listen,则ServerSocket设置为活动状态；否则，取消listen，则关闭ServerSocket。实际上，只有用户一开始选择该菜单项，表明该程序用作Server。反之，如果用户选择ConnectItem，则必然作为Client使用。
３、双击ConnectItem，敲入以下代码。
procedure TChatForm.ConnectItemClick(Sender: TObject);
begin
if ClientSocket.Active then ClientSocket.Active := False;
if InputQuery('Computer to connect to', 'Address Name:', Server) then
if Length(Server) > 0 then
with ClientSocket do
begin
Host := Server;
Active := True;
ListenItem.Checked := False;
end;
end;
这段程序的主要功能就是当用户选择ConnectItem菜单项时，设置应用程序为客户机，弹出input框，让用户输入服务器的地址。这也就是我们不一开始固定ClientSocket的host的原因，这样用户可以动态地连接不同的服务器。读者需要了解的是主机地址只是Socket作为客户机时具有的一个属性，Socket作为服务器时“一般“不用地址，因为它同本机绑定。
4、在memo1的keydown方法中写入如下代码：
procedure TChatForm.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Return then
if IsServer then
ServerSocket.Socket.Connections[0].SendText(Memo1.Lines[Memo1.Lines.Count - 1])
else
ClientSocket.Socket.SendText(Memo1.Lines[Memo1.Lines.Count - 1]);
end;
该段代码的作用很明显，就是开始发消息了。其中如果是Server的话，它只向第一个客户机发消息，由于一个服务器可以连接多个客户机，而同客户机的每一个连接都由一个Socket来维持，因此ServerSocket.Socket.Connnections数组中存储的就是同Client维持连接的Socket。在标准Socket中，服务器方的Socket通过accept()方法的返回值获取维持同客户机连接的Socket,而发送、接受消息的方法分别为send(sendto)和recv(recvfrom), Delphi对此进行了封装。
５、其余代码的简要介绍。
procedure TChatForm.ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
begin
IsServer := True;
end;
ServerSocket的Accept方法，当客户机第一次连接时完成，通过其参数可以认为，它是在标准的accept方法后执行的，因为有TCustomWinSocket这个参数类型，它应该是标准Server方Socket的返回值。
procedure TChatForm.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
procedure TChatForm.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
这两段代码分别是服务器方和客户机方在收到对方的消息时，由Delphi触发的，作用是在memo2中显示收到的消息。其中，ClientSocketRead中的Socket实际上就是Socket本身，而在ServerSocketClientRead中的Socket实际上是ServerSocket.Socket.Connection[]中的某个Socket。不过在Delphi中，对服务器方的Socket进行了有效的封装。
procedure TChatForm.ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Clear;
end;
procedure TChatForm.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ListenItemClick(nil);
end;
这两段比较简单。其中ServerSocketClientConnect在ServerSocket收到一个新的连接时触发。而ClientSocketDisconnect在ClientSocket发出Disconncet时触发。
procedure TChatForm.Exit1Click(Sender: TObject);
begin
ServerSocket.Close;
ClientSocket.Close;
Close;
end;
procedure TChatForm.Disconnect1Click(Sender: TObject);
begin
ClientSocket.Active := False;
ServerSocket.Active := True;
end;
第一段为关闭应用程序。在标准Socket中，每个Socket在关闭时，必须调用closesocket()方法，否则系统不会释放资源。而在ServerSockt.Close和ClientSocket.Close中，系统内部肯定调用了closesocket（）方法。
三、标准Socket与Delphi中的Socket。
标准的Socket的应用程序框架如下：
Server方： Socket()[ 新建一个Socket]－－Bind()[ 同服务器地址邦定 ]－－Listen() －－Accept()－－block wait－－read()[接受消息，在windows平台中，方法为send(TCP),或者是sendto(UDP)]－－处理服务请求－－Write()[发送消息，在windows平台中，方法为send(TCP), 或者为sendto(UDP)。
Client方相对简单：Socket()－－Connect()[通过一定的port连接特定的服务器，这是与服务器建立连接]－－Write()－－Read()。
Socket可以是基于TCP的，也可以是基于UDP,同时Socket甚至建立在其他的协议，比如IPX/SPX，DECNet等。在新建一个Socket时，可以指定新建何类Socket。Bind()用来同服务器的地址邦定，如果一个主机只有一个IP地址，实际上邦定的作用就相对多余了。Listen()开始监听网络，Accept()用于接受连接，其返回值是保持同客户机联系的Socket。
在Delphi中，对于Windows中的Socket进行了有效的封装。在Delphi中，按其继承关系，可以分层两类：
一、TComponent－－TAbstractSocket－－TCustomSocket－－TCustomServerSocket－－TServerSocket
TComponent－－TAbstractSocket－－TCustomSocket－－TClientSocket
二、直接从TObject继承过来:
TObject－－TCustomWinSocket－－TServerWinSocket
TObject－－TCustomWinSocket－－TClientWinSocket
TObject－－TCustomWinSocket－－TServerClientWinSocket
可以看出第一类建立在TCustomSocket基础上，第二类建立在TCustomWinSocket的基础上。第一类建立在TComponet的基础上，第二类直接构建在TObject基础上。因此如果用户非常熟悉Socket并且想要编写控制台程序时，可以使用TCustomWinScoket类。
同uses中可以看出，它们都在ScktComp.pas中实现，而在schtComp.pas中，则包含了winsock.pas文件，如果继续深入winsock文件，在其中可以发现所有的Windows Socket的基本方法。
实际上，如果你了解了标准Socket的应用程序框架，对于使用Delphi编写Socket应用程序也就得心应手了；这不是说你必须了解复杂的Socket中的标准函数，也没有必要，因为Delphi已经为你做了很好的封装了，这也正是Delphi的强势所在，你只要了解那么一点点的基本框架。
这是我对Delphi中的Socket应用的理解，不足之处希望大家指正。同时也乐于为大家解答Delphi中有关Socket的问题。