DELPHI做的COM如何返回数组？

Question

利用Varient处理，可以参考 Delphi COM深入编程 一书
www.applevb.com

Answer 1

server:
function TRemoteModule1.GetVariant:OleVariant;
var i:integer;
begin
  Result:=VarArrayCreate([0,9],varVariant);
  for i:=0 to 9 do
    Result[i]:='hello';
end;client:
procedure tform1.button1onclick
var i:integer;
  Value:OleVariant;
begin
  Value:=socketconnection1.appserver.getvariant;
  for i:=0 to 9 do
    Listbox1.items.add(value[i]);
end;