Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.011 c
1-28732
Paladin
2003-01-30 18:32
2003.02.10
Автоматическое создание класса.


1-28768
Zirus
2003-02-01 13:31
2003.02.10
image1 и image2


14-28994
Checist [root]
2003-01-26 00:43
2003.02.10
Хелпы к дельфам


1-28750
Fvv
2003-01-31 10:25
2003.02.10
DragAndDrop из внешних програм


1-28820
asasd
2003-02-02 14:15
2003.02.10
ActiveX





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский