G
gigglegile
Unregistered / Unconfirmed
GUEST, unregistred user!
1:我写了一个单元(unit1),定义了一个控件(TMyControl),从TIdUDPServer继承,
2:然后写了一个过程 procedure TMyControl.MyUDPOnRead(Sender:TObject;AData:TStream;ABinding:TIdSocketHandle);
3:我在另外一个单元(unit2)中调用这个过程:
CtrlServer:=MyControl.Create(nil);
CtrlServer.Active:=true;
CtrlServer.OnUDPRead:=CtrlServer.MyUDPOnRead;
4:我再将unit1和unit2封装成dll文件
5:我用一个程序来测试这个dll的时候,总是不能执行MyUDPOnRead这个过程;
请问是什么原因啊??是不是定义有错误??
2:然后写了一个过程 procedure TMyControl.MyUDPOnRead(Sender:TObject;AData:TStream;ABinding:TIdSocketHandle);
3:我在另外一个单元(unit2)中调用这个过程:
CtrlServer:=MyControl.Create(nil);
CtrlServer.Active:=true;
CtrlServer.OnUDPRead:=CtrlServer.MyUDPOnRead;
4:我再将unit1和unit2封装成dll文件
5:我用一个程序来测试这个dll的时候,总是不能执行MyUDPOnRead这个过程;
请问是什么原因啊??是不是定义有错误??