如何对成员对象的事件进行监听?(100分)

B

bruesz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-12

• #1

有这样一个Class

Type
A = Class
private
TIDFTP: ftp1;
end;

里面有成员对象ftp1，
我希望在ftp1.get文件的时候进行数据的监听。 TIDFTP里有一个OnWork的Event. 等到接收到足够的数据我就停止。

问题是对象A是动态创建的，我不是很清楚如何在A的内部捕捉OnWork的事件的写法，请各位大虾赐教。

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-12

• #2

1, 在OnWork事件中判断, 什么时候算您说的 足够的数据了. 然后抛出处理.

2, OnWork事件的写法, 按照
TIDFTP的OnWork事件的定义一样, 定义一个相同参数个数,和类型对应的 方法, 并书写处理.
然后复制给 动态创建的 ftp1.onwork.

 

B

bruesz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-12

• #3

因为我想使用Indy的TIDFTP组件实现多线程的下载。而TIDFTP的Get方法只有续传的功能。我想每个线程传到一定的数据就停止传输，因此才会想到在OnWork事件中进行数据量的监听。

Onwork的方法我照您所说的试了一下，没法编译通过，是否可以给个简单的例子？比方说在某个类内有个TEdit成员对象，我想当TEdit对象的值改变后立即捕捉到(使用OnChange事件)。

 

B

bruesz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #4

感谢duhai_lee的回复，虽然没有满足我的需求，还是给些分鼓励一下...
没有人回答我就封帖了

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #5

－－比方说在某个类内有个TEdit成员对象，我想当TEdit对象的值改变后立即捕捉到(使用OnChange事件)。


如下， FEdit成员就能响应onchange事件了。
Ta = class
private
FEdit: TEdit;
public
procedure EditChange(Sender:Tobject);
Constructor Create;
end;

Constructor TA.Create;
begin
FEdit.OnChange := EditChange;
end;

procedure TA.Edit1Change(Sender: TObject);
begin
//// 处理响应
end;

 

B

bruesz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #6

接受答案了.