Проверка доступа к интернету в приложениях на Delphi для предотвращения замораживаний: эффективные методы

Delphi , Базы данных , База данных

Проблема доступа к интернету в приложениях на Delphi

При разработке программ на языке Delphi, которые используют подключение к интернет-ресурсам, важно учитывать, что нестабильность соединения может привести к зависанию приложения. В частности, если программа пытается подключиться к базе данных MySQL через интернет на старте, это может вызвать проблемы при отсутствии доступа в сеть. В данной статье рассмотрим, как проверить наличие доступа к интернету в приложении на Delphi, используя примеры кода на Object Pascal.

Исходный код для проверки соединения

В качестве примера, рассмотрим функцию IsConnectedToInternet, которая проверяет наличие соединения с интернетом. Она использует функцию InternetGetConnectedState из библиотеки WININET.DLL, которая возвращает состояние соединения для различных типов подключений (например, через модем, LAN, прокси).

function TForm1.IsConnectedToInternet: Boolean;
var
  dwConnectionTypes: Integer;
begin
  try
    dwConnectionTypes := INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
    if InternetGetConnectedState(@dwConnectionTypes, 0) then
      Result := True
    else
      Result := False;
  except
    Result := False;
  end;
end;

Ограничения исходного кода

Этот код не проверяет, действительно ли устройство имеет доступ к интернет-ресурсам, а только то, что устройство подключено к сети. Например, если Wi-Fi ограничен по трафику и лимит исчерпан, устройство все еще будет считаться подключенным к сети, но не сможет получить доступ к интернету.

Решение проблемы

Чтобы избежать замораживания программы, необходимо использовать проверку, которая действительно подтверждает наличие доступа к интернету. Одним из способов является попытка подключения к внешнему ресурсу, например, к известному сайту или серверу. В случае успеха, можно считать, что интернет доступен.

Подходы к оптимизации работы с сетью

1. Разделение потоков: Для избежания блокировки главного потока (UI), следует выполнять операции с сетью в отдельных потоках. Это позволит главному потоку продолжать обработку событий пользователя, даже если сеть недоступна.

2. Обработка исключений: При попытке подключения к сети необходимо обрабатывать исключения, чтобы в случае неудачи программа могла корректно реагировать, например, выводить сообщение об ошибке пользователю.

3. Повторные попытки: В случае временной недоступности сети, можно настроить программу на повторные попытки подключения с задержкой.

Пример кода для проверки интернет-соединения в отдельном потоке

uses
  Classes, IdGlobal, IdTCPConnection, IdTCPClient;

type
  TInternetChecker = class
  private
    FInternetAvailable: Boolean;
    FOnInternetStatusChange: TNotifyEvent;
    procedure CheckInternetStatus;
  public
    property OnInternetStatusChange: TNotifyEvent read FOnInternetStatusChange write FOnInternetStatusChange;
    constructor Create(AOwner: TComponent);
    destructor Destroy; override;
  end;

constructor TInternetChecker.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  CheckInternetStatus;
end;

destructor TInternetChecker.Destroy;
begin
  if Assigned(FOnInternetStatusChange) then
    TThread.Synchronize(nil,
      procedure
      begin
        FOnInternetStatusChange(Self, False);
      end);
  inherited;
end;

procedure TInternetChecker.CheckInternetStatus;
var
  Connection: TIdTCPConnection;
  Client: TIdTCPClient;
begin
  Client := TIdTCPClient.Create(nil);
  try
    Connection := Client.Connection;
    Connection.IOHandler := TIdIOHandlerSocket.Create(Connection);
    Connection.ConnectTimeout := 2000;
    Connection.ReadTimeout := 2000;
    try
      Connection.Connect('www.google.com', 80);
      FInternetAvailable := True;
    except
      FInternetAvailable := False;
    finally
      Connection.Disconnect;
    end;
    if Assigned(FOnInternetStatusChange) then
    begin
      TThread.Synchronize(nil,
        procedure
        begin
          FOnInternetStatusChange(Self, FInternetAvailable);
        end);
    end;
  finally
    Client.Free;
  end;
end;

В этом коде создается отдельный класс TInternetChecker, который может запускать проверку интернет-соединения в фоновом потоке и уведомлять об изменениях состояния интернет-соединения через событие OnInternetStatusChange.

Заключение

Для предотвращения замораживания приложений на Delphi при отсутствии доступа к интернету, важно использовать проверенные методы, такие как отдельные потоки для операций с сетью и обработка исключений. Приведенные примеры кода помогут разработчикам внедрить эффективные решения в свои проекты.

Создано по материалам из источника по ссылке.

При разработке программ на Delphi важно обеспечить корректное обращение с сетью, в частности, проверять наличие интернет-соединения для предотвращения зависаний приложения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: База данных ::