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

[Beermonza]

В исходной программе применен составной ключ команд, первый байт указывает на тип команды, дальше 4 байта - параметры шрифта, дальше данные сообщения, ...удалите байты шрифта, но переработав все коды где выполняется сканирование ключа. Очевидно вы пропустили один обработчик, он ищет число в ключе, но там его нет, натыкается на символ "[" и не может применить его как число, ...смотрите процедуру ShowColorMassage.

[Shouldercannon]

Подозрения падают на эту строчку

ShowColorMassage(Copy(text,1,5)+Copy(text,7+Length(NikEdit.Text),len-Length(NikEdit.Text)-1), 1);

Боюсь без вашей помощи в коде не разобраться. Тяжело такие операции с чужими проектами проделывать.

[Beermonza]

Будем учиться разбирать чужие коды. ShowColorMassage - процедура рукописная, я ее сам написал, ...идем дальше, смотрим ее код:

procedure TForm1.ShowColorMassage(msg: String; index: Byte);
begin
// работаем с полем чата
  With ChatRichEdit do
    Begin
// переход на новую строку
      Lines.Add('');
// название шрифта, смотрим соответствие в списке
      SelAttributes.Name:=Form2.FontComboBox.Items.Strings[StrToInt(Copy(msg,2,1))];
// размер шрифта, смотрим соответствие в списке
      SelAttributes.Size:=StrToInt(Form2.SizeComboBox.Items.Strings[StrToInt(Copy(msg,3,1))]);
// цвет текста, смотрим соответствие в списке (не забываем про хитрость с десяткой)
      SelAttributes.Color:=Form2.ColorBox.Colors[StrToInt(Copy(msg,4,2))-10];
// условия применения стиля к тексту
      If index = 0 then SelAttributes.Style := [];        // обычный (сообщения)
      If index = 1 then SelAttributes.Style := [fsBold];  // полужирный (приват)
      If index = 2 then SelAttributes.Style := [fsItalic];  // курсив (системное)
      // стили можно комбинировать, указать их через запятую, или просто
      // оставить квадратные скобки пустыми
      // может быть 256 вариантов индекса сообщения (0 - 255), ...вольному - воля!
// добавляем текст сообщение в поле чата, только его содержательную часть
      SelText:=Copy(msg,6,Length(msg)-5);
    end;
end;

Сам объект отображения текста (поле чата) - это ChatRichEdit. Работаем с объектом. Lines.Add(''); - просто добавляет пустую строку, попросту делает отступ от предыдущих сообщений, иначе все пойдет слитно. Дальше идет обработка ключа, и последней строкой вывод текста через SelText:=Copy(msg,6,Length(msg)-5);
Фактически, чтобы от всего избавиться, нужно просто вместо вызова процедуры ShowColorMassage(); написать вот эти две строчки:

ChatRichEdit.Lines.Add('');
ChatRichEdit.SelText := {тут переменная типа string};

В оригинале пришедший текст хранится в переменной text, легко видеть это в процедуре ServerTimerTimer и ClientSocketRead.
Чтобы не показывать ключ команды, достаточно скопировать пакет со второго байта и до конца пакета, вот так:

ChatRichEdit.Lines.Add('');
ChatRichEdit.SelText := Copy(text,2,Length(text)-1);

[Shouldercannon]

              ServerSocket.Socket.Connections[i].SendText('0'
                                                          +FontName  // 1 байт - шрифт
                                                          +FontSize  // 1 байт - размер
                                                          +FontColor // 2 байта - цвет
                                                          +'['+TimeToStr(Time)
                                                          +']  '+NikEdit.Text
                                                          +':  '+TextEdit.Text);

          ClientSocket.Socket.SendText('0'
                                       +FontName
                                       +FontSize
                                       +FontColor
                                       +'['+TimeToStr(Time)
                                       +']  '+NikEdit.Text
                                       +':  '+TextEdit.Text);

          ShowColorMassage('0'
                           +FontName
                           +FontSize
                           +FontColor
                           +'['+TimeToStr(Time)
                           +']  '+NikEdit.Text
                           +':  '+TextEdit.Text, 0);

