DELPHI接口转化为COM接口

 DELPHI能够兼容COM的数据类型,反之,则不成立。

在此举个简单的例子:

//DELPHI
procedure Tyn.save2(data: olevariant; out errcount: integer);
begin
  dspunit.ApplyUpdates(data, 0, errcount);
end;

//COM
procedure Tyn.save(data: OleVariant; out errCount: SYSINT);
begin
  save2(data, errcount);
end;

这个例子的价值:
把以前的两层向多层移植的话,可以保留原来的业务类。
但数据类型无疑要进行转换。

你可能感兴趣的:(Delphi)