|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
class EOleSysError "Класс не зарегистрирован"
Доброго времени суток! Люди добрые, кто сколько сможет- подскажите пожалуйста- при компиляции выдаёт ошибку:
Project raised exception class EOleSysError "Класс не зарегистрирован" и выбрасывает на процедуру в подключаемом модуле Код:
procedure OleError(ErrorCode: HResult); begin raise EOleSysError.Create('', ErrorCode, 0); end; В вызываемом модуле (импортировал библиотеку) используются следующие модули: uses Variants, Windows, ActiveX, SysUtils {$IFDEF LINUX}, WinUtils {$ENDIF}; Все модули подключены и прописаны в главном модуле, все, кроме последнего WinUtils {$ENDIF}- его не получается добавить. Как это можно обойти? Спасибо заранее... Последний раз редактировалось lmikle, 20.03.2012 в 01:51. |
#2
|
||||
|
||||
Подключи ComObj.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Nautilus (21.03.2012)
|
#3
|
|||
|
|||
Подключён...
"uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,UniOpcWriteReq_TLB, StdCtrls,OleServer,StdVCL,ComObj,ActiveX;" |
#4
|
||||
|
||||
Код:
implementation {$R *.dfm} uses ActiveX, ComObj; procedure OleError(ErrorCode: HResult); begin raise EOleSysError.Create('', ErrorCode, 0); end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Nautilus (21.03.2012)
|
#5
|
|||
|
|||
Я извиняюсь- неправильно выразился - компилируется тоже нормуль, а исполняться не хочет. Данная процедура находится в 3-м "дочернем модуле" (все подключены), а вот исполняться не хочет.
Небезразличный angvelem, может глянешь у себя- вот код опроса контроллера через OPC... Уж простите за наглость... Последний раз редактировалось Nautilus, 20.03.2012 в 01:15. |
#6
|
||||
|
||||
Хм. Может я и не сильно осведомлен, но комманда "raise" как раз и призвана вызывать ошибку? Или я что-то не понял?
|
Этот пользователь сказал Спасибо YVitaliy за это полезное сообщение: | ||
Nautilus (21.03.2012)
|
#7
|
||||
|
||||
процедура OleError(ErrorCode: HResult) уже есть в модуле ComObj:
Код:
program Project1; {$APPTYPE CONSOLE} uses ComObj; begin OleError(0); end. Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Nautilus (21.03.2012)
|
#8
|
|||
|
|||
Правильно- есть, и у меня она ругается на ... (выделено жирным)
procedure OleError(ErrorCode: HResult); begin raise EOleSysError.Create('', ErrorCode, 0); end; |
#9
|
||||
|
||||
Да не ругается оно! Напиши например
Код:
EOleSysError.Create('Класс зарегистрирован', ErrorCode, 0); |
Этот пользователь сказал Спасибо YVitaliy за это полезное сообщение: | ||
Nautilus (21.03.2012)
|
#10
|
|||
|
|||
YVitaliy, а можешь мой код глянуть- ну не выходит у меня аленький цветочек... пожалуйста...
|
#11
|
||||
|
||||
Я вот ещё вчера глянул на содержимое архива, увидел сколько нужно просматривать в поисках причины, и желание пропало. Минимизируй код, оставь только необходимое для выяснения причины. Некий тестовый код.
P.S. Какого Х..., в архиве делают файлы: ActiveX.pas, ComObj.pas, OleServer.pas, StdVcl.pas? Им там не место, им вообще делать нечего в каталоге проекта. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Nautilus (21.03.2012)
|
#12
|
|||
|
|||
ок, понял- извиняюсь- закрываю тему...
Всем спасибо... |