请问如何将N个不同数据类型的数据从客户端传到应用服务器端? (100分)

  • 主题发起人 主题发起人 yzykjh
  • 开始时间 开始时间
Y

yzykjh

Unregistered / Unconfirmed
GUEST, unregistred user!
例如:
type fRecord=Record
aaa: integer;
bbb: string;
ccc: tdate;
end;
var
fValue: fRecord;
请问如何这个fValue变量从客户端传到应用服务器端?还是另有其它方法?
 
在服务端的接口里加个方法
procedure TYourInterface.PutRecord(Node: OleVariant);
type
FRecord= record
end;
var
r: FRecord;
Len: Integer;
p: PByte;
begin
Len:=VarArrayHighBound(Node,1);
p:=VarArrayLock(Node);
Move(p^, r, Len+1);
VarArrayUnlock(Node)
end;
客户端这样调用
procedure PutNode(Node: FRecord);
var
v: OleVariant;
p: PByte;
begin
v:=VarArrayCreate([0, SizeOf(Node)-1], VarByte);
p:=VarArrayLock(v);
Move(Node, p^, SizeOf(Node));
VarArrayUnlock(v);
YourInterface.PutRecord(v)
end;
 
agree LeeChange.收藏。
 
多人接受答案了。
 
兄弟:
字符串不行呀(PChar也一样)。
能解决这个问题给你50大洋!
 
后退
顶部