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

Почему не ловится Exeption   Найти похожие ветки 

← →
AFROLOV ©   (2002-04-29 12:23) [0]

Привет всем!
Пишу следующий код:

Procedure Form1.proc1;
..
MSWord := CreateOleObject("Word.Application");
...
end;

Procedure Form2.proc2;
begin

try//Если MSWord не создан, то понятное дело должна произойти ошибка но почему-то она не подавляется try
MSWord.Visible:=False;
MSWord.Quit(wdDoNotSaveChanges);

except
..
end;
end;

Заранее спасибо.

---

← →
gek ©   (2002-04-29 12:31) [1]

А в промежутке
except
..
end;
что-нибудь стоит?

---

← →
Vovchik ©   (2002-04-29 12:32) [2]

А что вообще происходит-то? С OLE-exception"ами есть какая-то хитрость.

---

← →
AFROLOV ©   (2002-04-29 12:40) [3]

> А в промежутке
> except
> ..
> end;
> что-нибудь стоит?

Да стоит, но это не важно. Не может же оптимизатор блоки Try удалять.
> А что вообще происходит-то?

Сообщение выдается абсолютно логичное - "Variant does not reference an automation object"


> С OLE-exception"ами есть какая-то хитрость.

А какая?

---

← →
gek ©   (2002-04-29 12:49) [4]

Вот сей проверил у себя на D6

procedure TForm1.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin

try//Если MSWord не создан, то понятное дело должна произойти ошибка но почему-то она не подавляется try
MSWord.Visible:=False;

except
showmessage("ddddddddd");
end;
end;

Вижу именно то, что хочу. В данном случае
showmessage("ddddddddd");

---

← →
AFROLOV ©   (2002-04-29 13:07) [5]

У меня тоже D6 но проблема почему-то такая есть.

---

← →
Vovchik ©   (2002-04-29 13:13) [6]

А какая хитрость с OLE-exception"ами я не помню, по моему недавно был такой вопрос на форуме.

---

← →
Anatoly Podgoretsky ©   (2002-04-29 13:26) [7]

Обертывать надо в OleCheck

---

← →
AFROLOV ©   (2002-04-29 13:45) [8]

Что-то не получается. А примерчика не найдется?

---

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

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



Память: 0.46 MB
Время: 0.008 c