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

Сервис не создает 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]

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

---

← →
Суслик ©   (2004-10-05 14:26) [3]

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

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

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

---

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

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



Память: 0.45 MB
Время: 0.024 c