Доступ к OleVariant, содержащий VT_ARRAY из VT_RECORD из Delphi

Question

Использование Delphi, мне нужно получить доступ к OleVariant, содержащему одну или несколько записей в массиве.

Метод I вызов возвращает VT_ARRAY из VT_RECORD, а сами записи определяются как:

struct StreamTimeInfo { 
    unsigned int PID; 
    LONGLONG PTS; 
    LONGLONG TimeStamp; 
}; 

Мой код выглядит так:

procedure Test; 
type 
    TStreamInfo = record 
    PID: Cardinal; 
    PTS: Int64; 
    TimeStamp: Int64; 
    end; 
var 
    Value: OleVariant 
    StreamTime: TStreamInfo; 
begin 
    GetValue(Value); // Value holds a VT_ARRAY of VT_RECORD 

    // How should I access the array of records in Delphi? 
    // I've tried this to get to the first element: 
    StreamTime := TStreamInfo(TVarData(Value).VPointer^); 
end; 

Я не понимаю, как получить доступ к записи из Delphi.

Любой ввод очень ценится.

Answer 1

Я никогда не делал этого раньше, но я думаю, что это должно сработать.

type 
    TStreamInfoArray = array [0..MaxArrayCount-1] of TStreamInfo; 
    PStreamInfoArray = ^TStreamInfoArray; 
var 
    Value: Variant; 
    p: PStreamInfoArray; 
    StreamInfo: TStreamInfo; 
begin 
    GetValue(Value); 
    p := PStreamInfoArray(VarArrayLock(Value)); 
    try 
    StreamInfo := p^[Index]; 
    finally 
    VarArrayUnlock(Value); 
    end; 
end; 

Answer 2

Для дальнейшего использования и для других, вот окончательный рабочий код:

// Original C-Source definition of StreamTimeInfo 
// import "oaidl.idl"; 
// import "ocidl.idl"; 
// [uuid(A5AA2ACD-BEA0-4570-9232-D8301A6DAE0F)] 
// struct StreamTimeInfo { 
// unsigned int PID;  
// LONGLONG  PTS;  
// LONGLONG  TimeStamp; 
// }; 
// cpp_quote("typedef struct StreamTimeInfo StreamTimeInfo;") 

procedure GetStreamTimes; 
type 
    TStreamTimeInfo = record 
    PID: Cardinal; 
    PTS: Int64; 
    TimeStamp: Int64; 
    end; 
    TStreamTimeInfoArray = array[0..31] of TStreamTimeInfo; 
    PStreamTimeInfoArray = ^TStreamTimeInfoArray; 
var 
    Value: OleVariant; 
    SizeOfArray: Integer; 
    PtrToArray: PStreamTimeInfoArray; 
begin 
    GetValue(EMPGPDMX_STREAMTIMES, Value); 
    if VarArrayDimCount(Value) = 1 then 
    begin 
    SizeOfArray := 1 + VarArrayHighBound(Value, 1) - VarArrayLowBound(Value, 1); 
    PtrToArray := PStreamTimeInfoArray(VarArrayLock(Value)); 
    try 
    for I := 0 to SizeOfArray - 1 do 
    begin 
     StreamTimeInfo := PtrToArray^[I]; 
     // Usage Sample: 
     // FStatus.StreamTimePID[I] := StreamTimeInfo.PID; 
     // FStatus.StreamTimePTS[I] := StreamTimeInfo.PTS; 
     // FStatus.StreamTimeTS[I] := StreamTimeInfo.TimeStamp; 
    end; 
    finally 
    VarArrayUnlock(Value); 
    end; 
    end; 
end;