Отсоединение от ServerSocket

[_-Re@l-_]

Вот есть такие куски кода:

type
  TServerThread = class( TServerClientThread )
  private
    fSocketStream : TWinSocketStream;
  public
    procedure ClientExecute; override;
  end;

implementation

uses Unit1;

procedure TServerThread.ClientExecute;
var t : string; // temp string
begin
      inherited FreeOnTerminate := TRUE;
      fSocketStream := TWinSocketStream.Create( ClientSocket, 100000 );
      t:=ClientSocket.RemoteAddress;
      with Form1 do
      begin
        ListBox1.Items.Add(t);
        while (not Terminated) and (ClientSocket.Connected) do
        begin
          // waiting for disconnect
        end;
        ShowMessage('Client Disconnected!');
        // deleting from online Listbox
        ShowMessage(IntToStr(ListBox1.Items.IndexOf(t)));
        ListBox1.Items.Delete(ListBox1.Items.IndexOf(t));
      end;
      fSocketStream.Free();
end;

и

procedure TForm1.Button1Click(Sender: TObject);
begin
      ClientSocket1.Active:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
      ClientSocket1.Close;
end;

Значит, проблема такая. Подсоединяется клиент нормально,сервер это регистрирует. Но вот когда клиент отсоединяется, сервер почему-то ничего не выдаёт и вапше не реагирует на отсоединение. Почему?

[mss]

Потому что для сервера он как был connected, так им и остается.
Not connected он станет когда сервер скажет ClientSocket.Close.

Кроме этого в коде есть грубые ошибки.

[_-Re@l-_]

Потому что для сервера он как был connected, так им и остается.
Not connected он станет когда сервер скажет ClientSocket.Close.

Понял, а как сказать потоку что ClientSocket.Close?

Кроме этого в коде есть грубые ошибки.

Например? Если то, что я не обрабатываю исключения, так не обращайте внимания - их не будет.

[mss]

как сказать потоку что ClientSocket.Close?

Вот прямо так и скажи

как сказать потоку что ClientSocket.Close?

не обрабатываю исключения..их не будет

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

inherited FreeOnTerminate := TRUE;

Этого делать нельзя.

ShowMessage('
ListBox1.Items.Add
ListBox1.Items.Delete

Этого тоже, причем категорически.

[_-Re@l-_]

Этого тоже, причем категорически.

Не согласен. Что плохого в том, что я работаю с ListBox из потока? Тут как раз всё правильно работает. Даже лучше молчите насчёт этого.

Этого делать нельзя.

Ладно, с этим согласен.
Хехе, из потока сделать ClientSocket.Close? Бред какой-то получается - ведь ClientSocket находится на другом компьютере, и отсоединяется он тогда, когда ему нужно, а не когда это нужно серверу.

[_-Re@l-_]

В общем-то говоря, нашёл как решить свою проблему, решил, не очень красиво, но всё-таки.

[_-Re@l-_]

А и проблемы-то не было, ты ж ее из пальца высосал: по факту разрыва соединения с партнером требовалось всего лишь закрыть свой сокет вызовом Close - тогда условие цикла не выполнялось бы и он бы прекращал работу.

Проблема была в том, клиент должен был сам отсоединяться, а не сервер должен был отсоединять его. Вы же мне предлагаете чтобы сервер отсоединял его.

[MaTBeu]

На самом деле все гораздо проще. При отсоединении клиента - отправляйте серверу пакет CLOSE и сервер по этой команде сам отсоеденит клиент.

[_-Re@l-_]

А вот это уже ближе к делу.
Теперь тогда вопрос. Что есть пакет CLOSE?