Board index » delphi » about TServerSocket , Can someone help me ?

2004-05-20 02:07:07 PM
delphi203
hello:
i wrote some code :
TSocketListen = class(TServerSocket)
private
procedure GetThread(Sender: TObject; ClientSocket:
TServerClientWinSocket;
var SocketThread: TServerClientThread);
public
constructor Create(AOwner: TComponent); override;
end;
implementation
uses SocketThread;
{ TSocketListen }
constructor TSocketListen.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ServerType := stThreadBlocking;
OnGetThread := GetThread;
end;
procedure TSocketListen.GetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
var SocketThread: TServerClientThread);
begin
SocketThread := TSocketThread.Create(True, ClientSocket);
SocketThread.Resume ;
AList.Add(Pointer(SocketThread)); // AList is object of tList
end;
My Questions is :
1, when object of TSocketListen active:=false ,what's happen?
Can Work fine of some already Connected thread object "such as
TSocketThread(AList[i])" ?
2, when Terminate Applicaton, dose i need free Connected thread object by
self ?
thanks.
 

"tony" <XXXX@XXXXX.COM>writes
Instead, in this case, you should be overriding the GetServerThread() or
DoCreateThread() method instead.
created. You don't need to do it manually yourself as well.
haven't done anything yet that effects that.
automatically.
Gambit
 

thanks your response.
if it has some Client Connections
and it is socket Connection threads will ....? disconnect or not ,or free ?
"Remy Lebeau (TeamB)" <XXXX@XXXXX.COM>дÈëÓʼþ

"tony" <XXXX@XXXXX.COM>writes
Both. If you deactivate the server, any connected clients are automatically
disconnected and the threads are freed.
Gambit
 

created. You don't need to do it manually yourself as well.
And i want to know, how do i detect the "a list of all the thread instances
"
by tServerSocket auto maintainsed ? it seems has nothing property or method
to call.
thanks.
"Remy Lebeau (TeamB)" <XXXX@XXXXX.COM>дÈëÓʼþ

"tony" <XXXX@XXXXX.COM>writes
connections. You can use the GetClientThread() mthod to retreive the thread
pointer for any given connection. Generally, you shouldn't need to access
inactive threads at all.
Gambit