1.对事件的理解
TTcpClient和TTcpServer组件中有一系列事件（OnReceive, OnSend, OnError,OnAccept...）。这些事件是通知你某件事件发生，并没有通知你该干什么的意思。比如，OnSend事件的发生不是通知你应该调用Send??方法，相反，该事件的发生意味着Send??方法已经被调用了。2.TTcpServer,TServerSocketThread和TClientSocketThread之间的关系。
先定义一下“内部”，在这里“内部”指的是的隐藏在你的代码之后的代码，机制。
首先，从TTcpServer的OnAccept事件响应说起，该事件是在一个客户端的连接被内部接受后发生的。通过debug windows/Threads观察，会发现在进入该事件响应之前，一个新的线程被已经生成，这是内部为这个新的连接生成的一个新线程。
TTcpServer还有一个事件响应OnGetThread，通过debug调试会发现这个事件是在OnAccept时间之前发生。该事件的有一个传入参数 var ClientSocketThread: TClientSocketThread。在这里很容易想到这个ClientSocketThread对象应该由你创建，然后被内部使用。暂且打住。 下面先跳到TServerSocketThread和TClientSocketThread看看。procedure TServerSocketThread.Execute;
var
T: TClientSocketThread;
begin
while not Terminated and Assigned(FServerSocket) and FServerSocket.Listening do
begin
if FServerSocket.WaitForConnection then
if not Terminated then
begin
T := FetchClientSocketThread;
if not Assigned(T) then
T := AddClientSocketThread;
if Assigned(T) then
T.Resume;
Sleep(0);
end;
end;
end;
暂且不管TServerSocketThread.Execute是在什么地方被调用的。先看看它干了些什么。FServerSocket.WaitForConnection有可能被阻塞，不过这没关系，因为反正在这里是循环检测。(有兴趣可以跳到WaitForConnection看看)。当一定条件满足，调用FetchClientSocketThread。大概看看FetchClientSocketThread的代码，它是先看线程缓冲池中是否有可用的线程。如果有就返回这个线程，如果没有就返回空。再回到Execute，如果Fetch***没有找到可用的线程，就调用AddClientSocketThread，再进去看看，function TServerSocketThread.AddClientSocketThread: TClientSocketThread;
begin
Result := nil;
if Assigned(FServerSocket) and (FThreadPool.Count < FThreadCacheSize) then
begin
if Assigned(FOnGetThread) then
FOnGetThread(Self, Result);
if not Assigned(Result) then
Result := CreateThread;
if Assigned(Result) then
FThreadPool.Add(Result);
end
end; 很显然，AddClientSocketThread先看看自己的OnGetThread事件是否有相应函数，这和我们开始提到的TTcpServer(继承自TCustomIpServer)的OnGetThread事件太像了，那到底这两个事件之间有什么联系呢？用查找的方法会发现(过程就不说了)，
procedure TCustomTcpServer.Open;
begin
inherited Open; if Bind then
if Listen then
if BlockMode = bmThreadBlocking then
begin
GetServerSocketThread; //注意!!!!!!!!!!!!
if Assigned(FServerSocketThread) and FServerSocketThread.Suspended then
FServerSocketThread.Resume;
end;
end;function TCustomTcpServer.GetServerSocketThread: TServerSocketThread;
begin
if not Assigned(FServerSocketThread) then
FServerSocketThread := TServerSocketThread.Create(Self);
if Assigned(FServerSocketThread) then
FServerSocketThread.OnGetThread := GetThread; //注意!!!!!!!!!!!!
Result := FServerSocketThread;procedure TCustomTcpServer.GetThread(Sender: TObject; var ClientSocketThread: TClientSocketThread);
begin
if Assigned(FOnGetThread) then
FOnGetThread(Self, ClientSocketThread); //注意!!!!!!!!!!!!
end; 最后这个FOnGetThread(Self, ClientSocketThread)函数就是我们的TTcpServer的OnGetThread事件响应函数，所以，TServerSocketThread最终会调用我们的线程创建函数。
再回到TServerSocketThread.AddClientSocketThread，如果因为我们没有响应OnGetThread事件或者我们创建的线程为空，那么TServerSocketThread.CreateThread会被调用，该函数只是简单的创建一个默认属性的线程。
现在，新线程已经被创建，回到TServerSocketThread.Execute，(T.Resume)新线程会很快得到执行。
新线程是TClientSocketThread类型的实例，我们再来看看TClientSocketThread.Execute地执行过程，
procedure TClientSocketThread.Execute;
begin
ThreadObject := Self;
while not Terminated do
begin
if Assigned(FServerSocketThread) and not FServerSocketThread.Terminated and
Assigned(FServerSocketThread.ServerSocket) then
begin
FClientSocket := TCustomIpClient.Create(nil);
try
FServerSocketThread.ServerSocket.Accept(FClientSocket);
finally
FClientSocket.Free;
FClientSocket := nil;
end;
end;
if not Terminated then
Suspend;
end;
end;
注意其中的FServerSocketThread.ServerSocket.Accept(FClientSocket)，我们再进去看看，
function TCustomTcpServer.Accept(var ClientSocket: TCustomIpClient): Boolean;
var
sock: TSocket;
addr: TSockAddr;
len: Integer;
begin
Result := False;
len := sizeof(addr);
Fillchar(addr, sizeof(addr), 0);
try
{$IFDEF MSWINDOWS}
Sock := ErrorCheck(WinSock.accept(FSocket, @addr, @len));
{$ENDIF}
{$IFDEF LINUX}
Sock := ErrorCheck(Libc.accept(FSocket, @addr, @len));
{$ENDIF}
except
Sock := INVALID_SOCKET;
end;
if Sock <> INVALID_SOCKET then
begin
Result := True;
ClientSocket.FActive := True;
ClientSocket.FConnected := True;
ClientSocket.FSocket := Sock;
ClientSocket.FDomain := FDomain;
ClientSocket.SockType := FSockType;
ClientSocket.FProtocol := FProtocol;
ClientSocket.FBlockMode := FBlockMode;
ClientSocket.FRemoteHost := inet_ntoa(addr.sin_addr);
ClientSocket.FRemotePort := IntToStr(ntohs(addr.sin_port));
DoAccept(ClientSocket);
end;
end;
容易发现，它首先调用windowsAPI accept，接受一个连接(具体干了些什么事，请看帮助)，然后，初始化ClientSocket，再然后，再然后调用了关键的DoAccept(ClientSocket),
procedure TCustomTcpServer.DoAccept(ClientSocket: TCustomIpClient);
begin
if Assigned(FOnAccept) then
FOnAccept(Self, ClientSocket);
end;
在DoAccept中，最开始我们提到的TTcpServer的OnAccept事件响应函数被调用。并且把ClientSocket作为参数传入，通过这个参数，我们就可以往socket读，写数据了。
从TClientSocketThread.Execute到TTcpServer(TCustomIpServer)的DoAccept的事件响应函数，会发现，一旦我们的DoAccept事件响应函数执行完毕，那么该连接对应的整个线程的任务就完成了，根据设置的不同，可能被结束或是其他。
最后，还剩下一个问题，TServerSocketThread.Execute是在什么地方被调用的？还记得TCustomIpServer.Open方法吗？其中调用了它自己的GetServerSocketThread函数，该函数中会检查TCustomIpServer.FServerSocketThread是否被赋值，如果没有，则创建一个新的TServerSocketThread线程，这也就是为什么，如果在应用程序中包含了TTcpServer组件后，一旦调用TTcpServer.Open方法后就会新增一个线程，这是一个专门用于监听的(TServerSocketThread)线程，它看是否有客户端的连接，如果有，就再创建一个专门用于该连接的(TClientSocketThread)线程。
现在该看看TTcpServer,TServerSocketThread和TClientSocketThread之间的关系了。
TTcpServer中有一个属性，它指向一个TServerSocketThread实例，这个实例负责创建，管理，和释放TClientSocketThread实例。一个TServerSocketThread对象可以管理多个TClientSocketThread。
TTcpClient和TTcpServer组件中有一系列事件（OnReceive, OnSend, OnError,OnAccept...）。这些事件是通知你某件事件发生，并没有通知你该干什么的意思。比如，OnSend事件的发生不是通知你应该调用Send??方法，相反，该事件的发生意味着Send??方法已经被调用了。2.TTcpServer,TServerSocketThread和TClientSocketThread之间的关系。
先定义一下“内部”，在这里“内部”指的是的隐藏在你的代码之后的代码，机制。
首先，从TTcpServer的OnAccept事件响应说起，该事件是在一个客户端的连接被内部接受后发生的。通过debug windows/Threads观察，会发现在进入该事件响应之前，一个新的线程被已经生成，这是内部为这个新的连接生成的一个新线程。
TTcpServer还有一个事件响应OnGetThread，通过debug调试会发现这个事件是在OnAccept时间之前发生。该事件的有一个传入参数 var ClientSocketThread: TClientSocketThread。在这里很容易想到这个ClientSocketThread对象应该由你创建，然后被内部使用。暂且打住。 下面先跳到TServerSocketThread和TClientSocketThread看看。procedure TServerSocketThread.Execute;
var
T: TClientSocketThread;
begin
while not Terminated and Assigned(FServerSocket) and FServerSocket.Listening do
begin
if FServerSocket.WaitForConnection then
if not Terminated then
begin
T := FetchClientSocketThread;
if not Assigned(T) then
T := AddClientSocketThread;
if Assigned(T) then
T.Resume;
Sleep(0);
end;
end;
end;
暂且不管TServerSocketThread.Execute是在什么地方被调用的。先看看它干了些什么。FServerSocket.WaitForConnection有可能被阻塞，不过这没关系，因为反正在这里是循环检测。(有兴趣可以跳到WaitForConnection看看)。当一定条件满足，调用FetchClientSocketThread。大概看看FetchClientSocketThread的代码，它是先看线程缓冲池中是否有可用的线程。如果有就返回这个线程，如果没有就返回空。再回到Execute，如果Fetch***没有找到可用的线程，就调用AddClientSocketThread，再进去看看，function TServerSocketThread.AddClientSocketThread: TClientSocketThread;
begin
Result := nil;
if Assigned(FServerSocket) and (FThreadPool.Count < FThreadCacheSize) then
begin
if Assigned(FOnGetThread) then
FOnGetThread(Self, Result);
if not Assigned(Result) then
Result := CreateThread;
if Assigned(Result) then
FThreadPool.Add(Result);
end
end; 很显然，AddClientSocketThread先看看自己的OnGetThread事件是否有相应函数，这和我们开始提到的TTcpServer(继承自TCustomIpServer)的OnGetThread事件太像了，那到底这两个事件之间有什么联系呢？用查找的方法会发现(过程就不说了)，
procedure TCustomTcpServer.Open;
begin
inherited Open; if Bind then
if Listen then
if BlockMode = bmThreadBlocking then
begin
GetServerSocketThread; //注意!!!!!!!!!!!!
if Assigned(FServerSocketThread) and FServerSocketThread.Suspended then
FServerSocketThread.Resume;
end;
end;function TCustomTcpServer.GetServerSocketThread: TServerSocketThread;
begin
if not Assigned(FServerSocketThread) then
FServerSocketThread := TServerSocketThread.Create(Self);
if Assigned(FServerSocketThread) then
FServerSocketThread.OnGetThread := GetThread; //注意!!!!!!!!!!!!
Result := FServerSocketThread;procedure TCustomTcpServer.GetThread(Sender: TObject; var ClientSocketThread: TClientSocketThread);
begin
if Assigned(FOnGetThread) then
FOnGetThread(Self, ClientSocketThread); //注意!!!!!!!!!!!!
end; 最后这个FOnGetThread(Self, ClientSocketThread)函数就是我们的TTcpServer的OnGetThread事件响应函数，所以，TServerSocketThread最终会调用我们的线程创建函数。
再回到TServerSocketThread.AddClientSocketThread，如果因为我们没有响应OnGetThread事件或者我们创建的线程为空，那么TServerSocketThread.CreateThread会被调用，该函数只是简单的创建一个默认属性的线程。
现在，新线程已经被创建，回到TServerSocketThread.Execute，(T.Resume)新线程会很快得到执行。
新线程是TClientSocketThread类型的实例，我们再来看看TClientSocketThread.Execute地执行过程，
procedure TClientSocketThread.Execute;
begin
ThreadObject := Self;
while not Terminated do
begin
if Assigned(FServerSocketThread) and not FServerSocketThread.Terminated and
Assigned(FServerSocketThread.ServerSocket) then
begin
FClientSocket := TCustomIpClient.Create(nil);
try
FServerSocketThread.ServerSocket.Accept(FClientSocket);
finally
FClientSocket.Free;
FClientSocket := nil;
end;
end;
if not Terminated then
Suspend;
end;
end;
注意其中的FServerSocketThread.ServerSocket.Accept(FClientSocket)，我们再进去看看，
function TCustomTcpServer.Accept(var ClientSocket: TCustomIpClient): Boolean;
var
sock: TSocket;
addr: TSockAddr;
len: Integer;
begin
Result := False;
len := sizeof(addr);
Fillchar(addr, sizeof(addr), 0);
try
{$IFDEF MSWINDOWS}
Sock := ErrorCheck(WinSock.accept(FSocket, @addr, @len));
{$ENDIF}
{$IFDEF LINUX}
Sock := ErrorCheck(Libc.accept(FSocket, @addr, @len));
{$ENDIF}
except
Sock := INVALID_SOCKET;
end;
if Sock <> INVALID_SOCKET then
begin
Result := True;
ClientSocket.FActive := True;
ClientSocket.FConnected := True;
ClientSocket.FSocket := Sock;
ClientSocket.FDomain := FDomain;
ClientSocket.SockType := FSockType;
ClientSocket.FProtocol := FProtocol;
ClientSocket.FBlockMode := FBlockMode;
ClientSocket.FRemoteHost := inet_ntoa(addr.sin_addr);
ClientSocket.FRemotePort := IntToStr(ntohs(addr.sin_port));
DoAccept(ClientSocket);
end;
end;
容易发现，它首先调用windowsAPI accept，接受一个连接(具体干了些什么事，请看帮助)，然后，初始化ClientSocket，再然后，再然后调用了关键的DoAccept(ClientSocket),
procedure TCustomTcpServer.DoAccept(ClientSocket: TCustomIpClient);
begin
if Assigned(FOnAccept) then
FOnAccept(Self, ClientSocket);
end;
在DoAccept中，最开始我们提到的TTcpServer的OnAccept事件响应函数被调用。并且把ClientSocket作为参数传入，通过这个参数，我们就可以往socket读，写数据了。
从TClientSocketThread.Execute到TTcpServer(TCustomIpServer)的DoAccept的事件响应函数，会发现，一旦我们的DoAccept事件响应函数执行完毕，那么该连接对应的整个线程的任务就完成了，根据设置的不同，可能被结束或是其他。
最后，还剩下一个问题，TServerSocketThread.Execute是在什么地方被调用的？还记得TCustomIpServer.Open方法吗？其中调用了它自己的GetServerSocketThread函数，该函数中会检查TCustomIpServer.FServerSocketThread是否被赋值，如果没有，则创建一个新的TServerSocketThread线程，这也就是为什么，如果在应用程序中包含了TTcpServer组件后，一旦调用TTcpServer.Open方法后就会新增一个线程，这是一个专门用于监听的(TServerSocketThread)线程，它看是否有客户端的连接，如果有，就再创建一个专门用于该连接的(TClientSocketThread)线程。
现在该看看TTcpServer,TServerSocketThread和TClientSocketThread之间的关系了。
TTcpServer中有一个属性，它指向一个TServerSocketThread实例，这个实例负责创建，管理，和释放TClientSocketThread实例。一个TServerSocketThread对象可以管理多个TClientSocketThread。
平时我用惯了VB+Winsock.ocx
改用D7+TcpServer+TcpClient时直接不知道北了
看来要想联上还需要很大的努力才行....(汗！！！)有一点不太明白，我用D7+TcpClient联VB+Winsock时可以连接上
但是为什么我收到的是乱码？？（很有规律的乱码）用Java 联VB没有出现问题。可不可以给个D7+ TcpServer+TcpClient的例子（越简单越好，主要看怎么收发信息）
这个例子还比较简单。