BorlandTalk.com

O. Keller · Guest

hi,

I try to pass a variant array to an activex component. According to the
documentation
the following vb - example should work:

Dim Params As Variant

Dim record As Long

Dim entry As Long

....

Params = objDS.Parameter(Array(CAM_L_CHANNELS, CAM_T_STITLE), record, entry)

How can I pass the values CAM_L_CHANNELS and CAM_T_STITLE to the component
with delphi ?

------------------------------------------

I tried it with the following delphi-code (but at runtime I get an
type-conflict-error when I try to access the CamDatasource1.Parameter -
property) :

var

vParameter : OleVariant;
Codes : OleVariant; //array of TVarRec; // array of
OleVariant;
Record_ : Integer;
Entry : Integer;

begin

Codes := VarArrayCreate( [ 0, 1 ], varInteger);

Codes[0] := CAM_L_CHANNELS; // CAM_L_CHANNELS = $20000007;

Codes[1] := CAM_T_STITLE; // CAM_T_STITLE = $20010002;

Record_ := 1;
Entry := 1;

vParameter := CamDatasource1.Parameter [ Codes, Record_, Entry ];
....

end;

thanks in advance !

Deborah Pate (TeamB) · Guest

< Params = objDS.Parameter(Array(CAM_L_CHANNELS,
CAM_T_STITLE), record, entry)