I have a Windows service application with the following code:
IdTCPServer := TIdTCPServer.Create(Self);
IdTCPServer.OnExecute := IdTCPServerExecute ;
IdTCPServer.OnStatus := IdTCPServerCheckIfDisconnected ;
IdTCPServer.Active := true ;
procedure IdTCPServerExecute(AThread: TIdPeerThread) ;
begin
.
.
.
AThread.Connection.Disconnect ;
end ;
procedure IdTCPServerCheckIfDisconnected(ASender: TObject; const AStatus:
TIdStatus; const AStatusText: string) ;
begin
if AStatus = hsDisconnected then
OutputWorkList ;
end ;
After AThread.Connection.Disconnect is executed in IdTCPServerExecute (and
the procedure exits), the procedure IdTCPServerCheckIfDisconnected never
gets called. It thought it would be called. What am I doing wrong? Hasn't
the connection status changed? Thanks!
