Question

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

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函数失败），在后台尝试连接，并且将通过{{通知您最终结果1}}或OnConnect事件，取决于连接是成功还是失败。

如果socket无法连接，则为Tclientsocket

1 个答案: