delphi xe ClientSocket 重连

在 Delphi XE 中，ClientSocket 组件可以使用 OnError 事件来处理连接错误，可以在该事件中实现重连逻辑。以下是一个简单的示例代码：

procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  // 连接错误，关闭当前连接
  ClientSocket1.Active := False;

  // 等待一段时间后尝试重连
  Sleep(5000);

  // 重新连接
  ClientSocket1.Active := True;
end;

在上面的代码中，我们首先关闭当前连接，然后等待 5 秒钟，最后重新连接。你可以根据自己的需要调整等待时间。当然，你也可以使用一个循环来不断尝试连接，例如：

procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
var
  RetryCount: Integer;
begin
  // 连接错误，关闭当前连接
  ClientSocket1.Active := False;

  // 尝试多次重连
  RetryCount := 0;
  repeat
    // 等待一段时间后尝试重连
    Sleep(5000);

    // 重新连接
    ClientSocket1.Active := True;

    // 如果连接成功，则退出循环
    Inc(RetryCount);
  until ClientSocket1.Active or (RetryCount >= 5);
end;

在上面的代码中，我们使用一个循环来重复尝试连接，最多尝试 5 次。你可以根据自己的需要调整重试次数。注意，使用循环来重连可能会阻塞主线程，所以最好在一个独立的线程中执行。