用socketconnenting,midas进新开发三层，如何给中间层传递数组参数？ ( 积分: 0 )

用socketconnenting,midas进新开发三层，如何给中间层传递数组参数？
先写了！！！！！！！！

现在服务器接口上建一个带参数过程，然后再客户端调用这个过程，把数组参数传递过去便可

接口定义用什么数据类型？

OleVariant类型

客户端
procedure TForm1.Button3Click(Sender: TObject);
var
tmpMsg:OleVariant;
begin
tmpMsg := VarArrayCreate([0, 5], varVariant);
tmpMsg[0] := Edit4.Text;
tmpMsg[1] := Edit5.Text;
tmpMsg[2] := Edit6.Text;
tmpMsg[3] := 123;
//Edit7.Text;
tmpMsg[4] := Edit8.Text;
tmpMsg[5] := Edit9.Text;
pDataBack.MSGArray(tmpMsg, 6);
end;
中间层接收
procedure TDataBack.MSGArray(Msg: OleVariant;
Count: Int64);
var
i: integer;
Data: OleVariant;
begin
for i := 0 to Count - 1do
begin
Data := Msg;
Form1.Memo1.Lines.Add(Data);
end;
end;