Developing.ru

Задача - получить список зарегистрированных на компе юзеров и их паролей
Вопрос - как это осуществить???

Memo1.Lines.Add(IdTCPClient1.Socket.ReadLn);

1. Чтобы исключить и понять где зависаения, не забывай про брейк поинты

2. как вариант, используй

[code]Memo1.Lines.Add(IdTCPClient1.Socket.ReadLn);[/code]

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Host := '163.158.182.243';
  IdTCPClient1.Port := 28900;
  IdTCPClient1.Connect;
end;

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
  IdTCPClient1.Socket.Write('001');
  IdTCPClient1.IOHandler.ReadStrings(Memo1.Lines);
  IdTCPClient1.Disconnect;
end;

Пытаюсь получить список серверов
[code]procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Host := '163.158.182.243';
IdTCPClient1.Port := 28900;
IdTCPClient1.Connect;
end;

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
IdTCPClient1.Socket.Write('001');
IdTCPClient1.IOHandler.ReadStrings(Memo1.Lines);
IdTCPClient1.Disconnect;
end;[/code]
Получаю всё, но программа повисает намертво. Где допущена ошибка?