COM объект, возвращаемые значения методов, проблема

[AHTOXA]

Привет всем.
Проблема такая:
есть некоторый COM объект написанный на C++, есть библиотека типов для данного объекта:
[
object,
uuid(A4C780FE-9EB9-4d2c-B632-407454A340BF),
oleautomation,
helpstring("IPpyView interface")
]
interface IPpyView : IUnknown {
HRESULT _stdcall Init([in] BSTR pFilt);
HRESULT _stdcall InitIteration();
HRESULT _stdcall NextIteration([out] BSTR pItem);
};

Как видно из примера, методы возвращают HRESULT.
Как получить это значение в бейсике??? Если я указываю:

if ppy_view.InitIteration() = S_OK then
end if

Компилятор ругается на этот вызов.

[GSerg]

HRESULT VB сам преобразовывает в исключения.
On error goto

[AHTOXA]

А если мой метод возвращает либо S_OK, либо S_FALSE, то как быть???

[AHTOXA]

Передавать указатель на возвращаемое значение?

[tyomitch]

Неотрицательные HRESULT, вроде бы, никак не различить. Они все сводятся к состоянию "нет ошибки"

[GSerg]

Да, примерно так.

Но нафига так делать?

[tyomitch]

А если мой метод возвращает либо S_OK, либо S_FALSE, то как быть???

Писать обёртку, иначе никак

Если от библиотеки есть исходники - тогда да, объявить параметр [out,retval] и результат класть туда.

[AHTOXA]

Библиотеку писал я сам, так что придется ее ковырять
Ладно, тем не менее, спасибо за скорый ответ

[codemaster]

Как получить это значение в бейсике??? Если я указываю:

if ppy_view.InitIteration() = S_OK then
end if

Компилятор ругается на этот вызов.

забавная библиотека
попробуй так

Код: Выделить всё

     On Error Resume Next
        ppy_view.InitIteration()
           If Err = 0 then
            .....             
           end if



[AHTOXA]

А она типа тестовая и я из нее только маленький кусочек привел
Типа есть программа (огромная). И надо, через COM обеспечить доступ к инструментам верхнего уровня. Чтобы можно было с помощью VB делать надстройки разные.
А вообще это уродство, преобразовывать автоматом возвращаемое значение .
Ладно, это все оффтоп, тему можно считать закрытой.

[codemaster]

А она типа тестовая и я из нее только маленький кусочек привел
Типа есть программа (огромная). И надо, через COM обеспечить доступ к инструментам верхнего уровня. Чтобы можно было с помощью VB делать надстройки разные.
А вообще это уродство, преобразовывать автоматом возвращаемое значение .
Ладно, это все оффтоп, тему можно считать закрытой.

Библиотеку эту писал чел ничего не понимающий в COM
посоветуй ему почитать книжку по COM особенно раздел
где описывается что есть HRESULT в COM


можеш написать примерно так и будет тебе щастье !

Код: Выделить всё


HRESULT InitIteration([out, retval] VARIANT_BOOL* );

'далее  в VB
if ppy_view.InitIteration()  then

end if


[AHTOXA]

Спасиб. В COM я правдо плохо шарю, пару дней назад за это дело взялся