Опрос свех инстанций com сервера.

← →
Erik © (2003-06-05 10:43) [0]

Как это правильно сделать? Я просто создаю гловальнуй переменую типа List: TThreadSafeList. А в RemoteDataModuleCreate
FMarshaler := TInterThreadMarshaler.Create(IDispatch);
List.Add(Sender);
fUserID := List.Count;
FMarshaler - это TInterThreadMarshaler работает коректно, делает маршалинг интерфейсу для доступа из другово треда. В него записывается CallBack интерфейс для вызова клиента сервером.
Далее создается thread с WaitableTimer и в execute при событии от таймера запускает TestEvent.
procedure TRealAlarm.TestEvent;
Var Count, i: Integer;
Server: TProtocol;
begin
Count := List.Count-1;
List.BeginRead;
Try
for I := 0 to Count do begin
Server := List[i];
try
Server.TestActive(False);
except
Server.ComObject._Release;
end;
end;
NewEvent(stSendEvent);
finally
uProtocol.List.EndRead;
end;
NewEvent(stDone);
BeginRead использует TMultiReadExclusiveWriteSynchronizer и вызывает тотже метод. При любом обращении к List происходит BeginRead.
Ошибка заключается что при очередном вызове метода BeginRead или EndRead вылетает exception "member not found".

Может у меня неправильна идея в корне?

← →
Erik © (2003-06-05 13:26) [1]

Member not found теперь возникает всегда!!!!!!!!!!!!!!!!
Незнаю в чем дело. При попытке соеденится с сервером ......

Опрос свех инстанций com сервера. Найти похожие ветки