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
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;
这个例子的价值:
把以前的两层向多层移植的话,可以保留原来的业务类。
但数据类型无疑要进行转换。
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/archive/2008/09/19/2940990.html