Текущий архив: 2003.11.17;
Скачать: CL | DM;

Вниз

Контроль над ошибками   Найти похожие ветки 

← →
Morg   (2003-09-21 15:06) [0]

Как аонтролировать ошибки ?
Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Active := true;
end;


Если нет соединения машина выкидывает ошибку:
Asynchronous socket error 10061;
Знаю надо копать в сторону try except, но как не знаю.


procedure TForm1.Button1Click(Sender: TObject);
begin
try
ClientSocket1.Active := true;
except
on а что дальше, не знаю ?! :(
end;


---

← →
Maxud ©   (2003-09-21 19:46) [1]

Я делаю так:

try
// защищаемый код
except
ShowMessage("Ошибка!");
end;


---

← →
Morg   (2003-09-21 21:39) [2]

А как реагировать на конкретные ошибки. Знаю можно, но не знаю что за команда это делает.
Что вроде этого:

try
// защищаемый код
except
on ??? - вот тут надо что то написать, что б реагировал на ошибку 10061
end;


---

← →
Плохиш_   (2003-09-21 22:24) [3]

2Morg (21.09.03 21:39) [2]

Ставишь курсор на except, нажимаешь F1 и читаешь .. читаешь .. головой думаешь.

---

← →
Verg ©   (2003-09-22 08:40) [4]

http://delphimaster.net/view/6-1064166847/

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c