Функция с задержкой

[garuna]

Нужно время от времени проверять наличие интернет-соединения. Для этого создал функцию которая пингует IP 4.2.2.2, и возвращает результат True (если удачно) и False (если нет).
Подскажите, как сделать так, чтобы функция в случае неудачи первого пинга, пинговала еще три IP с интервалом в 3 секунды и только если все 3 пинга неудачны, возвращала результат False?

function TForm1.InetConnected : Boolean;
begin
  try
    ipPing1.PingHost('4.2.2.2');
    Result:= True;
  except
    Result:= False;
  end;
 end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 if InetConnected 
 then showmessage('инет есть!')
 else showmessage('инета нет!');
end;

[northener]

Сообщение от garuna

Нужно время от времени проверять наличие интернет-соединения. Для этого создал функцию которая пингует IP 4.2.2.2, и возвращает результат True (если удачно) и False (если нет).
Подскажите, как сделать так, чтобы функция в случае неудачи первого пинга, пинговала еще три IP с интервалом в 3 секунды и только если все 3 пинга неудачны, возвращала результат False?

Либо добавь таймер, либо доппоток.

[min@y™]

сделай список хостов и пингуй их в цикле в соседнем потоке (шоб прога не висела).

[WinCoder]

function TForm1.InetConnected : Boolean;
var
  b: boolean;
begin
  b := false;
  try
    ipPing1.PingHost('4.2.2.2');
    b:= True;
  except
    b:= False;
  end;
  if b := false then // если IP получен, то b уже в true, и вход в условие не происходит. Иначе проверяем второй IP. По аналогии делается с третьим
    begin
      //проверка второго IP
    end;
  Result := r;
 end;

[Stilet]

сделай список хостов и пингуй их в цикле в соседнем потоке

Согласен. Вот такое можно в поток кинуть:

const ips:array[1..3] of string=('1.1.1','2.2.2.2','3.3.3.3');
...
function InetConnected(ip:string) : Boolean;
begin
  try
    ipPing1.PingHost(ip);
    Result:= True;
  except
    Result:= False;
  end;
 end;

begin
 for i:=Low(a) to High(a) do begin
  if InetConnected(a[i])  then break
  else sleep(3000);
 end;
end;

[garuna]

WinCoder, а как же 3-секундный интервал между пингом?
Stilet, допустим. но как тогда обращаться? к обычной функции вот так:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 if InetConnected 
 then showmessage('инет есть!')
 else showmessage('инета нет!');
end;

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

[ZuBy]

если обернуть код Stilet'a в поток, то нужно указать глобальную переменную и смотреть что она показывает, после синхронизации конечно

[wslab]

Как вариант, сделать через таймер. Интервал таймера 3 секунды. Список адресов, и текущий индекс адреса, глобальные переменные. После запуска таймер с интервалом 3 секунды проверяет каждый адрес. Если одна из попыток удачна, остановка таймера.

[garuna]

сделал еще проще без потоков и таймеров. немного переделал код от Stilet - вместо Sleep(3000) поставил еще один цикл который создает задержку в 3 сек без зависаний:

   for j:=1 to 150 do
   begin
    Sleep(20);
    Application.ProcessMessages;
   end;

Всем спасибо за помощь, вопрос решен!