Цифра перед FontName - это номер команды?

[Beermonza]

Да, первая цифра - номер команды, 0 - команда "сообщение". FontName, FontSize, FontColor не нужны.

[Shouldercannon]

ShowColorMassage(Copy(text,1,5)+Copy(text,7+Length(PrivateUser),len-Length(PrivateUser)-1), 1);

ShowColorMassage(Copy(text,1,5)+Copy(text,7+Length(NikEdit.Text),len-Length(NikEdit.Text)-1), 1);

хочу узнать что в этих строках отлавливается с 1 по 5

text,1,5

и

text,7

[Beermonza]

С 1 по 5 символы в пакете text это, соответственно, ключ команды (1 байт) и данные шрифта (4 байта), всего 5 байт. Для чего нужно вообще такую сложность писать:

ShowColorMassage(Copy(text,1,5)+Copy(text,7+Length(NikEdit.Text),len-Length(NikEdit.Text)-1), 1);

Давайте вспомним как создается пакет на приватное сообщение, допустим с клиента. Вот он:

ClientSocket.Socket.SendText('3'
                                           +FontName
                                           +FontSize
                                           +FontColor
                                           +PrivateEdit.Text+Chr(152)
                                           +'>> ['+TimeToStr(Time)
                                           +']  '+NikEdit.Text
                                           +':  '+TextEdit.Text);

Число 3 отвечает за приват, FontName - имя шрифта, число, 1 байт, FontSize - размер шрифта, число, 1 байт, FontColor - цвет шрифта, число, 2 байта, ...дальше идет имя приватного получателя, т.е. кому идет приват, и символ конца имени (это нужно, чтобы брать точно имя из пакета), и следом содержимое пакета со всевозможными вспомогательными знаками.
Смотрим снова запись:

ShowColorMassage(Copy(text,1,5)+Copy(text,7+Length(NikEdit.Text),len-Length(NikEdit.Text)-1), 1);

ShowColorMassage требует полный ключ, это 5 байт, ...пожалуйста, вот он Copy(text,1,5). Дальше, в пакете идет имя приватного получателя, это ваш ник, другой клиент или сервер ввел ваше имя через список, и вам не нужно видеть свое имя в сообщении привата, поскольку сообщение вам уже доставлено безошибочно, поэтому мы начинаем копировать пакет с длины равной длине вашего клиентского имени плюс знак разделения, и того Copy(text, 7+Length(NikEdit.Text), len-Length(NikEdit.Text)-1). len - полная длина пакета. А суммированием двух операций Copy, мы слепляем новую сточку без ненужных данных.
Аналогично и для сервера:

ShowColorMassage(Copy(text,1,5)+Copy(text,7+Length(PrivateUser),len-Length(PrivateUser)-1), 1);

PrivateUser - переменная, хранит имя пользователя, отправившего приват.
Подумайте, с какого символа начинать копировать, если 4-х байт в ключе у вас не будет.

[Shouldercannon]

Будет так

ShowColorMassage(Copy(text,1,1)+Copy(text,3+Length(PrivateUser),len-Length(PrivateUser)-1), 1);

[Vii]

Приветствую всех. Дело вот в чем- требуется сделать систему обмена мгновенными сообщениями. Причем должен быть отдельно сервер и отдельно клиент (аналог ICQ, только упрощенный конечно, нет всяких фич- только обмен сообщениями между онлайн клиентами). Просмотрел сделанный товарищем Beermonza чат- не понятно мне что нужно отдельно для сервера?

[Beermonza]

У серверного приложения удалите ClientSocket и все коды связанные с ним, у клиентского - наоборот ServerSocket.