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

[errorrr]

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

[errorrr]

Чуть не забыл в userlistview там находятся ники юзеров как запретить их стирать или изменять

[mishqa35]

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

procedure TForm1.StatusBoxChange(Sender: TObject); - ошибки, с сервера приписка UserMas[i].Name. Разослать с сервера нужно всем, без условий, поскольку каналы числятся на клиентах.

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

[errorrr]

Уважаемый Beermonza а можно вместо

TRxRichEdit если пользуете, то вставлять картинки можно. Создайте формочку, поместите туда сколько нужно объектов Image, закиньте в них все смайлики, на клик по Image запишите переброс некоторого кода в текст сообщения. Создайте процедуру сканирования пришедшего сообщения на потенциальный код смайлика.

Вот это все переделать под веббраузер

[Beermonza]

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

Чуть не забыл в userlistview там находятся ники юзеров как запретить их стирать или изменять

В последнем исходнике установлен запрет на изменение: ReadOnly = True

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

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

Сервер должен отсылать команду смены статуса всем, без исключений:

// если я сервер
If ServerSocket.Active then
  begin
    For j := 0 to ServerSocket.Socket.ActiveConnections -1 do
      Begin
        ServerSocket.Socket.Connections[j].SendText('4'+IntToStr(StatusBox.ItemIndex)+Setting.NickEdit.Text);
      end;
  end
...

Цикл по числу каналов, сервер к нему не относится, поэтому прежнее условие If (j+1) <> i then не корректно, оно отсекает в некоторый момент попытки пользователей передать запросы, если в это же время сервер изменит свой статус. Аналогично у сервера ServerTimerTimer на рассылку Case 4:, без условия If (j+1) <> i then.

Вот тут ошибка техническая:

else // если нет
  begin
    ClientSocket.Socket.SendText('4'+IntToStr(StatusBox.ItemIndex)+UserMas[i].Name);
  end;
end;

У клиента нет массива UserMas, он серверный, ...разумеется ошибки не выдает, поскольку код для Delphi общий, но технически это разные приложения.

ClientSocket.Socket.SendText('4'+IntToStr(StatusBox.ItemIndex);

...клиент шлет только 2 байта, ...ник дописывает сервер, и рассылает всем, без исключений:

// разошлем всем пользователям (кроме того, кто прислал)
For j := 0 to ServerSocket.Socket.ActiveConnections -1 do
   Begin
      ServerSocket.Socket.Connections[j].SendText('4'+Copy(text, 2, 1)+UserMas[i].Name);
   end;

Понятно, почему ник дописывает сервер?

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

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

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

Смотрим ClientSocketRead, и пакет авторизации:

// отошлем свой ник на сервер
    1: ClientSocket.Socket.SendText('1'+NikEdit.Text);

...нужно добавить статус, чтобы сервер с ответа клиента знал его статус:

// отошлем свой ник на сервер
    1: ClientSocket.Socket.SendText('1'+IntToStr(StatusBox.ItemIndex)+NikEdit.Text);

Теперь, чтобы сервер не ошибся с определение ника и статуса ServerTimerTimer:

// код приема ника клиента -----------------------------------------------------
                1: Begin
// запишем в массив полученный ник
                     UserMas[i].Name:=Copy(text,3,len-1);
// отметим, что пользователь записан в список
                     UserMas[i].Rec:=True;
// смена картинки
                     UserMas[i].Image:=StrToInt(Copy(text,2,1));
// отметим авторизацию счетчиком
                     Inc(Autores);
                   end;
// -----------------------------------------------------------------------------

Смотрим UpdateUserList, нужно добавить статус пользователя в список, который создает сервер:

// составляем строку пользователей
          StrUserList:=StrUserList+IntToStr(UserMas[i].Image)+UserMas[i].Name+Chr(152);

...в данном случае, перед ником в списке идет номер картинки. Теперь подправляем алгоритм у клиента ClientSocketRead:

// примем строку списка пользователей
    2: Begin
          ....

// добавим в UserListView строку
                 UItems:=UserListView.Items.Add;
                 UItems.Caption:=Copy(text,pos+1,x-2);
// укажем соответствующую иконку пользователя
                 If pos>2 then UItems.ImageIndex:=StrToInt(Copy(text,pos,1));

Вот, вроде бы и все, ...испытания я не проводил, только теоретически, ...пробуйте, описывайте проблемы, если таковые всплывут.

[Beermonza]

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

[errorrr]

Вот куда здесь написать что бы ник был когда кто заходи или выходит из чата

[mishqa35]

Beermonza, при компиляции вот на этом месте выдает ошибку

Inc(Autores);

[errorrr]

Друзья кодеры не хорошо обманывать людей на этом форуме
я хотел применить вашь код а он то не рабочий и не один он половину корявых кодов статусы не работают в чате
я везде добавил пункт 4
вот в таймере добавил // блокируем разрешений
UpdDo:=False;
end;
// восстанавливаем заголовок формы
Form1.Caption:='Test';
end;
4: begin
// добавим себе
ChatMemo.Lines.Add(Copy(text, 2, 1)+' | '+UserMas[i].Name); // тест status | nick
// разошлем всем пользователям (кроме того, кто прислал)
For j := 0 to ServerSocket.Socket.ActiveConnectio ns -1 do
Begin
If (j+1) <> i then ServerSocket.Socket.Connections[j].SendText('4'+Copy(text, 2, 1)+UserMas[i].Name);
end;
// меняем статус
If UserListView.Items.Item[j].Caption = Copy(text, 3, Length(text)-2) then
Begin
UserListView.Items.Item[j].ImageIndex := StrToInt(Copy(text, 2, 1));
end;

procedure TForm1.UserListViewClick(Sender: TObject);
begin

[errorrr]

procedure TForm1.StatusComboBoxChange(Sender: TObject);
// если я сервер
If ServerSocket.Active <> false then
begin
For j := 0 to ServerSocket.Socket.ActiveConnectio ns -1 do
Begin
If (j+1) <> i then ServerSocket.Socket.Connections[j].SendText('4'+IntToStr(StatusBox.It emIndex)+Setting.NickEdit.Text);
end;
end
else // если нет
begin
ClientSocket.Socket.SendText('4'+In tToStr(StatusBox.ItemIndex)+UserMas[i].Name);
end;
end;

end.