обновление в блоге - Создание многопользовательского чата

[Pypkin30159]

Может сделать не много по сложнее. Узнать IP адрес пользователя и и кикнуть его через него.

ClientIP:=ServerSocket.Socket.Connections[i].RemoteAddress;

но я ума не прилажу что должна содержать переменная "i"
попыталя это сделать так но он выдает ошибку

procedure TForm1.N4Click(Sender: TObject);
begin
Ban := UserListView.Selected.Index; // Ban - Byte, Word, Integer
ClientIP:=ServerSocket.Socket.Connections[Ban].RemoteAddress;//ошибка [Error] MainUnit.pas(680): Incompatible types: 'Byte' and 'String'
ServerSocket.Socket.Connections[ClientIP].Close;
UpdDo:= True;

[Pypkin30159]

И еще я не пойму как сделать так чтоб я кликнул по нику отправившего сообщение (ПКМ или ЛКМ) и его ник скопировался в окно ввода такста.

[Beermonza]

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

С этими кодами вообще беда! он теперь кикает не того пользователя кого я выделил а вообще в произвольном порядке, кого захочет. По идее я присваиваю индекс выделенного пользователя и принудительно закрываю, но это не происходит

procedure TForm1.N4Click(Sender: TObject); - это видимо процедура кнопки N4, как только по ней производится клик, UserListView теряет выделение конкретной записи (специфика объектного манипулирования). Изучите хорошо компонент TListView, ...доступ к записи всегда можно получить через UserListView.Selected, вот так получить имя пользователя:

{переменная} := UserListView.Selected.Caption;

Посмотрите как работает приват, и аналогичным образом организуйте кик пользователей, с проверкой режима "клиент/сервер".

[Pypkin30159]

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

procedure TForm1.N4Click(Sender: TObject); - это видимо процедура кнопки N4, как только по ней производится клик, UserListView теряет выделение конкретной записи (специфика объектного манипулирования). Изучите хорошо компонент TListView, ...доступ к записи всегда можно получить через UserListView.Selected, вот так получить имя пользователя:

{переменная} := UserListView.Selected.Caption;

Посмотрите как работает приват, и аналогичным образом организуйте кик пользователей, с проверкой режима "клиент/сервер".

Все спасибо за поддержку решил проблему. Не обратил внимание на что выделение слетает.

[Razyiller]

я реализовал так и вроде работает

ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnections-1].Close;
UpdDo:=true;

[Beermonza]

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

я реализовал так и вроде работает:

ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnections-1].Close;
UpdDo:=true;

Этот код выпинывает последнего подключившегося клиента, но не произвольно указанного.

[Pypkin30159]

Есть еще один вопрос как можно реализовать систему разности версий.
Допустим Серверная часть 2.1 а клиент пытается подключится с версией 2.0 то не пустить его на сервер и вывести сообщение с просьбой обновиться.
Все ни как не могу реализовать. Скажите как реализовать эту систему или в какую сторону капать(даже как прописать в поисковике думаю справлюсь).

[Beermonza]

Введите еще один тип команды. Задайте код, какой он там уже будет по счету, 5-й? ...и пусть в UpdateUserMas сервер вместо запроса:

ServerSocket.Socket.Connections[i-1].SendText('1');

шлет:

ServerSocket.Socket.Connections[i-1].SendText('5');

...т.е. сервер "спрашивает версию", в первом случае он запрашивал ник подключившегося.

Вот запрос с сервера по команде 5 ушел, ...клиент должен реагировать на него. В ClientSocketRead case-структуру допишите пункт 5: ...пусть в нем формируется строчка, первый символ которой - код команды "5" далее некий ключ, в котором можно зашифровать версию или явно ее прописать буквами и цифрами.

Итак, клиент отреагировал на запрос сервера и послал ответ. Сервер еще не знает, что это за пакет. Учим его понимать. Идем в процедуру ServerTimerTimer, в case-структуру добавляем пункт 5: ...в нем пишем условие: если пакет с символа 2 и длиной минус 1 равен версии сервера (нужна переменная на сервере, которая хранит версию, или так сравниваем со строчкой, написанной тут же), то отправить клиенту запрос на авторизацию:

ServerSocket.Socket.Connections[i-1].SendText('1');

...иначе (версии не совпали) просто закроем канал:

ServerSocket.Socket.Connections[i-1].Close;
// разрешаем обновление
UpdMas:=True;

Чтобы клиент знал почему его не пускают на сервер, можно зарезервировать еще одну команду, у которой есть ключ (первый символ) и следующий, отвечающий за код сообщения. Клиент сначала должен получить ответ, вывести на экран, затем сервер закрывает канал.

[Pypkin30159]

И еще вопрос как подсчитать количество подключившихся пользователей или какая переменная их содержит.

[Beermonza]

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

И еще вопрос как подсчитать количество подключившихся пользователей или какая переменная их содержит.

ServerSocket.Socket.ActiveConnections