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

  • 主题发起人 主题发起人 liujipeng
  • 开始时间 开始时间
L

liujipeng

Unregistered / Unconfirmed
GUEST, unregistred user!
我想自定义一个事件
来接受
IdUDPServer1.onUDPRead 的事件接收到的数据
这个自定义事件要自动触发
现在问题两个
1。我自定义了事件onreturninfo在.pas里却没有。
2。如何和IdUDPServer1.onUDPRead关联起来做到自动触发
 
我自己顶
 
都没人来帮忙
 
你的是不是SERVER要取客户端传来的数据呀？
你要干啥用没说清楚
 
我编写了一个 ActiveX From
 
放个TIMER，设定间隔判断一下传来的数据流是不是空，之后接收就行了
 
怎么定义这个事件
 
在你的Events接口中添加一个处理函数原型
然后在你需要的地方进行下面的调用，
if FEvents <> nil then
FEvents.OnRequest(Command, Message);
 
要用IdUDPServer1.onUDPRead 来触发
接收到IdUDPServer1.onUDPRead的内容
定义一个onserver属于自动接收事件
我要在触发时间里写代码的
比如在onclick里写东西
 
可以在我做的控件里看到这个事件
 
我不知道怎么建立种能在控件事件里看的事件，我建立过但在代码里看不到
 
创建的时候选中 自动化接口 了没有？
 
在你的Events接口中添加一个处理函数原型

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


怎么触发呢
 
能不能下个步骤
 
去网上搜个例程看看吧，呵呵，网上有很多
几年前做过一个，找不着代码了
 
我找过了都不行啊，帮帮忙的大哥
 
继续啊，救命方法方法方法方法方法
 
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;


再不明白就没办法了
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
W
如何写自定义事件(0分)
回复
2
查看
173
stargazer
S
F
自定义事件(300分)
回复
14
查看
179
f643208
F
F
自定义事件（300）(300分)
回复
12
查看
169
ftop1
F
B
急，如何定义事件(50分)
回复
3
查看
111
ljy_17
L
后退
顶部