active from 添加自定义事件 （在线等待）(200分)

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-31

• #1

我想自定义一个事件
来接受
IdUDPServer1.onUDPRead 的事件接收到的数据
这个自定义事件要自动触发
现在问题两个
1。我自定义了事件onreturninfo在.pas里却没有。
2。如何和IdUDPServer1.onUDPRead关联起来做到自动触发

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-31

• #2

我自己顶

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-01

• #3

sos

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #4

都没人来帮忙

 

M

madeagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #5

你的是不是SERVER要取客户端传来的数据呀？
你要干啥用没说清楚

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #6

对的

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #7

我编写了一个 ActiveX From

 

M

madeagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #8

放个TIMER，设定间隔判断一下传来的数据流是不是空，之后接收就行了

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #9

怎么定义这个事件

 

M

madeagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #10

在你的Events接口中添加一个处理函数原型
然后在你需要的地方进行下面的调用，
if FEvents <> nil then
FEvents.OnRequest(Command, Message);

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #11

要用IdUDPServer1.onUDPRead 来触发
接收到IdUDPServer1.onUDPRead的内容
定义一个onserver属于自动接收事件
我要在触发时间里写代码的
比如在onclick里写东西

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #12

可以在我做的控件里看到这个事件

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #13

我不知道怎么建立种能在控件事件里看的事件，我建立过但在代码里看不到

 

M

madeagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #14

创建的时候选中 自动化接口 了没有？

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #15

在你的Events接口中添加一个处理函数原型

我建立一个事件
下面怎么理解
然后在你需要的地方进行下面的调用，
if FEvents <> nil then
FEvents.OnRequest(Command, Message);


怎么触发呢

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #16

能不能下个步骤

 

M

madeagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #17

去网上搜个例程看看吧，呵呵，网上有很多
几年前做过一个，找不着代码了

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-06

• #18

我找过了都不行啊，帮帮忙的大哥

 

L

liujipeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-07

• #19

继续啊，救命方法方法方法方法方法

 

M

madeagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-07

• #20

private
{ Private declarations }
FEvents: ItestActiveXEvents;
例如
procedure TtestActiveX.EventSinkChanged(const EventSink: IUnknown);
begin

FEvents := EventSink as ItestActiveXEvents;
inherited EventSinkChanged(EventSink);
end;


procedure TtestActiveX.ActivateEvent(Sender: TObject);
begin

if FEvents <> nil then
FEvents.OnActivate;
end;


procedure TtestActiveX.ClickEvent(Sender: TObject);
begin

if FEvents <> nil then
FEvents.OnClick;
end;


procedure TtestActiveX.CreateEvent(Sender: TObject);
begin

if FEvents <> nil then
FEvents.OnCreate;
end;


再不明白就没办法了