服务端过程如下:
procedure Tinsertobj.Method1(const vdatas: WideString; Param2: OleVariant);
begin
end;
//param2接受数组
客户端发送
procedure TForm1.Button1Click(Sender: TObject);
var
  zxs: olevariant; //如果array[1..10] of string;会报类型不对的错array与olevariant不同
begin
zxs[1]:='江苏';
 zxs[2]:='浙江';
 zxs[3]:='安徽';
 zxs[4]:='河北';
 zxs[5]:='山西';
 zxs[6]:='内蒙';
 zxs[7]:='辽林';
 zxs[8]:='吉林';
 zxs[9]:='黑龙江';
 zxs[10]:='福建';
 ecook.Method1('dd',zxs);
end;报错:invalid argument!