Сервис не создает COM объект

← →
AlexA (2004-10-04 13:30) [0]

В новом приложении создаю Remote Data Module. По образцу добавлюя в интерфейс функцию, возращающию имя главного окна приложения. По тому же образцу создаю клиента, клиент по таймеру создает объект, вызывает функцию.. Как бы работает..
Но мне необходимо чтобы, процедуры дергал сервис. Создаю сервис, копирую тот же код.Получаю следующее:

procedure TServiceApp.Timer1Timer(Sender: TObject); var MarketRemSer: IMarketServerApp; begin try ShowMessage("Старт!!!"); try MarketRemSer := Cotlb_test.Create; except ShowMessage("Ошибка при создании!!!"); end; try ShowMessage(MarketRemSer.Caption); except ShowMessage("Ошибка!!!"); end; finally MarketRemSer:=nil; end; // try end;

При создании возникает ошибка.. в чем трабл?
Спасибо.

← →
Cobalt © (2004-10-04 17:16) [1]

В тексте ошибки?
Ты бы хоть текст ошибки выводил бы, что ли, вместо "Abstract Error".

← →
Erik1 © (2004-10-05 10:19) [2]

Слишком мало информации и непонятно написано. Что за сервис и для чего его дергать, каким образом его дергаем? Причем тут новое приложение?

Сразу скажу, что я никогда не писал ни сервисов, а тем более com в сервисах.

Но опыт работы с com говорит мне о том, что все частовстречаемые ошибки при создании связаны с тем, что не вызван coinitialize(nil). Для обычного приложения delphi сама делает такой вызов. Для доп потоков программист должен делать явно в exceute.

Может быть в сервисах тоже нужно делать вызов coinitialize?

Сервис не создает COM объект Найти похожие ветки