BorlandTalk.com

Marcelo Rodrigues · Guest

Hi,

I'm using Indy TCPServer on a project. This server accepts remote client
connections and keep this connections opened.

When I try to close the server application I get the 'Thread Timeout'
Excption. Following my close procedure:

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
List: TList;
I: Integer;
begin
List := Server.Threads.LockList;
try
for I := 0 to List.Count - 1 do
begin
try
TIdPeerThread(List.Items[I]).Connection.DisconnectSocket;
while not TIdPeerThread(List.Items[I]).Terminated do
TIdPeerThread(List.Items[I]).Terminate;
except
on E: Exception do
begin
AddToLogView('ERRO','Thread paralizado',now,3);
AddToLogView('ERRO','Erro (' + FormatDateTime('dd/mm/yyyy', Now) +
') [' + E.ClassName + ']: ' + E.Message,now,3);
TIdPeerThread(List.Items[I]).Stop;
end; //on
end; //try
end; //for
finally
Server.Threads.UnlockList;
end;

IncomingList.Free;
OutGoingList.Free;
ClientList.Free;
Server.Active := false;
end;

Remy Lebeau (TeamB) · Guest

"Marcelo Rodrigues" <marcelo (AT) pathcompany (DOT) com.br> wrote

Marcelo Rodrigues · Guest

Hi,

TerminateWaitTime is set to default value : 5000
This is how may Execute is:

procedure TfrmMainSrv.ServerExecute(AThread: TIdPeerThread);
var
data : string;
begin

try
while AThread.Connection.Connected do
begin
data := AThread.Connection.ReadLn;
if length( data ) > 0 then
ProcessData( Data, AThread );
end;
except
{on E: Exception do
begin
memo1.lines.insert(0,format('Erro lendo TCP: %s',[E.Message]));
AddToLogView('ERRO',format('Erro lendo TCP: %s',[E.Message]),now,3);
end; //on }
end;

end;

Marcelo

"Remy Lebeau (TeamB)" <gambit47.no.spam (AT) no (DOT) spam.yahoo.com> escreveu na
mensagem news:40896a9f$1 (AT) newsgroups (DOT) borland.com...