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

[Vii]

Благодарю за поддержку

[Shouldercannon]

Хоть убей не получается шрифты отцепить. Может ещё что где надо переписать

/ код приема приватного сообщения ---------------------------------------------
                3: Begin
// укажем начальный символ
                     pos:=6;
// обнулим счетчик символов
                     x:=0;
// пробегаем по длине принятой строки
                     For j:=6 to len+1 do
                       Begin
// записываем в счетчик сдвиг
                         x:=x+1;

может здесь?

[Beermonza]

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

может здесь?

Может )) ...смотри с какой позиции начинается просмотр пакета, ...с 6-го байта:

// укажем начальный символ
                     pos:=6;

Укажи pos:=2
Аналогично исправь:

// пробегаем по длине принятой строки
                     For j:=2 to len+1 do
                       Begin

Ищи везде в коде, где фигурирует начало чтение байтов пакета, и изменяй.

Послесловие: великолепная картина, я пытался внести эстетику в чат, а ее тут так грубо режут на корню )))

[Shouldercannon]

Получилось. Только от нуля как избавиться.

// получим текст, код комманды, длину строки
  text:=Socket.ReceiveText();
  com:=StrToInt(Copy(text,1,1));
  len:=Length(text)-1;
// определение комманд
  Case com of
// добавим в ChatRichEdit сообщение с сервера
    0: //ShowColorMassage(text, 0);
    begin
    ChatRichEdit.Lines.Add('');
ChatRichEdit.SelText :=text;
end;

тут добавляется в RichEdit сообщение полностью, как перед добавлением в RichEdit 0 убрать?

[Beermonza]

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

или с использованием уже готовой длины len:

ChatRichEdit.Lines.Add('');
ChatRichEdit.SelText := Copy(text,2,len);

[Shouldercannon]

Спасибо. Тут возникла ещё одна проблема. Приходящее сообщение добавляется целиком в RichEdit. Его надо разбить на две части Ник+текст сообщения, чтобы можно было в RichView их выделить разными цветами.

[Beermonza]

Это сложнее, ...в системе нет разделения на ник и содержимое пакета, что и нужно вам придумать самостоятельно.

[Shouldercannon]

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

procedure TForm1.UpdateUserMas;

procedure TForm1.UpdateUserList;

тоже нужно зделать?

[Beermonza]

Достаточно написать:

UpdDo := True;

...все обновится автоматически.

[Shouldercannon]

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

Это сложнее, ...в системе нет разделения на ник и содержимое пакета, что и нужно вам придумать самостоятельно.

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

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

разделителем ника и текста сообщения является ";"

Теперь самое интересное, его надо обработать

// добавим в REChat сообщение с сервера
    0: begin
    REChat.Lines.Add('');
    REChat.SelText:='['+TimeToStr(Now)+'] '+Copy(text,2,Length(text)-1);

Как это будет выглядеть?