4、此时你的mts接口实现单元中，将会自动加入原dcom远程数据模块的接口声明，并加入实现代码的框架。
tdemo = class(tmtsdatamodule, idemo)
private
{ private declarations }
protected
class procedure updateregistry(register: boolean; const classid, progid: string); override;
//以下是我的原远程数据模块的接口表，delphi自动将其复制到此单元中，并且生成了代码框架
procedure findpersons(const name, unitno: widestring;
out rdataset: olevariant); safecall;
procedure getfieldsname(const tbname: widestring; out fdnames: olevariant);
safecall;
procedure getlaborage(const personno: widestring; out records: olevariant);
safecall;
procedure getotherinfo(const tablename, personno: widestring;
……
public
{ public declarations }
end;
……
procedure tdemo.findpersons(const name, unitno: widestring;
out rdataset: olevariant);
begin
end;
……
