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

Вниз

AppServer shut down: Проблема при подключенных клиентах ...   Найти похожие ветки 

 
Tonie ©   (2002-04-25 12:34) [0]

Доброго времени суток

Необходимо принудительно выключить сервер в ситуации когда есть активные RemoteDataModules, функция CoDisconnectObject работает в случае когда сервер с одной нитью, если же каждый модуль имеет собственную созданную с помощью TThreadedClassFactory то RemoteDataModule не разрушается и при выключении получаем сообщение о том что существуют подключенные клиенты.

Буду рад любым идеям и комментариям :-)


for i := 0 to pred(Screen.DataModuleCount) do
begin
if Screen.DataModules[i] is TrdmBase then
begin
p := (Screen.DataModules[i] as TrdmBase).MarshalRdmInterface;
OleCheck(CoGetInterfaceAndReleaseStream(IStream(p),
IRdmBase,
Rdm));

CoDisconnectObject(Rdm, 0);
end;
end;

TrdmBase = class(TRemoteDataModule, IrdmBase)
private
FClnCallbackStream :pointer;
function GetRdmInterfaceStream :pointer;
...
public
...
property MarshalRdmInterface :pointer read GetRdmInterfaceStream;
...
end;

function TrdmBase.GetRdmInterfaceStream: pointer;
begin
Result := nil;
OleCheck(CoMarshalInterThreadInterfaceInstream(IrdmBase,
ComObject,

IStream(FRdmInterfaceStream)
));
Result := FRdmInterfaceStream;
end;



 
Romkin ©   (2002-04-25 12:55) [1]

Тебе просто не нужно выдавать это сообщение?
Установи ComServer.UIInteractive := false;


 
Tonie ©   (2002-04-26 18:14) [2]

На самом деле, при зрелом размышлении, действительно только это и нужно.

Большое спасибо :-)



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
1-26047
Serd_hhc
2002-04-23 18:07
2002.05.09
Уделите пару сек....


1-26154
Locked
2002-04-25 07:13
2002.05.09
Помогите!!! Как в реестр записать файл, а потом его считать?


3-25984
AlanB
2002-04-15 13:58
2002.05.09
Проблема с запросом Update Nash_Doc set data IS NULL where data =


3-26000
DRIVER
2002-04-04 17:25
2002.05.09
Где вы мастера!!!!!!!???????


14-26271
Morfey
2002-03-30 02:24
2002.05.09
Вопрос значит такой...