| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сервис не создает COM объект [Delphi, Windows]

AlexA ©   (2004-10-04 13:30:00) 

В новом приложении создаю  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;

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

---

Суслик   (2004-10-05 14:26:00) [1]

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

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

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

---

Erik1   (2004-10-05 10:19:00) [2]

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

---

Cobalt   (2004-10-04 17:16:00) [3]

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

---

Наверх