Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.18;
Скачать: 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 вся ветка

Текущий архив: 2005.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
1-1119624233
v.topalov
2005-06-24 18:43
2005.07.18
Простой вопрос по OpenPictureDialog1


1-1119785382
Sower
2005-06-26 15:29
2005.07.18
Чтение из конца в начало.


4-1116857153
race1
2005-05-23 18:05
2005.07.18
замена системной функции


3-1117865625
SIDO_Delfi
2005-06-04 10:13
2005.07.18
Oracle


14-1119504097
koderman
2005-06-23 09:21
2005.07.18
Изучая Delphi