SAFEARRAY如何封装成Variant?

[hbczlp]

var
A: Variant;
psa: PSAFEARRAY;
rgsabound: array[0..1] of TSafeArrayBound;
RGB: array[0..255] of array[0..2] of byte;
begin
rgsabound[0].cElements :=256;
rgsabound[0].lLbound :=0;
rgsabound[1].cElements :=3;
rgsabound[1].lLbound :=1;
psa := SafeArrayCreate(VT_ARRAY,2,rgsabound);
psa.cDims :=2;
psa.fFeatures :=FADF_AUTO;
psa.cbElements := SizeOf(Byte);
psa.pvData :=@RGB;

A.vt :=VT_ARRAY+varByte;
A.pArray := psa; <----这句编译时出错 [Error] untMain.pas(1592): Type not allowed in Variant Dispatch call

end;
请问怎样才能把上面的psa转换为变体A

[mygodsos]

消灭0回复,路过帮顶