2
234307980
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么写indy10的TCPServer1Execute的Onwork事件？？？
用在TForm1.IdTCPServer1Execute(AContext: TIdContext);事件里显示进度条。
AContext.Connection.IOHandler.OnWork := form1.myonwork;
AContext.Connection.IOHandler.write(aaaa);
其中form1.myonwork已在类中定义和写好了。
运行起来后，其它功能都没问题。
但AContext.Connection.IOHandler.write(aaaa)的时候不触发form1.myonwork里的事件
是不是因为IdTCPServer1Execute是在线程里。没有消息循环???????所以收不到事件？
用在TForm1.IdTCPServer1Execute(AContext: TIdContext);事件里显示进度条。
AContext.Connection.IOHandler.OnWork := form1.myonwork;
AContext.Connection.IOHandler.write(aaaa);
其中form1.myonwork已在类中定义和写好了。
运行起来后，其它功能都没问题。
但AContext.Connection.IOHandler.write(aaaa)的时候不触发form1.myonwork里的事件
是不是因为IdTCPServer1Execute是在线程里。没有消息循环???????所以收不到事件？