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

[Beermonza]

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

Beermonza, не знаю откуда появилась переменная Autores, но во всех скачанных версиях из этой темы, её там нет.

Пост #246, посмотри, там это решение появилось.

procedure TForm1.StatusBoxChange(Sender: TObject);
var
  st: string;
begin
// если я сервер
If ServerSocket.Active <> false then
  begin
    For j := 0 to ServerSocket.Socket.ActiveConnections -1 do
      Begin
        If (j+1) <> i then ServerSocket.Socket.Connections[j].SendText('3'+IntToStr(StatusBox.ItemIndex)+Setting.NickEdit.Text);
        If UserListView.Items.Item[j].Caption = Setting.NickEdit.Text then
          UserListView.Items.Item[j].ImageIndex := StrToInt(IntToStr(StatusBox.ItemIndex));
      end;
  end
else // если клиент
  begin
    // отправляем всем статус+ник
    ClientSocket.Socket.SendText('3'+IntToStr(StatusBox.ItemIndex)+UserMas[i].Name);
    // меняем картинку у себя
    Uitems.ImageIndex := StrToInt(IntToStr(StatusBox.ItemIndex));
  end;

  IniFile := TIniFile.Create(extractfilepath(paramstr(0))+'setting.ini'); // читаем ini
  st := IntToStr(StatusBox.ItemIndex); // то что мы меняем
  IniFile.WriteString('Settings', 'status', st); // пишем в ini изменение
  IniFile.Free;
end;

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

[Razyiller]

ребят вот такой вопрос, почему чат не работает с динамическим IP?

[Beermonza]

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

ребят вот такой вопрос, почему чат не работает с динамическим IP?

Потому, что это TCP/IP, в основе которого должен быть сервер с чистым (белым, прямым) IP-адресом, ...какой у клиента совершенно не важно. Это не UDP с его бродкастами и всеобщем пофигизмом и "наложизмом" на прочих пользователей все той же глобальной сети.

[Razyiller]

а как реализована вставка смайликов?

[Beermonza]

В исходном варианте смайлов нет.

[Razyiller]

а последующих вариантах?

[Beermonza]

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

[Pypkin30159]

Люди помогите реализовать кик из чата. Перечитал всю тему нашел несколько способов решения это проблемы но они работают не так как хотелось бы. В идеале мне надо Выделить юзера из списка и нажать кнопку Кик и все.
Этот код не подходить потому что он не банит выделенного пользователя а просто последнего пользователя в списке-

ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnections-1].RemoteAddress;
ServerSocket.Socket.Connections[ServerSocket.Socket.ActiveConnections-1].Close;

в этом случае компилятор выдает ошибку

Ban:=IntToStr(UserListView.Selected.Index);
 ServerSocket.Socket.Connections[Ban].Close;//вот тут [Error] MainUnit.pas(679): Incompatible types: 'Integer' and 'String'
 UpdDo:= True;

[Beermonza]

Pypkin30159, вы не корректно берете тип данных.

Ban := IntToStr(UserListView.Selected.Index); // Ban - String? 
ServerSocket.Socket.Connections[Ban].Close; // Connections[{Int}] - нужен числовой тип.

Перепишите вот так:

ServerSocket.Socket.Connections[UserListView.Selected.Index].Close;

...или если нужна переменная, то так:

Ban := UserListView.Selected.Index;       // Ban - Byte, Word, Integer
ServerSocket.Socket.Connections[Ban].Close;

[Pypkin30159]

Спасибо но все равно не работает нормально.
Взял этот код

Var
Ban:Byte;
...
procedure TForm1.N4Click(Sender: TObject);
begin
Ban := UserListView.Selected.Index;       // Ban - Byte, Word, Integer
ServerSocket.Socket.Connections[Ban].Close;
UpdDo:= True;
end;

ServerSocket.Socket.Connections[UserListView.Selected.Index].Close;

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