Проблемы с инициализацией com компонента

[Anekdot]

Захотелось мне использовать com компонент, и написал я:

 SetLastError(0);
       hr := CoInitialize(nil);  //инициализация com
       if (hr <> S_OK) then  //если инициализация не успешна
       OleError(hr) // показываем проблему c ole
       else
       begin
       RusLemmatMain.LoadDictionariesRegistry();   //метод компонента

и далее идет остальной код.

Есественно hr оказалась совсем не s_ok, а оказалась 1. Это насколько я знаю означает что инициализация уже выполнена.

Ну ладно. Однако, если я не использую функцию CoInitialize(nil) (если компонент уже инициализирован она не нужна, думаю) то при использовании метода из этого компонента (RusLemmatMain.LoadDictionariesRegi stry) появляется исключение про EAccess violation с проблемами чтения из памяти по такому то адресу что какбе намекает...

Если же я проверяю что возвращает CoInitialize с помощью OleError(hr) то OleError орет про исключение project <project_name> raised exeption class OleSysError with message "Неверная функция".

Ежели мы посмотрим на ситуацию через RaiseLastWin32Error, то появляется сообщение что project <project_name> raised exeption class OleSysError with message "A call to an OS function failed".

Как же заставить компонент работать?

[Stilet]

Подожди а код этот ты в СОМ выполняешь или где?
Зачем тебе вызывать CoInitialize?

[Anekdot]

Нет это код программы. Я не оч разбираюсь в com компонентах и все делал как показал другой человек, он показал что надо написать coinitialize

[Stilet]

СОМ зарегистрирован в реестре?
Я обычно для работы с ними использую CreateComObject function для загрузки и получения на него указателя.
И GetActiveOleObject function для получения указателя на уже загруженный СОМ сервер.
И далее работаю как с обычным классом. <указатель>.<Метод>

[Anekdot]

Зарегистрирован конечно. Попробую изучить две эти функции.

Объект вроде не поддерживает IDispatch, поэтому CreateOleObject не подходит. Для использования CreateComObject нужно знать CLSID. Я его не знаю. Как его узнать? Я знаю название кокласса.

Все разрешилось. При подключении модуля comobj и модуля компонента при инициализации программы автоматически инициализируется com компонент, поэтому HRESULT и говорил что инициализация уже была выполнена. CoInicialize и иже с ними прописывать не нужно, просто создать объекты с нужным интерфейсом и пользоваться.