关于Variant Array 的问题求教

[Zboy]

三层结构中应用服务器上有一接口定义如下：
....
procedure SaveCustomer(vData: OleVariant); dispid 3;
....

客户端调用该接口：
type
TCustomerRec = record
Name:string;
WorkCode:integer;
.....
end;

...

procedure SaveCustomerToServer(Customer:TCustomerRec);
var vCustomer:OleVariant;
p:Pointer;
begin
vCustomer:=VarArrayCreate([0,Sizeof(TCustomerRec)],varByte);
p:=VarArrayLock(vCustomer);
Move(Customer, p^, Sizeof(TCustomerRec));
VarArrayUnlock(vCustomer);
XXInterface.SaveCustomer(vCustomer);
//在这里调用接口时出错
end;

错误：EOleException "Mismatch in datapacket"

为什么这样不行？？苦恼。
用ClientDataSet倒是可以解决这个问题，但是不想这么干。
是不是转换不对？万望赐教。

[lvloj]

type
TCustomerRec = record
Name:ShortString;
WorkCode:integer;
.....
end;
把所有的string改成ShortString.

[Zboy]

不是这个问题，我所有的String类型都是ShortString，（上面写漏了，应该是String[8]）。

问题解决了，在于接口的实现部分怎么处理接收到的OleVariant。