Галактика в вопросах и ответах

Dim GalApp As Variant, Iface As Variant
Set GalApp = CreateObject("GalNet.App")
IFace = GalApp.LoadVip("MyVip")
if (IFace Is Nothing) then
MsgBox "Функции API не реализованы"
Exit Sub
end if

у меня тоже была подобная проблема, после некоторого времени экспириметнов все заработало
как я понял моя проблема была в синтаксисе, т.е. нужно обязательно указывать имя компонента и все параметры

вот пример кода который у меня сто проценто работает

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

Dim GalApp As Object, Str As Object
GalApp = CreateObject("AtlExec.App")
Str = GalApp.ExecVip("L_remont::ObjRem", 0, 2)

далее сделал фейс с набором методов, сделал к нему объектник, ниже код который у меня коректно отрабатывает и показывает месагу с именем карточки

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

Dim iGetOsInfo As Object
iGetOsInfo = GalApp.LoadVip("f_osoper::GetOsInfo")
If (iGetOsInfo Is Nothing) Then
    MsgBox("Функции API не реализованы")
    Exit Sub
Else
    iGetOsInfo.InitData(1)
    iGetOsInfo.MessageOsName()
    iGetOsInfo = Nothing
End If

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

в доке Iface As Variant а нужно Object

Галактика в вопросах и ответах

компиляция DLL из IDL