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

[parinoff]

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

Достаточно просто. Программа и сейчас является клиент-серверной. Вам не нужны будут коды управления клиентским сокетом и некоторые его клавиши. Нужно сделать копию с архива, зайти в среду Delphi и вырезать все, что связано с ClientSocket для серверной части, и в другом проекте вырезать все, что связано с ServerSocket для клиентской части.

А ну в принципе я так и сделал))
Спасибо))

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

[Beermonza]

У массива UserMas[i] есть запись Status, ее значение 0 - запись пустая, не использующаяся; 1 - запись занята, там записан подключившийся клиент. Задайте еще одно значение: 2 - офлайн пользователь. Кроме того нужно создать файл, где записаны все когда-либо подключавшиеся пользователи, и при его чтении нужно записывать в массив UserMas[i] данные пользователя с файла, в UserMas[i].Status записывать 2.
В процедуре UpdateUserList добавить условие, если UserMas[i].Status = 2, то добавлять в список пользователя всегда, не удалять его при обновлении и опросе. Цвет изменить нельзя, но можно поставить другую иконку.
Оффлайновые сообщения нужно хранить так же в массиве и в файле. Добавьте запись в тип TUserList примерно такую:

Type
  ...
  OffMsg: array[0..9] of String;     // 10 сообщений
 end;

Разумеется, нужно переписать серверные условия на приватный прием. Принцип: если пользователь найден, и Status <> 2, то отсылаем приватное сообщение ему, ...следом идет условие: если пользователь найден, и Status = 2, то открываем цикл, в нем счетчик считает сообщения, типа Inc(t), и сохраняет текст сообщения в UserMas[i].OffMsg[t], и условие на переполнение счетчика: если t > 9, то t = 0; Вот в принципе и все.

[BiT]

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

+Реализуйте бан пожалуйста!

[Beermonza]

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

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

+Реализуйте бан пожалуйста!

Обратите внимание на процедуру приема команд клиента ClientSocketRead конкретно на структуру Case. Прием приватного сообщения отмечен в условии 3:. Там сейчас процедура вывода текста через ShowColorMassage, добавьте туда строчку с нужным событием, вот так:

procedure TForm1.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
// получим текст, код комманды, длину строки 
  ...
// определение команд
  Case com of
// добавим в ChatRichEdit сообщение с сервера
    0: ...
// отошлем свой ник на сервер
    1: ...
// примем строку списка пользователей
    2: ...
// добавим в ChatRichEdit приватное сообщение с сервера
    3: Begin
          ShowColorMassage(Copy(text,1,5)+Copy(text,7+Length(NikEdit.Text),len-Length(NikEdit.Text)-1), 1);
         // тут строчка запуска звука  
        end;
   end;

  ...
end;

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

ServerSocket.Socket.Connections[i].Lock
ServerSocket.Socket.Connections[i].Unlock

[BiT]

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

// добавим в ChatRichEdit приватное сообщение с сервера
3: Begin
ShowColorMassage(Copy(text,1,5)+Cop y(text,7+Length(NikEdit.Text),len-Length(NikEdit.Text)-1), 1);
// тут строчка запуска звука
PlaySound('C:\sndRemSelf.wav',0,SND _ASYNC);
end;
end;

...
end;[/CODE]

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

ServerSocket.Socket.Connections[i].Lock
ServerSocket.Socket.Connections[i].Unlock

Спасибо большое помогло, А вот с банном не могу не как понять. У вас будет свободное время опишите, пожалуйста, поподробней.

[Beermonza]

Можно сделать еще проще. Нужно вставить в таймер цикл перебирающий массив пользователей, и ищущий пометку бана (это запись в типе), как только пометка найдена, нужно пропускать канал.

procedure TForm1.ServerTimerTimer(Sender: TObject);
begin
// условие на наличие установленных каналов
  If ServerSocket.Socket.ActiveConnections<>0 then
    Begin
// цикл по существующим каналам
      For i:=1 to ServerSocket.Socket.ActiveConnections do
        Begin
          // все что ниже идет через проверку на бан
          ...

Определить номер канала в списке можно так:

UserListView.Selected.Index - 1;
// проверка, чтобы не был выделен сервер

[parinoff]

Привет всем!

А подскажите почему вот так не отправляются сообщения?
Хочу сделать так чтобы был ник потом время написано, потом переход на следующую строку и само сообщение)

// отправляем приватное сообщение
              form1.ClientSocket.Socket.SendText('3'
                                           +'5'
                                           +'1'
                                           +'10'
                                           +PageControl1.ActivePage.Caption+Chr(152)
                                           +form3.NikEdit.Text
                                           +' ('+TimeToStr(Time)+')');


              form1.ClientSocket.Socket.SendText('3'
                                           +FontName
                                           +FontSize
                                           +FontColor
                                           +PageControl1.ActivePage.Caption+Chr(152)
                                           +memo.Text);

[Beermonza]

Что происходит если в один канал клиент без паузы шлет два пакета? ...они схлопываются в один, ...сервер ошибается, считая два пакета за один. Пакет отсылать нужно один раз, а как отобразить содержимое, подряд или с переходами, это уже вопросы к процедуре отображения:

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;

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

Вы можете просто не отправлять ни время ни ник отправителя, только заголовок+приватный ник+текст, а ник отправившего брать из записей сервера по UserMas[i].Name и время местное TimeToStr(Time).

[GIGOMAUNT]

Подскажите как отпровлять сообщение одному клиенту, а не рассылать всем подряд?

[GIGOMAUNT]

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

Подскажите как отпровлять сообщение одному клиенту, а не рассылать всем подряд?

Всё по этому вопросу определился сам! Но возник ещё один. Как мне определить с какого клиента пришло сообщение? Например так:
Клиент прислал на сервер: 'Mes Привет!!'
Соответственно сервер распознал от какого клиента пришло сообщение и только ему отправил в ответ: 'Mes Привет!'