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

[Beermonza]

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

На примере простого сообщения

ClientSocket.Socket.SendText('0'+Form2.ENick.Text+';'+':  '+MMessage.Text);

разделителем ника и текста сообщения является ";"
Теперь самое интересное, его надо обработать
Как это будет выглядеть?

Нужно ознакомиться с процедурой обработки списка пользователей на стороне клиента, а именно с ClientSocketRead:

...
// примем строку списка пользователей
    2: Begin
// очищаем список клиентов
         UserListView.Items.Clear;
// добавим ключ конца строки (т.к. вырезка символов с задержкой)
         text:=text+Chr(152);
// укажем начальный символ
         pos:=2;
// обнулим счетчик символов
         x:=0;
// пробегаем по длине строки списка
         For j:=2 to len+1 do
           Begin
// записываем в счетчик сдвиг
             x:=x+1;
// если найден ключ (отделение ников в строке)
             If Copy(text,j,1)=Chr(152) then
               Begin
// добавим в UserListView строку
                 UItems:=UserListView.Items.Add;
                 UItems.Caption:=Copy(text,pos,x-1);
// укажем соответствующую иконку пользователя
                 If pos>2 then UItems.ImageIndex:=0 else UItems.ImageIndex:=1;
// изменим текущую позицию в строке списка
                 pos:=j+1;
// обнулим счетчик символов
                 x:=0;
               end;
           end;
       end;
...

Немножко подумаем. Логика данного кода такова: ставим указатель в начало принятой строки и сканируем каждый символ, сверяем его с ключом конца, если ключ еще не найден, переносим позицию на 1, т.е. на следующий символ, и так, пока не найдется ключ.
Для этого нужен цикл по-j от 2 до len, в нем условие с вырезкой символа Copy(text,j,1), или text[j] (что равноценно, если вырезается один символ) и сравнением с ключом. В теле условия нужна текстовая переменная, которая наполняется проверенными символами, допустим TempName := TempName + text[j]; ...эта переменная до цикла должна быть обнулена. Как условие найдет ключ, нужно сбросить цикл, использовать break. Ник пользователя, приславшего пакет будет в переменной TempName.
Итак, цикл сброшен, j хранит позицию на которой находится ключ. Достаточно прибавить к j единицу, и это - позиция с которой нужно начинать вырезать содержимое пакета до его конца len. Возможно потребуется коррекция, нужно смотреть не обрезает ли код конец, соответственно, добавлять к len константу (все зависит от ключа команды в начале пакета).

Послесловие: ...я бы рекомендовал использовать в качестве ключа определения ника символ, который нельзя ввести с клавиатуры, это Chr(128), Chr(129), Chr(131) - Chr(138), Chr(140) - Chr(144), Chr(152) - Chr(154), Chr(156) - Chr(165), Chr(174) - Chr(182) и пр.

[Shouldercannon]

Если я правильно понял, то ключ определения должен отсылаться в сообщении

ClientSocket.Socket.SendText('0'+Form2.ENick.Text+Chr(154)+':  '+MMessage.Text);

[Beermonza]

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

Если я правильно понял, то ключ определения должен отсылаться в сообщении

ClientSocket.Socket.SendText('0'+Form2.ENick.Text+Chr(154)+':  '+MMessage.Text);

Конечно, иначе никак это не сделать.

[Shouldercannon]

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

Нужно ознакомиться с процедурой обработки списка пользователей на стороне клиента, а именно с ClientSocketRead:

...
// примем строку списка пользователей
    2: Begin
// очищаем список клиентов
         UserListView.Items.Clear;
// добавим ключ конца строки (т.к. вырезка символов с задержкой)
         text:=text+Chr(152);
// укажем начальный символ
         pos:=2;
// обнулим счетчик символов
         x:=0;
// пробегаем по длине строки списка
         For j:=2 to len+1 do
           Begin
// записываем в счетчик сдвиг
             x:=x+1;
// если найден ключ (отделение ников в строке)
             If Copy(text,j,1)=Chr(152) then
               Begin
// добавим в UserListView строку
                 UItems:=UserListView.Items.Add;
                 UItems.Caption:=Copy(text,pos,x-1);
// укажем соответствующую иконку пользователя
                 If pos>2 then UItems.ImageIndex:=0 else UItems.ImageIndex:=1;
