Server(COM/DCOM程序)端： PRocedure TTestDCOM.Send4(Size: Integer; D1: OleVariant); type TData=array [0..999] of Byte; Var Data:TData; i:Integer; begin for i:=0 to Size-1 do begin Data[i]:=D1[i]; end; end;
Cleint端:
Var D1:OleVariant; begin D1:=VarArrayCreate([0,99],varByte);
