Indy TCPClient, TCPServer получение списка процессов с удаленного компьютера

[WildWest]

Подключаюсь через IdTCPClient1.Connect;

по Таймеру начинаю опрашивать сервер

Temp2:=TStringList.Create();
  with (Form1.IdTCPClient1) do
  begin
    WriteLn('process');
    ReadStrings(Temp2); //с сервера
    with Form4.ListView2.Items.Add do
      begin
        Caption := Temp2.Strings[0];
        SubItems.Add(Temp2.Strings[1]);
        SubItems.Add(Temp2.Strings[2]);
        SubItems.Add(Temp2.Strings[3]);
     end;
    end;

На сервере в TCPServerExecute

if (strText = 'process') then
  List:= TStringList.Create();
  ListProcesses(AThread.Connection);
  List.Free;

в процедуре ListProcesses с помощью TlHelp32 (Process32First, Process32Next) тянется список процессов, возвращаем данные строкой:
Connection.WriteStrings(List,true);

но так как событие в таймере то в ListView данные падают бесконечно..то есть прочитал по порядку 30 процессов, и потом дальше добавляет эти же 30 процессов, собственно вопрос наверное тривиален..Как после добавления всех процессов в ListView корректно сие прервать?

[veniside]

> Как ... сие прервать?

Делать Form4.ListView2.Items.Clear() сразу после ReadStrings(Temp2) ?

[Stilet]

veniside

Я либо чего-то не понял, либо автор получает не список процессов а всего лишь один процесс...

прочитал по порядку 30 процессов

Поодиночке? Не сразу все?

[WildWest]

Сообщение от Stilet

Я либо чего-то не понял, либо автор получает не список процессов а всего лишь один процесс...

Поодиночке? Не сразу все?

Все верно, поодиночке, ибо кроме названия нужно получить PID процесса, приоритет, и количество потоков.

Проблему решил просто остановкой таймера после выполнения операций. И потом дисконнект.