// изменим текущую позицию в строке списка
                 pos:=j+1;
// обнулим счетчик символов
                 x:=0;
               end;
           end;
       end;
...

Немножко подумаем. Логика данного кода такова: ставим указатель в начало принятой строки и сканируем каждый символ, сверяем его с ключом конца, если ключ еще не найден, переносим позицию на 1, т.е. на следующий символ, и так, пока не найдется ключ.
Для этого нужен цикл по-j от 2 до len, в нем условие с вырезкой символа Copy(text,j,1), или text[j] (что равноценно, если вырезается один символ) и сравнением с ключом. В теле условия нужна текстовая переменная, которая наполняется проверенными символами, допустим TempName := TempName + text[j]; ...эта переменная до цикла должна быть обнулена. Как условие найдет ключ, нужно сбросить цикл, использовать break. Ник пользователя, приславшего пакет будет в переменной TempName.
Итак, цикл сброшен, j хранит позицию на которой находится ключ. Достаточно прибавить к j единицу, и это - позиция с которой нужно начинать вырезать содержимое пакета до его конца len. Возможно потребуется коррекция, нужно смотреть не обрезает ли код конец, соответственно, добавлять к len константу (все зависит от ключа команды в начале пакета).

Послесловие: ...я бы рекомендовал использовать в качестве ключа определения ника символ, который нельзя ввести с клавиатуры, это Chr(128), Chr(129), Chr(131) - Chr(138), Chr(140) - Chr(144), Chr(152) - Chr(154), Chr(156) - Chr(165), Chr(174) - Chr(182) и пр.

Хм сложновато. А нельзя сразу при добавлении текста в RichEdit произвести копирование
команда отсыла сообщения будет выглядеть так

ClientSocket.Socket.SendText('0'+Chr(154)+Form2.ENick.Text+Chr(154)+':  '+MMessage.Text);

добавляем в RichEdit
скопирует значение начиная с первого Chr(154) (ник), скопируем значение со второго Chr(154) (текст сообщения)

[Beermonza]

Все равно нужно перебирать байты.

скопирует значение начиная с первого Chr(154) (ник), скопируем значение со второго Chr(154) (текст сообщения)

Что вообще логически это значит? ...чтобы что-то в пакете найти, нужно от начала сканировать на предмет ключа. Или в ключ команды вшить длину ника, приславшего пакет. В любом случае от перебора и манипуляции не избавиться. Это легко, когда с клиента посылаешь пакет, и у него же в поле отображение его сообщения, там элементарное копирования с полей ника привата. А если пакет получает тот, кто не писал приват, как он узнает сколько там символов в нике отправителя? ...только со сканированием.

[mnbvcxz11]

Вопрос по бан систему

Сама эта система бан сбоев не даст?
И бывают ли одинаковые IP?

[Beermonza]

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

Сама эта система бан сбоев не даст?
И бывают ли одинаковые IP?

Сплошь и рядом один IP-адрес на подсеть в Интернете, и не возможно ошибиться или обойти бан в ЛВС.
Т.е. если мы баним в Интернете IP-адрес, то возможно, если там подсеть, то все остальные, пользующие этот чат, тоже не зайдут, такова реальность.

[mnbvcxz11]

В этой программе возможно отправить файлы
хотя бы по локальной сети.
Как это можно сделать?

[Beermonza]

Эта программа задается основной целью: "передать текст". Если нужно передать файлы, пожалуйста, создавайте Stream и отправляйте любые файлы, хоть в ЛВС, хоть в Интернет. Как это делается найдете в разделе форума "Работа с сетью в Delphi".

[spirit-ua]

Смотрел код отправки личных сообщений, как то все слишком накручено...
Я реализовал таким образом:
1. Если личное сообщение - ставлю код команды 4 и цепляю к нему НЕ НИК которому отсылаю сообщение, а его порядковый номер в списке пользователей (он одинаковый у всех пользователей и на сервере, ЭТОТ метод более правильный т.к. в списке может быть 2 и боле пользователей с одинаковым именем Вася, Коля и т.д.)
2. При разборе сообщения проверяю код, если 4 - отсылаю только в канал которому предназначено сообщение.
Жду критики от автора...

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