Правильная остановка ServerSocket и ClientSocket

[Kudryavtsev]

Пишу крестики-нолики для игры по сети. В одном приложении вооплощаю и сервер и клиент. Пользователь выбирает сервер он или клиент. Собственно возникла проблема остановки ServerSocket и Clientsocket для смены портов.
Код:
ServerSocket.Active := False;
ServerSocket.Close;
ServerSocket.Port := 1234;
ClientSocket.Active := False;
ClientSocket.Close;
ClientSocket.Port := 1235;
ServerSocket.Active := True;
ClientSocket.Active := True;

такой код не катит...
можете помочь с этими сокетами?)

[Shouldercannon]

ServerSocket.Active := False;

и

ServerSocket.Close;

Походу одно и тоже

  ClientSocket1.Host := '127.0.0.1';
  ClientSocket1.Address := '127.0.0.1';
  ClientSocket1.Port := 1000;
  ClientSocket1.Active := True;

Рзве нельзя всё делать через один порт?

[Stilet]

для смены портов.

Зачем менять порты? смысл в сем действе?

[Kudryavtsev]

Проблема в другом. В программе два компонента ServerSocket и ClientSocket. Нужно сделать возможность выбора - сервер или клиент. Собственно когда выбираю чтобы приложение было серверным, то порты ServerSocket = 8080 а ClientSocket= 8081. Закончилась игра, и игрок захотел подключиться к серверу, собственно нужно сменить порты на ServerSocket = 8081 и ClientSocket= 8080.

procedure TUstoUs.ActivationClick(Sender: TObject);
begin
Server.Port:= 8080;
client.Port:=8081;
Server.Active:=true;
end;

procedure TUstoUs.ConnectionClick(Sender: TObject);
begin
Server.Port:= 8081;
client.Port:=8080;
Client.Host := IpEd.Text;
Client.Address := IpEd.Text;
Client.Active:=true;
Server.Active := true;
end;

Выкидывает ошибку, мол Can't change value while socket is active

P.s. Остановка сокета и смена портов не помогает...сыпало ошибками.

Server.Active:=False;
Server.Port:= 8080;
Server.Active:=true;

даже если использовать задержку delay, всё равно

[Kudryavtsev]

Поможет кто-нибудь?

[Kudryavtsev]

Компетентных людей, способных ответить на мой вопрос, на этом форуме нет?)

[Пепел Феникса]

для сервера более правильным будет так(на мой взгляд):
1)согласно протоколу(и если предусмотрено) оповестить клиентов о том что отключение будет(чтоб они приготовились или же отключились)
2)сервер может(может!!!) подождать пока клиенты сами отключатся или же пока сервер закончит обработку клиентов(если нельзя резко оборвать) или отключить их.
3)закрывает серверный порт.
для клиента:
1)клиент согласно протоколу сообщает серверу что он отключается
2)ждет разрешение сервера(опционально) если например сервер должен чтото сделать(например выдать результат, который клиент должен сохранить)
3)отключается.

[Kudryavtsev]

Ну у меня это происходит когда игра закончена и уже все.
Как мне правильно закрыть сокеты, сменить порты и опять их запустить?