SocketConnection.Appserver(参数:Olevariant) 如何使参数是一个记录类型的数据

Question

你可以这样做Result := VarArrayCreate( [0,n], varArray );
Result[1] := Rec.XXX
Result[2] := Rec.XXX
Result[n] := Rec.xxx
到的客户机要按顺序再取出

Answer 1

这样做不好，以下是我原来的做法。
Test=Record
  i:String;
  j:Integer;
End;
SendValue,OutValue:Variant;
Temp:Variant;AA:Array Of TestSetlength(aa,n);For I:=0 To n Do
  Beign
  aa[i].i='12';aa[i].j=12;
  End;
Temp:=VarArrayCreate( [0,1], varArray );
temp[0]:='test';
Temp[1]:=aa;   //无法转换
SocketConnection.Appserver.Send(Temp,OutValue)