Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: 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 вся ветка

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

Наверх




Память: 0.5 MB
Время: 0.013 c
3-28671
qwerty2
2003-01-24 11:33
2003.02.10
Символ скобки в предложении LIKE


1-28700
kofman
2003-01-31 12:21
2003.02.10
Чем отличается Halt от Application.Terminate ?


14-29087
VinRaider
2003-01-24 10:49
2003.02.10
Обладателям Delphi6-7


8-28950
dima1
2002-10-02 02:19
2003.02.10
Кодек для AVI


14-29088
Yuraz
2003-01-25 16:26
2003.02.10
HELP! при смене винта с w2k на др. тачку загрузка виснет!