VPF::Обработка ошибки EIdSocketError - Форум программистов

artmaestro

Дата 30.6.2012, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 8.11.2010

Репутация: 1
Всего: 1

Здравствуйте.

подскажите пожалуйста как перехватить EIdSocketError

Код


procedure TForm4.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
IdIcmpClient1.Host:='ya.ru';
  IdIcmpClient1.ReceiveTimeout:=500;
end;

procedure TForm4.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
  var
    ping :integer;
begin
 try
ping:=AReplyStatus.MsRoundTripTime;
 Memo1.Lines.Add('Ping: '+inttostr(AReplyStatus.MsRoundTripTime));

 except
 on EIdSocketError do begin
   Memo1.Lines.Add('error');
 end;
end;

end;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
  IdIcmpClient1.Ping;

end;

end.

кинул в uses IdStack

Пинговал локальный компьютер ( соединение через wi-fi) возникает другая проблема, при отключении адаптера wi-fi программа выводить пинг 499-500, но при его включении (во время работы программы) вызывается данная ошибка

Это сообщение отредактировал(а) artmaestro - 30.6.2012, 22:09

CodeMonkey

Дата 1.7.2012, 03:23 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: нет
Всего: 89

Подсказка: окно "Debugger Exception Notification" показывает НЕ твоя программа.

Обрати внимание на выделенные жирным слова.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

MetalFan

Дата 2.7.2012, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

+ чтобы НЕ твоя программа не показывала это окно, поставь в нем галку Ignore this exception type

--------------------

There are always someone smarter than you...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »