在德尔福检查互联网连接

Question

如何，我已经制作了一个在ftp服务器上传文件的程序，问题是每当我无法访问互联网时，它就会出现错误，它会停止运行该程序并说我不是连接到互联网。

如何让程序在showmessage框中显示该消息，以便它不会停止运行该程序？

例如：

If internetconnection then
begin

end else showmessage ('You are not connected to the internet')

Answer 1

请尝试使用此链接中的代码

<击> Ping

此外，您可以尝试使用允许实现与ftp服务器的测试连接的免费Internet Component Suite组件。

修改

由于发现作者在ftp服务器上使用IdFTP（Indy）组件上传文件，我的第一个答案不好，我会勇敢地写，因为我认为正确的代码用于检查与ftp服务器的连接：

with IdFTP1 do begin
  Host := ..;
  Port := ..;
  Username := ..;
  Password := ..;
  if Connected then Disconnect;
  try
    Connect;
    ShowMessage('FTP IS Connected')
  except
    ShowMessage('FTP IS NOT Connected');
  end;
end;