Имеется ф-я:
HRESULT connect( BSTR serverAddress
, BSTR userName
, BSTR password
)
Описание типа HRESULT

Вызов функции:

integer result
any qq
OLEObject myoleobject

myoleobject = CREATE OLEObject
result = myoleobject.ConnectToNewObject( "DFAPILib.Database")
if result<> 0 then
MessageBox("Error", result)
end if
qq=myoleobject.connect("MSFO:17170","sysadmin","")

if isNULL(ClassName(qq) ) then
MessageBox("Error", 'NULL')
end if

Проблема в том, что переменная qq принимает значение NULL, а судя по описанию должно сопоставить возвращаемому значению тип long.
Можно было бы предположить, что происходит ошибка при вызове функции qq=myoleobject.connect("MSFO:17170","sysadmin",""), но открывается диалоговое окно подключения к базе -> обращение к функции было.

В случае указания для переменной qq типа ulong(long)получаю сообщение:
Error: Cannot convert oleobject in Any variable to unsignedlong(long)

Dmitry.а кто это "DFAPILib" ?
гугл вообще такого не находит.
где описание того что эта ф-ция возвращает?
Описание в самом начале первого поста.
Более полное:

Подключиться к серверу базы данных.


HRESULT connect( BSTR serverAddress
, BSTR userName
, BSTR password
)
Параметры

serverAddress [in]

задаёт адрес сервера, к которому производится подключение
userName [in]

задаёт имя зарегистрированного на сервере пользователя
password [in]

задаёт пароль зарегистрированного на сервере пользователя

Возвращает


S_OK в случае успеха

E_DF_CONNECTING если не удалось подключиться к серверу

E_DF_CONNECTED если уже было произведено подключение к серверу

E_DF_INVALID_FORM_STG если не удалось открыть хранилище форм



Примечание

Открывает сеанс работы пользователя с сервером базы данных.





Здесь , описание кодов которые могут содержаться в типе HRESULT.

Задача: Получить значение в PB возвращаемое функцией connect.

ЗоринАндрей что за oleobject возвращает myoleobject.connect пока не понятно.
Что это за ole вообще? примеры на каком-нибудь языке к нему есть?

Если не ошибаюсь на VC++.
Приложил.

Пока не совсем понятно.
Допустим мне нужно уведомить пользователя, что уже было произведено подключение к серверу(для конкретного пользователя, в текущий момент времени, возможно только одно подключение) .
Функция connect должна вернуть код E_DF_CONNECTED. Предлагаемый механизм, насколько я понимаю, может только отловить ошибку и обработать. В данном случае ошибки не происходит.
Должно использоваться событие externalexception?