function VarArrayCreate(const Bounds: array of Integer; VarType: TVarType): Variant; 然后将此函数的返回值 variant直接作为参数传递到服务器端。
function RcallFunction(functionID: Integer; value: pointer): Integer; stdcall; var buf: array [0..1023] of char; begin move(value^, buf, 1024); Showmessage(buf); Result := CustomerData.connRemoteServer.AppServer.callFunction(functionID, buf); end; 这个有没有错误
Variant类型是变体类型可以适应许多类型
所以传结构也是可以的
------------------------------------
体验速度,体验CSDN新版论坛助手:http://community.csdn.net/Expert/TopicView.asp?id=3108679
然后将此函数的返回值 variant直接作为参数传递到服务器端。
var
buf: array [0..1023] of char;
begin
move(value^, buf, 1024);
Showmessage(buf);
Result := CustomerData.connRemoteServer.AppServer.callFunction(functionID, buf);
end;
这个有没有错误