前几天有人建议封装到流里面
再转换为variant型
例如传一个string
Code:=CodeEdit.Text;
len:=Length(Code);
p:=Addr(len);
TempStream.Write(p^,SizeOf(i));
//写入流:串长度
for i:=1 to lendo
begin
ch:=Code;
p:=Addr(ch);
TempStream.Write(p^,SizeOf(AnsiChar));
//写入流
end;
TempStream.Position := 0;
Param:=VarArrayCreate([0, TempStream.Size - 1], varByte);
p := VarArrayLock(Param);
try
TempStream.Position := 0;
TempStream.Read(p^, TempStream.Size);
//流转换
finally
VarArrayUnlock(Param);
end;
TempStream.Clear;
DcomConnection.AppServer.BrokerInterface(Param);
//调用远程方法
当然在服务端也需要用相同方法读
