Delphi：TTcpServer，读取时连接重置

Question

我正在尝试为 delphi 实现 Fitnesse Slim 服务器，但遇到一些问题的沟通。

Fitnesse 将启动我的进程，并给我一个端口号作为命令行参数。

然后我应该在给定的端口号创建一个套接字，Fitnesse 将连接到该端口。

我使用 TTcpServer 来完成这项工作：

TcpServer1.LocalPort := ParamStr(ParamCount);
TcpServer1.Active := true;

在 OnAccepted( ) 事件中，我发送要使用的协议版本，如规范中指定的那样。

procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
  s: ansistring;
begin
  ClientSocket.Sendln('Slim -- V0.0', #10);
  setLength(s, 6);
  ClientSocket.ReceiveBuf(s, 6);
end;

当我调用 ReceiveBuf( ) 时，进程结束，fitnesse 抛出异常：

java.net.SocketException: Connection reset

我使用了 oSpy 查看发送和接收的内容。它表明，在我的代码发送协议版本后，fitnesse 发回一条消息，并且当我尝试接收此消息时，连接被重置。

有谁知道这可能是什么原因？ 我做错了什么吗？

顺便说一句，当我使用fitnesse附带的java slim服务器时，一切正常。然后，oSpy 显示相同的通信，直到第一次读取为止。虽然我的阅读尝试失败了，但这篇文章按预期工作。

Answer 1

查看此网站的 delphi Fit 服务器 + 源代码