我也是这样做的，但是客户端的Variant变量传不到服务端
clent:
procedure TClient.Test(var ole: OleVariant);
var
str: String;
ole: variant;
begin
str := 'hello world';
ole := str;
DCOM.AppServer.GetStr(ole);
str := old;
ShowMessage(str);
//str = Hello World, Hello World，此处对了，
end;
server
procedure TDCOMSERVER.GetStr(var ole: OleVariant);
var
str: String;
begin
str := ole;
ShowMessage(str);
//此处str是空??????
str := 'Hello World, Hello World';
ole := str;
end;
