使用indy，碰到的问题。(100分)

客户端发一次数据，不晓得服务端的Execute事件为何会触发两次（第二次还是个异常）？

请赐教，代码如下：

客户端代码：
procedure TfrmClient.Button1Click(Sender: TObject);
begin
IdTCPClient1.Connect;
IdTCPClient1.Write('Test'+#0);
IdTCPClient1.Disconnect;
end;

服务端代码：
procedure TfrmServer.IdTCPServer1Execute(AThread: TIdPeerThread);
var
s:string;
begin
try
s:=AThread.Connection.ReadLn(#0);
ShowMessage(s);
except on e:exception do
ShowMessage(e.Message);
end;
end;

没有出现像你所说的那样啊?!
我在delphi 7 上试了一下是好的啊!!!

你所说的第二个异常是不是" Connection Closed Gracefully"?

To andy09_2003:
就是这个异常提示. 我用的是D6.

" Connection Closed Gracefully"这个提示是由于连接已经断开了,你试着把IdTCPClient1.Disconnect;屏蔽吊就应该好了!!(delphi 7是这样,delphi 6也应该是的).

接受答案了.