如何添加接口 ( 积分: 100 )

在type Library中添加接口及其方法(一个远程数据模块多个接口)
问：此方法 在哪里实现？

在type Library中添加接口及其方法(一个远程数据模块多个接口)
问：此方法 在哪里实现？

我也正在找这个答案，有了告诉我QQ:7717864：）

什么意思
上面不是有个按钮NEW　INTERFACE，第一个红色的

接口是添加了，并添加了方法。
问：方法的实现　写在哪里（如何定义方法）？

帮顶

--------签名档---------------------------

惊爆开源站

http://www.source520.com http://www.source520.net
80G源码电子书免费免注册下载,大量精辟技术文档库随时更新

方法写在接口的实现类里

To:myclain
可不可举个例子
thanks

客户端如何调用？

中间层定义方法：
procedure TRDM.UpdateGoldInfo(GoldData, GoldMaster: OleVariant;
var s_Flag,
s_Error: WideString);
客户端调用：
DMSckt.SCKT_ISS.AppServer.UpdateGoldInfo(CDS_Gold.Data,s_Master,s_Flag,s_Error);
//提交数据

to Neo_leaf
这是　1个远程数据模块　1个接口　吧？
我想要的是　1个远程数据模块　2个接口
问：客户端怎么调用第2个接口里的方法（用socketConnect)

晕死了!什么和什么啊!
添加方法保存就多出来一个单元,在那里实现,
后面的问题是:一个TLB可以有多个接口,一个接口可以有多个方法.
在客户端引用TLB,
用接口1定义对象1,用接口2定义对象2,然后分别用其协做类创建,就可以调用了,晕死了!!!!

我也是DELPHI的初学者，接口的实现是在另外的单元文件里实现的，类型库只是起一个说明作用，供其他语言编写的程序调用，不知对不对啊？

ICMBrush = interface(IInterface)
['{180A11B2-697D-4CEA-8C59-1C12AE158017}']
procedure Assign(const ABrush: ICMBrush);
stdcall;
procedure AssignToCanvas(ACanvas: TCanvas);
stdcall;
function GetColor: TColor;
stdcall;
function GetOnChange: TNotifyEvent;
stdcall;
function GetStyle: TBrushStyle;
stdcall;
procedure LoadFromStream(AStream: TStream);
stdcall;
procedure SaveToStream(AStream: TStream);
stdcall;
procedure SetColor(Value: TColor);
stdcall;
procedure SetOnChange(Value: TNotifyEvent);
stdcall;
procedure SetStyle(Value: TBrushStyle);
stdcall;
property Color: TColor read GetColor write SetColor;
property OnChange: TNotifyEvent read GetOnChange write SetOnChange;
property Style: TBrushStyle read GetStyle write SetStyle;
end;


TCMBrush = class(TInterfacedObject, ICMBrush)
private
FBrushStyle: TBrushStyle;
FColor: TColor;
FOnChange: TNotifyEvent;
protected
proceduredo
OnChange;
public
constructor Create;
procedure Assign(const ACMBrush: ICMBrush);
stdcall;
procedure AssignToCanvas(ACanvas: TCanvas);
stdcall;
function GetColor: TColor;
stdcall;
function GetOnChange: TNotifyEvent;
stdcall;
function GetStyle: TBrushStyle;
stdcall;
procedure LoadFromStream(AStream: TStream);
stdcall;
procedure SaveToStream(AStream: TStream);
stdcall;
procedure SetColor(Value: TColor);
stdcall;
procedure SetOnChange(Value: TNotifyEvent);
stdcall;
procedure SetStyle(Value: TBrushStyle);
stdcall;
property Color: TColor read GetColor write SetColor;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property Style: TBrushStyle read GetStyle write SetStyle;
end;