三层中如何在服务器与客户端之间传输自定义的'Record'类型??????

[wzd801027]

我在服务器端定义了一个如下的‘RECORD’数据类型
// Declaration of structures, unions and aliases.
// *********************************************************************//
PUserType1 = ^tTestAdvice; {*}

tTestAdvice = packed record
serialno: string;
inhosRegisterNo: string;
subjectCode: string;
isMedicine: string;
execDepartmentCode: string;
execDepartmentName: string;
drugHouseCode: string;
drugHouseName: string;
doctorCode: string;
doctorName: string;
end;

并且把他作为一个函数的入参：
procedure groupData(var value: tTestAdvice); safecall;

请问我在客户端如何定义数据类型？？？如何引用服务器端定义的'tTestAdvice'类型那？

[soaringsouth]

在客户端同样定义此类型。在服务器端将此类型的变量值赋给olevariant类型的返回值，在客户端直接赋值给此类型的变量即可。
就是这么一个过程：(服务器)tTestAdvice－－>(服务器)olevariant(返回值)-->(客户端)tTestAdvice

[soaringsouth]

[e-mail]
QQ:80405046

[888888888888]

关注

[leapmars]

需要在 type library 中定义此结构，但是此结构的各个域的类型应该是自动化兼容的，因此不能定义成 string ，应该是 BSTR，其实就是 WideString。 当客户端导入了类型库后，就有了此结构的类型定义。（该定义就在 *_TLB.pas 文件中）

[yzykjh]

这样实现
var
vData: OleVariant;
arrayList: array of tstringlist;
i: Integer;
begin
vData:=VarArrayCreate([Low(arrayList),high(arrayList)],VarVariant);
for i:=Low(arrayList) to high(arrayList) do
vData[i]:=arrayList[i].Text;
end;

服务端再转化过来

if VarAsArray(vData) then
for i:=VarArrayLowBound(vData,1) to VarArrayHighBound(vData,1) do
arrayList[i].Text:=vData[i];

[virtualmfc]

同意soaringsouth(栈桥捉鳖) ，如果你要引用服务器端的结构类型，请在类型库中声明此结构，然后在客户端引用服务器端的类型库文件。