Скачать: CL | DM;

try...except   Найти похожие ветки 

← →
SergeN   (2003-01-31 09:21) [0]

Уважаемые Мастера! Подскажите где ошибка?
try
{Что-то, что может привести к ошибке}
except
messagedlg("Кря-кря! Я дала "дуба".",mterror,[mbok],0);
end;
При возникновении ошибки окно messagedlg не появляется. Почему?

---

← →
Внук ©   (2003-01-31 09:27) [1]

1. Возможно, это ошибка, но не исключение
2. Это исключение, но обрабатывается ранее (на более высоком уровне вложенности)
3. ...

---

← →
Digitman ©   (2003-01-31 09:29) [2]

значит, нет ошибки

---

← →
SergeN   (2003-01-31 09:32) [3]

При ошибке Delphi говорит, что это "EOleException".Просто я работаю с OLE. Ну помогите пожалуйста, что за день такой сегодня!
Ещё и зарплату не дают...

---

← →
SergeN   (2003-01-31 09:37) [4]

Ну пожалуйста-а-а-а-а!

---

← →
Delirium^.Tremens ©   (2003-01-31 09:39) [5]

> SergeN (31.01.03 09:37)
> Ну пожалуйста-а-а-а-а!

Запустись не из под Delphi или отключи Stop on Exceptions

---

← →
Внук ©   (2003-01-31 09:40) [6]

Может так:
Запускаешь в IDE? Отключить перехват исключений. Tools->Debugger Options ->

---

← →
Спрашивающий   (2003-01-31 09:45) [7]

Приведи код по подробнее, где возникает ошибка?

---

← →
SergeN   (2003-01-31 09:55) [8]

procedure TForm1.objClick(Sender: TObject);
{Ввод объектов текуещй группы}
begin
try
sset:=acad.ActiveDocument.SelectionSets.Add(gruppa.Text);
sset.SelectOnScreen(emptyparam,emptyparam);
obj_num.Items.Add(inttostr(sset.Count));
except
messagedlg("Група уже содержит объекты.",mterror,[mbok],0);
end;
end;
Пояснения: идёт подключение к приложению-сервер AutoCAD 2002 (есть такой графический редактор), затем "юзер" выбирает совокупность объектов (линии, круги и т.п.) в чертеже, и если совокупность уже существует и сидит в опер. памати, то возникает известная долбаная ошибка.

---

← →
SergeN   (2003-01-31 10:03) [9]

Ни совета, ни зарплаты... Вот так люди и отходят в мир иной...

---

← →
Delirium^.Tremens ©   (2003-01-31 10:09) [10]

Если не попробуешь вне Delphi запустить, я бы тебе зарплату тоже не дал.

---

← →
Anatoly Podgoretsky ©   (2003-01-31 10:19) [11]

Этого недостаточно!
Если не попробуешь запустить на машине где Delphi никогда не стояла, я бы тебе зарплату тоже не дал.

---

← →
Внук ©   (2003-01-31 10:21) [12]

Ладно... Теперь совет. Но здесь я не уверен. Когда речь заходит об OLE, все сложнее, поскольку соглашение SafeCall обязывает сервер OLE обрабатывать исключения самостоятельно (точнее, исключения в таких методах должны быть безопасны для клиента). Однако, умные люди советуют посмотреть метод SafeCallException и интерфейс IServerExceptionHandler в модуле ComObj.pas.

---

← →
Delirium^.Tremens ©   (2003-01-31 10:21) [13]

Anatoly Podgoretsky © (31.01.03 10:19)
Естественно, но в этом случае - и зарплату никогда :-)

---

← →
SergeN   (2003-01-31 10:22) [14]

Всё, запустил. Пошла. Спасибо... Прошу прощения за неопытность...

---

← →
Внук ©   (2003-01-31 10:24) [15]

Ну вот, так всегда :))))

---

← →
Delirium^.Tremens ©   (2003-01-31 10:24) [16]

SergeN (31.01.03 10:22)
Это не неопытность, а неумение читать. На зарплату мог претендовать уже после Delirium^.Tremens © (31.01.03 09:39). За 40 минут уже пиво успело бы остыть.

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.011 c