Remy Lebeau (TeamB) wrote:
> "Ferenc Nemeth" <ferenc.nemeth@interticket.hu> wrote in message
> news:444889d4$1@newsgroups.borland.com...
>
>> I am using TIdTelnetserver
>
> Which version of Indy are you using?
9.0.18
>
>> My problem is, there are some computer of which the
>> result listing stops.
>
> Please show your actual code.
>
There is a component named: RATS: TidTelnetServer on the server form.
The RATS has some CommandHandler. Like: GetThreads. The code of it:
procedure TfrmServerForm.RATSchGetThreadsCommand(ASender: TIdCommand);
begin
ReportGetThreads(Asender.Response);
end;
procedure TfrmServerForm.ReportGetThreads(AList: TStrings);
var
wt: TmtWorkThread;
i: integer;
LList: TStringList;
begin
try
AList.Add('--- Threads ---');
LList:= MTServer.ThreadManager.Threads.ReadLockList;
try
for i:= 0 to LList.Count-1 do
begin
wt:= TmtWorkThread(LList.Objects[i]);
AList.Add('WorkThread.......: '+IntToStr(wt.ThreadID));
AList.Add(' Server task id.: '+IntToStr(wt.SrvTaskId));
AList.Add(' Create time....: '+FormatDateTime('yy.mm.dd
hh:nn:ss:zzz', wt.CreateTime));
AList.Add(' Object name....: '+ wt.ObjectName);
AList.Add(' Object name....: '+ wt.ResType);
AList.Add(' Object name....: '+ wt.ResValue);
AList.Add('');
end;
AList.Add('Count: '+IntToStr(LList.Count));
AList.Add('');
finally
MTServer.ThreadManager.Threads.ReadUnlockList;
end;
except
On E: Exception do
AList.Add(E.Message);
end;
end;
>
> Gambit
>
>
If the error is in the code I think it would not work on the local
machine too. But it works fine.
best regards
Feri
