1С:MES Оперативное управление производством

    Dim SHandles(2) As Long 'parameter value
    Dim Values() As Variant 'return value
    Dim Errors() As Long    'return value
    Dim Qual As Variant     'return value
    Dim TS As Variant       'return value
    Dim i As Integer
    
    'save ServerHandles
    SHandles(1) = MyOPCItems(1).ServerHandle
    SHandles(2) = MyOPCItems(2).ServerHandle
        
    Call MyOPCGroup.SyncRead(OPCCache, 2, SHandles, Values, Errors, Qual, TS)

    Dim SHandles(2) As Long 'parameter value
    Dim Values() As Variant 'return value
    Dim Errors() As Long    'return value
    Dim Qual As Variant     'return value
    Dim TS As Variant       'return value
    Dim i As Integer
    
    'save ServerHandles
    SHandles(1) = MyOPCItems(1).ServerHandle
    SHandles(2) = MyOPCItems(2).ServerHandle
        
    Call MyOPCGroup.SyncRead(OPCCache, 2, SHandles, Values, Errors, Qual, TS)

ReadOPCGroupItemValue(GroupIf, Item0Handle, ItemValue, ItemQuality)

// wrapper for IOPCSyncIO.Read (single item only)
function ReadOPCGroupItemValue(GroupIf: IUnknown; ItemServerHandle: OPCHANDLE;
     var ItemValue: string; var ItemQuality: Word): HResult;

ItemValues: POPCITEMSTATEARRAY;

POPCITEMSTATEARRAY = ^OPCITEMSTATEARRAY;

OPCITEMSTATEARRAY = array[0..65535] of OPCITEMSTATE;

OPCITEMSTATE = record
hClient: OPCHANDLE;
ftTimeStamp: TFileTime;
wQuality: Word;
wReserved: Word;
vDataValue: OleVariant;
end;

OPCHANDLE     = DWORD;

DWORD = LongWord;

TFileTime = _FILETIME;
_FILETIME = record
dwLowDateTime: DWORD;
dwHighDateTime: DWORD;
end;

 Values = Новый ComSafeArray("VT_I4", 2);    
 Errors = Новый ComSafeArray("VT_I4", 2);