delphi - Tclientsocket 如果套接字无法连接

Question

当套接字无法连接到主机时，我希望我的套接字连接到备份主机，我试过这个：

if prclient.Socket.connected = false then
begin
prclient.Active := false;
prclient.Port := PORT;
prclient.Host := HOST;
prclient.Active := true;
prclient.Open;
sleep(500);
if prclient.Socket.Connected = false then
begin
prclient.Active := false;
prclient.Host := BACKUPHOST;
prclient.Active := true;
prclient.Open;
end;
end;

但现在他根本连不上。谁知道工作脚本？

Answer 1

如果您在阻塞模式下使用套接字，那么如果连接失败，两者Active:=True和Open()（您不应该一起使用！）将引发异常：

prclient.Port := PORT;
prclient.Host := HOST;
try
  prclient.Open;
except
  prclient.Host := BACKUPHOST;
  prclient.Open;
end;

如果您在非阻塞模式下使用套接字，则不会引发异常（除非套接字 API 函数失败），在后台尝试连接，并通过OnConnectorOnError事件通知您最终结果，具体取决于是否分别连接成功或失败。