Здравствуйте!
Хотелось бы реализовать в своем приложении сделать также, как сделано в Viber, отслеживать состояния подключения к интернету.
Я, перед выполнением процедуры, проверяю наличие интернета функцией..., а как сделать постоянный мониторинг подключения к интернету? Как это сделано в Viber.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
function TForm1.IsConnectedToInternet: Boolean;
begin
// проверяем интернет-соединение
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState (@dwConnectionTypes, 0);
end;
if IsConnectedToInternet then
begin
//...
end;
