Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.06;
Скачать: CL | DM;

Вниз

Не могу выполнить CreateOleObject в процедуре (class(TService))   Найти похожие ветки 

 
SRGWizard   (2002-05-24 11:34) [0]

Доброе время суток!
Я столкнулся с проблемкой, и не знаю как это обойти.
Суть проблемы в том, что есть сервис (class(TService)). Работает нормально.
Но при получении некоторого события, нужно поднять ActiveX
и запустить его функцию или процедуру.
Сбой при вызове CreateOleObject...


 
AFROLOV ©   (2002-05-24 12:03) [1]

Код в студию!


 
SRGWizard   (2002-05-24 12:32) [2]

{ TSrvBooks = class(TService)
ServerSocket1 : TServerSocket;
.........
end;
var
SrvBooks : TSrvBooks;

{....} - запись в лог
}

procedure TSrvBooks.ServerSocket1ClientRead(Sender : TObject; Socket : TCustomWinSocket);
begin
try
with Socket do
SendText(QueryDataBase(ReceiveText, RemoteAddress, RemoteHost));
except on E : Exception do begin {....} Abort; end; end;
end;

function TSrvBooks.QueryDataBase(ItemText, ItemIP, ItemHost : string) : string;
var
Answer, Error : string;
Obj : Variant;
begin
try
Obj := CreateOleObject("SRGWizard.SrvBooks");
try
Answer := Obj.QueryString(ItemText, ItemIP, ItemHost, 0);
if Obj.Error <> "" then Answer := "Error";
Result := Answer;
except Result := "Error"; {....} Abort; end;
except Result := "Error"; {....} end;
end;


 
Кулюкин Олег ©   (2002-05-24 12:45) [3]

А доступ к базе не через АДО?
Может CoInitialize/CoUninitialize сделать?


 
Shaman_Naydak ©   (2002-05-24 13:19) [4]

Надо, надо..
на старт/стоп


 
SRGWizard   (2002-05-24 13:29) [5]

Спасибо большое всем!
Работает!
Забыл я про CoInitialize/CoUninitialize.



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
1-17908
Andrey PR
2002-05-27 13:42
2002.06.06
Изменение ширины символа


14-18126
Dimaiv
2002-05-01 15:58
2002.06.06
Для курсовой нужна хвалебная речь о Delphi cтраницы на 2-3


4-18199
fidget
2002-04-05 15:09
2002.06.06
Программма закрывается, но shutdown прекращается :(


1-18043
Sniffer
2002-05-24 22:00
2002.06.06
Цвет пикселя в Image


14-18115
AndreyS
2002-04-29 18:40
2002.06.06
Общий вопрос