[Nautilus]

Доброго времени суток! Люди добрые, кто сколько сможет- подскажите пожалуйста- при компиляции выдаёт ошибку:
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}- его не получается добавить.
Как это можно обойти? Спасибо заранее...

[angvelem]

Подключи ComObj.

[Nautilus]

Подключён...
"uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,UniOpcWriteReq_TLB, StdCtrls,OleServer,StdVCL,ComObj,ActiveX;"

[angvelem]

Код:

implementation

{$R *.dfm}

uses
  ActiveX, ComObj;

procedure OleError(ErrorCode: HResult);
begin
  raise EOleSysError.Create('', ErrorCode, 0);
end;

Всё нормально компилится.

[Nautilus]

Я извиняюсь- неправильно выразился - компилируется тоже нормуль, а исполняться не хочет. Данная процедура находится в 3-м "дочернем модуле" (все подключены), а вот исполняться не хочет.
Небезразличный angvelem, может глянешь у себя- вот код опроса контроллера через OPC... Уж простите за наглость...

[YVitaliy]

Хм. Может я и не сильно осведомлен, но комманда "raise" как раз и призвана вызывать ошибку? Или я что-то не понял?

[NumLock]

процедура OleError(ErrorCode: HResult) уже есть в модуле ComObj:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  ComObj;

begin
  OleError(0);
end.

[Nautilus]

Правильно- есть, и у меня она ругается на ... (выделено жирным)
procedure OleError(ErrorCode: HResult);
begin
raise EOleSysError.Create('', ErrorCode, 0);
end;

[YVitaliy]

Да не ругается оно! Напиши например

Код:

EOleSysError.Create('Класс зарегистрирован', ErrorCode, 0);

- и будет у тебя "класс зарегистрирован"!. Эта строка должна быть в условном операторе для обработки исключения, а у тебя она вызывается просто так.

[Nautilus]

YVitaliy, а можешь мой код глянуть- ну не выходит у меня аленький цветочек... пожалуйста...

[angvelem]

Я вот ещё вчера глянул на содержимое архива, увидел сколько нужно просматривать в поисках причины, и желание пропало. Минимизируй код, оставь только необходимое для выяснения причины. Некий тестовый код.

P.S. Какого Х..., в архиве делают файлы: ActiveX.pas, ComObj.pas, OleServer.pas, StdVcl.pas? Им там не место, им вообще делать нечего в каталоге проекта.

[Nautilus]

ок, понял- извиняюсь- закрываю тему...
Всем спасибо...