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

[Shouldercannon]

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

Ну, здрасте... ))) Если нужно отобразить строчку, а ее части это TempName и TempText, то как угодно, паровозом их через знак сложения:

Memo1.Lines.Add(TempName+TempText);

Можно еще что-то вставить, если нужно.

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

RVChat.AddText(Copy(text,3+Length(Form2.ENick.Text),len-Length(Form2.ENick.Text)-1),10);

Вот что получается при получении лички

RVChat.AddTextFromNewLine('>> ',10);
RVChat.AddText('['+TimeToStr(Now)+'] ',1);
//Записываем имя и увеличиваем значение счетчика
//MasL.Add(TempName);
RVChat.AddText(Copy(text,3+Length(Form2.ENick.Text),len-Length(Form2.ENick.Text)-1),10);
RVChat.Format;

>> [19:22:23] СерверЂ: (приват) Привет (Тут пока не задействованы TempName с TempText)

Вот что получается с TempName

RVChat.AddTextFromNewLine('>> ',10);
RVChat.AddText('['+TimeToStr(Now)+'] ',1);
RVChat.AddText(TempName,3);
//Записываем имя и увеличиваем значение счетчика
MasL.Add(TempName);
RVChat.AddText(Copy(text,3+Length(Form2.ENick.Text),len-Length(Form2.ENick.Text)-1),10);
RVChat.Format;

>> [19:27:27] Клиент˜СерверСерверЂ: (приват) Привет

С TempName и TempText вообще труба.

[Beermonza]

Нужно выбросить вообще вот это:

RVChat.AddText(Copy(text,3+Length(Form2.ENick.Text),len-Length(Form2.ENick.Text)-1),10);

Оно не нужно, раз уже код нам дал ник пиватного отправителя и содержимое текста сообщения. Пишем так:

With RVChat do
  Begin
    Lines.Add('');
    SelAttributes.Name := 'название шрифта (String)';
    SelAttributes.Size  := 'размер шрифта (Integer)';
    SelAttributes.Color := 'цвет текста (TColor)';
    SelAttributes.Style := 'стиль [fsBold,fsItalic,...]';
    SelText := TempPrivatName;

    // следующая часть
    SelAttributes.Name := 'название шрифта (String)';
    SelAttributes.Size  := 'размер шрифта (Integer)';
    SelAttributes.Color := 'цвет текста (TColor)';
    SelAttributes.Style := 'стиль [fsBold,fsItalic,...]';
    SelText := TempName;

    // следующая часть
    SelAttributes.Name := 'название шрифта (String)';
    SelAttributes.Size  := 'размер шрифта (Integer)';
    SelAttributes.Color := 'цвет текста (TColor)';
    SelAttributes.Style := 'стиль [fsBold,fsItalic,...]';
    SelText := TempText;
  end;

По-моему совсем просто. Если нужен отступ, нужно вставить пробел после переменной, например:

SelText := TempName+' ';

...следующие символы не слипнутся с предыдущими.

[Shouldercannon]

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

Нужно выбросить вообще вот это:

RVChat.AddText(Copy(text,3+Length(Form2.ENick.Text),len-Length(Form2.ENick.Text)-1),10);

Оно не нужно, раз уже код нам дал ник пиватного отправителя и содержимое текста сообщения. Пишем так:

With RVChat do
  Begin
    Lines.Add('');
    SelAttributes.Name := 'название шрифта (String)';
    SelAttributes.Size  := 'размер шрифта (Integer)';
    SelAttributes.Color := 'цвет текста (TColor)';
    SelAttributes.Style := 'стиль [fsBold,fsItalic,...]';
    SelText := TempPrivatName;

    // следующая часть
    SelAttributes.Name := 'название шрифта (String)';
    SelAttributes.Size  := 'размер шрифта (Integer)';
    SelAttributes.Color := 'цвет текста (TColor)';
    SelAttributes.Style := 'стиль [fsBold,fsItalic,...]';
    SelText := TempName;

    // следующая часть
    SelAttributes.Name := 'название шрифта (String)';
    SelAttributes.Size  := 'размер шрифта (Integer)';
    SelAttributes.Color := 'цвет текста (TColor)';
    SelAttributes.Style := 'стиль [fsBold,fsItalic,...]';
    SelText := TempText;
  end;

По-моему совсем просто. Если нужен отступ, нужно вставить пробел после переменной, например:

SelText := TempName+' ';

...следующие символы не слипнутся с предыдущими.

Хорошо. Избавился от

RVChat.AddText(Copy(text,3+Length(Form2.ENick.Text),len-Length(Form2.ENick.Text)-1),10);

и зделал так

RVChat.AddTextFromNewLine('>> ',10);
RVChat.AddText('['+TimeToStr(Now)+'] ',1);
RVChat.AddText(TempName,3);
//Записываем имя и увеличиваем значение счетчика
MasL.Add(TempName);
RVChat.AddText(TempText,10);
RVChat.Format;

