用variant类型
发送
procedure SetData;
var AData : OleVariant;
a : Integer;
begin
AData := VarArrayCreate([0, 9], varByte);
for a := 0 to 9do
AData[a] := 1;
XXXXCOM.DataSet(AData);
end;
接受
procedure DataSet(ADATA: OleVariant);
var a : Integer;
begin
for a := 0 to 9do
TenChar[a] := Char(Byte(ADATA[a]));
end;