如果套接字无法连接，则为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函数失败)，则在后台尝试进行对操作，并将通过OnConnect或OnError事件通知您最终结果，具体取决于连接是否成功或失败。