| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Delphi & COM: How to Do Singleton Com-server? [Delphi]
Timego © (2004-03-30 18:46:00)Подскажите, пожалуйста, как создать out-process COM-сервер (exe) и COM-клиента для него (на одной машине), чтобы COM-клиенты обращались к единственному экземпляру сервера?
Создаю COM-сервер:
TTypedComObjectFactory.Create(ComServer, TasRemoteApp, Class_asRemoteApp,
ciMultiInstance, tmApartment);
как написано в справке (EXE object applications should call RegisterClassObject on startup)вызываю RegisterClassObject
procedure TasRemoteApp.Initialize;
begin
inherited Initialize;
FStartTime := Now();
Self.Factory.RegisterClassObject;
end;
На клиенте создаю экземпляр сервера, вызываю его метод, который отображает запомненное время:
var
ARemoteApp: IasRemoteApp;
begin
ARemoteApp := CoasRemoteApp.Create;
ARemoteApp.ShowStartTime;
получаю каждый раз новое значение времени. Стало быть мой клиент каждый раз создает новый экземпляр сервера, а не коннектится к старому?
Помогите, пожалуйста, как сделать правильно?
art-east (2004-04-03 16:00:00) [1]на клиенте:
if GetActiveObject(Class_asRemoteApp, nil, pUnknown) = S_OK then ARemoteApp:= pUnknown as IasRemoteApp
else ARemoteApp := CoasRemoteApp.Create;
ARemoteApp.ShowStartTime;
Asdor (2004-03-31 09:40:00) [2]Если я правильно понял задачу, то тебе следует переписать фабрику классов так, чтобы она создавала COM-объект только один раз, а потом только передавала ссылки на этот объект.
| |
