Re: Уничтожение SharedProperty в COM+?
От: Admiral Украина  
Дата: 22.05.03 10:29
Оценка: 1 (1)
> Есть проблема — как уничтожить свойство SharedProperty?
> Может быть кто-нибудь знает, как можно свойство уничтожить?

Штатных средств вроде нету.

зы. Насчет нештатных — не знаю.
Posted via RSDN NNTP Server 1.5
Уничтожение SharedProperty в COM+?
От: rusgrek  
Дата: 22.05.03 10:06
Оценка:
Есть проблема — как уничтожить свойство SharedProperty?
Создается легко и "живет", пока не завершен серверный процесс, в котором оно (свойство) создано.

Создаю на Дельфи для каждого соединения с БД свойство SharedProperty.
Вот кусок COM-сервера, который это делает
var
  SPG: ISharedPropertyGroup;
  SProp: ISharedProperty;
  Exists: WordBool;
  ConnData: OleVariant;
begin
  // Create or retrieve TraceConnect ID shared property
  SProp := SPG.CreateProperty('NextTCID', Exists);
  if Exists then ConnID := SProp.Value
  else ConnID := 0;
  // Increment and store next ID shared property
  SProp.Value := ConnID + 1;
 // Create data array
 ConnData := VarArrayCreate([0, 5], varVariant);
 ConnData[0] := ConnID; {номер соединения}
  ...
 ConnData[5] := Time; {начало соединения}
 SProp := SPG.CreateProperty(Format('CurN', [ConnID]), Exists);
  SProp.Value := ConnData;
  SetComplete;


Cделав программу мониторинга этих соединений, заметил, что даже после того как объект завершил работу,
в списке SharedProperty остается свойство, созданной этим объектом.
Может быть кто-нибудь знает, как можно свойство уничтожить?
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.