Вот что получается на выходе
>> [21:00:52] Клиент˜Сервер: Клиент (приват) Привет

Тоесть кому предназначено (со спец. символом) и кто отправил слиплись. Кому предназначено не затерлось (кому предназначено сис. команда).

[Beermonza]

Если пакет шлется так:

ClientSocket.Socket.SendText('3'+addressee+Chr(152)+Form2.ENick.Text+Chr(128)+': '+MMessage.Text);

...то, тут два ключа Chr(152) и Chr(128), проверка у тебя идет только по Chr(128), ничего удивительного нет, что идет слипание.
Нужно два цикла проверки по разным ключам, в первом выдергивается отправитель, во втором - получатель. Лучше задавать один и тот же ключ в отправке, а циклы на стороне приема производить от нужной позиции, т.е. первый от начала, а второй от той, что была при сбросе первого цикла.

[spirit-ua]

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

Вот так:

procedure TForm1.FormDestroy(Sender: TObject);
begin
// проверка, программа в режиме клиента
  If ClientSocket.Active=True then
    Begin
      ClientSocket.Socket.SendText('0['+TimeToStr(Time)+': '+NikEdit.Text+' отключился');
    end;
end;

Пока код внутри не завершит свою работу, форма не выгрузится. Можно быть уверенным, сообщение дойдет до сервера.

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

Неужели вы думаете, что я дал вам нерабочий код? ))) ...смотрите внимательно где у вас закрывается сокет, ...может FormClose заполнен? ...в исходном виде, после нажатия красного крестика на форме, сервер видит сообщение отключившегося клиента, после чего обновляет список.

Да не работает, ради эксперемента создал новый проэкт где в OnClose и OnDestroy ничего нету, цепляю приведенный вами код, не работает...
По ходу форма быстрее закрывается и сообщение не успевает отправиться...

P.S. Клиент и серевер у меня разнесен (в разных приложениях), хоят, я думаю, это не имеет значения...

[Shouldercannon]

Столкнулся с таким косяком. Сервер стал часто тупить при обработке юзеров, вот что показывает
! .'. У60ЖЕСТ80 .'. !
1NSY11NSY
Cartman
Dj Fast`1Dj Fast`
jk1jk
KaT9I1KaT9I
kreker1kreker
Неизвестный
Неизвестный
Неизвестный
Неизвестный
Неизвестный
Неизвестный
Неизвестный
НЕКИТ1НЕКИТ
с чем это может быть связано?
P.S. При включении сервера они заходят все сразу (автопереподключение).
И может быть такое, что все одновременно доля секунды в долю секунды подключаются одновременно?

[Beermonza]

spirit-ua, такого просто быть не может. Окно не уничтожится, пока не завершится внутренний код, ...вы уверены что на стороне сервера у вас пакет принимается? Можно посмотреть на сервере код приема сообщения с ключом "0"?

Shouldercannon, сколько бы не подключилось клиентов, они находятся в своих каналах, сервер по-порядку проверяет все, и рассылает запрос на авторизацию. В том и фишка, что пакеты клиентов не теряются, они ждут своей очереди, лежат в буфере, пока сервер не проверит, а проверяет он с дискретностью таймера. Нужно искать ошибку в коде заполнения списка или массива, ...если не ошибаюсь, был код переплетенный со списком и массивом, кто у кого берет данные не совсем понятно, возможно ошибка там. Посчитайте сколько клиентов вначале - их 7, и после них неизвестных тоже 7, похоже на дублирование, и последний вроде вручную создан, да? ...нет?

Послесловие: ...возможно дыра все таки есть, посмотрю как будет время.

[Shouldercannon]

Похоже что действительно дублируются.

и последний вроде вручную создан, да? ...нет?

последний создан не вручную

Вот последняя забивка

! .'. У60ЖЕСТ80 .'. !
[AvP2C-SA]Shouldercannon
[GWB-A] -=|*PuNISHeR*|=-
[GWB-SA]Shouldercannon
Dj Fast`
Shok
Неизвестный
Неизвестный
Неизвестный
Неизвестный
Неизвестный
НЕКИТ

[spirit-ua]

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

spirit-ua, такого просто быть не может. Окно не уничтожится, пока не завершится внутренний код, ...вы уверены что на стороне сервера у вас пакет принимается? Можно посмотреть на сервере код приема сообщения с ключом "0"?

По кнопке ТОЧНО ТАКОЕ ЖЕ сообщение доходит, по Destroy не доходит, куда дальше смотреть???

[Beermonza]

Сообщение от spirit-ua

По кнопке ТОЧНО ТАКОЕ ЖЕ сообщение доходит, по Destroy не доходит, куда дальше смотреть???

Самой последней строчкой в FormDestroy можно написать sleep(2000); - это затянет отключение на 2 секунды, и сообщение пролезет.