Вызов API функции после CoInitializate?

← →
Erik1 © (2005-08-31 17:32) [0]

Надо вызвать CoInitializeSecurity после CoInitializate, но до первого нитерфейсного метода. Дело происходит в Service в котором будет реализован COM сервер. Delphi 5.

← →
Erik1 © (2005-09-02 14:38) [1]

Удалено модератором

← →
wal © (2005-09-02 15:06) [2]

А в чом проблема то?

← →
Erik1 © (2005-09-05 10:48) [3]

Проблема, что сделать это надо на сервере в моделе Free. А создаю потоки не я а TComponentFactory! Вот и спашиваю как мне сделать вызов после создания потока и вызова CoInitializate. На клиенте разумеется проблем нет.

> А создаю потоки не я а TComponentFactory!

function TComponentFactory.CreateInstance begin if not IsLibrary and (ThreadingModel = tmApartment) then begin ... with TApartmentThread.Create(Self, UnkOuter, IID) do ... end else Result := inherited CreateInstance(UnkOuter, IID, Obj); Так что никаких потоков в модели Free он не создает. Потоки ты волен сам создавать, и делать в них то, что нужно.

Разуммется он создает фабрику класов. А в случие подключения клиента создается отдельная инстанция, разумеется я незнаю в кактом потоке она будет выполнятся. А же немогу создать своих наследников от TApartmentThread и пр... Если бы это было возможно то я просто бы перекрыл у них execute и вставил свой вызов.
Тоесть я прочитал, что для вызова CoInitializeSecurity необходимо соблютать указаное выше условие, вот я хочу выяснить где я должен поставить этот вызов?
Как я понимаю секция initialization неподходит! Кто нибудь может дать мне четкий ответ?

Вызов API функции после CoInitializate? Найти похожие ветки