ThreadServer = class(TThread)
TCpServer:TIdTCPServer;
Port:Integer;
ConnectIpAddress:String[30];
ConnectComputerName:String[200];
private
{ Private declarations }
procedure TCpServerConnect(AThread: TIdPeerThread);
procedure TCpServerExecute(AThread: TIdPeerThread);
protected
procedure Execute;
published
//Port:Integer;
//ConnectIpAddress:String[30];
//ConnectComputerName:String[200];
end;
各位大哥,我想在执行该类的父类的create事件的时候执行该类的特有事情。比如
TCpServer:=TIdTCPServer.create(Self)
然后给TCpServer的某些事件赋值。请问我该如何写该类的create事件啊?
TCpServer:TIdTCPServer;
Port:Integer;
ConnectIpAddress:String[30];
ConnectComputerName:String[200];
private
{ Private declarations }
procedure TCpServerConnect(AThread: TIdPeerThread);
procedure TCpServerExecute(AThread: TIdPeerThread);
protected
procedure Execute;
published
//Port:Integer;
//ConnectIpAddress:String[30];
//ConnectComputerName:String[200];
end;
各位大哥,我想在执行该类的父类的create事件的时候执行该类的特有事情。比如
TCpServer:=TIdTCPServer.create(Self)
然后给TCpServer的某些事件赋值。请问我该如何写该类的create事件啊?
的public中
写:
constructor Create(AOwner: TComponent); override;重载它。
constructor ThreadServer .Create(AOwner: TComponent);
begin
inherited;{执行父类的}
你的代码。
end;
你上面的想法是不能实现的,TCpServer是TheadServer的私有变量,父类没有
我的要求是在创建了类后。该多线程就可以监控网络了。但是在有客户端连接的时候就报错。分析加调试后发现没有FCpServer的OnExecute属性没有赋值。现在就是要对该属性赋值。本人功底不够好。不知道如何赋值给它。试过了各种方法后都没有达到理想的效果。我是想做一个tcp/ip服务器。