关于DLL里创建控件的events设置问题
请教各位,我在DLL里动态创建了一个IdTCPServer控件,如何把这个控件的events都指向我的过程?
unit MIdTCPS;
interface
uses
IdBaseComponent,
IdComponent,
IdTCPServer,
StdCtrls;
var
MyIdTcP:TIdTCPServer;
procedure SetIdTcpServer();
implementation
procedure SetIdTcpServer();
begin
MyIdTCP:=tidtcpserver.Create(nil);
MyIdTCP.OnExecute:= myidtcpexecute ; 我就是想在这里,把 OnExecute 指向到我的myidtcpexecute过程
MyIdTCP.Bindings.Clear;
MyIdTCP.Bindings.Add.IP:='127.0.0.1';
MyIdTCP.Bindings.Add.Port:=8050;
MyIdTCP.Active :=true;
end;
procedure MyIDTCPS.myidtcpexecute(AThread: TIdPeerThread);
var
s:Pchar;
begin
s:=Pchar(athread.Connection.ReadLn);
if s[0]=char(1) then
showmessage('ok');
end;
end.
望指教.谢过!!