delphi - 在delphi中检查互联网连接

Question

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

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

例如：

If internetconnection then
begin

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

Answer 1

请尝试此链接中的代码

平

您也可以尝试使用免费的Internet Component Suite组件来实现与您的 ftp 服务器的测试连接。

编辑：

由于发现作者使用 IdFTP (Indy) 组件在 ftp 服务器上上传文件，而我的第一个答案并不好，我会鼓起勇气编写，因为我认为检查与 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;