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

[Beermonza]

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

[Shouldercannon]

Используя данный код

                  // Поиск ника в UserMas
                  for i3 := 1 to ServerSocket.Socket.ActiveConnections do
                    begin
                      if UserMas[i3].Name = BannedUnbannedNick then
                        begin
                          // Получим IP забаненого
                          BannedUnbannedIP := ServerSocket.Socket.Connections[i3 - 1].RemoteAddress;

                          if not (BannedUnbannedIP = '127.0.0.1') then
                            begin
                              // Поместим IP забаненого в базу
                              BanIP.Add(BannedUnbannedIP);
                              // Отошлём команду бана
                              ServerSocket.Socket.Connections[i3 - 1].SendText('21');
                              // Добавим событие бана в ServerLog
                              ServerLog.Add('[' + DateTimeToStr(Now) + '] ' + UserMas[i].Name + ' забанил ' 
                              + BannedUnbannedNick + ', IP: ' + BannedUnbannedIP + '. Причина: ' + AdminReason);
                              // Сохраняем ServerLog, BanIP и обновляем массив бана
                              SaveServerLogBanIP;

                              // Отправляем сообщение с сервера всем пользователям
                              for i2 := 0 to ServerSocket.Socket.ActiveConnections - 1 do
                                begin
                                  ServerSocket.Socket.Connections[i2].SendText('12' + UserMas[i].Name + ' забанил '
                                  + BannedUnbannedNick + '. Причина: ' + AdminReason);
                                end;

                              // Отобразим сообщение в ChatView
                              ChatView.AddNL('[' + TimeToStr(Now) + '] ', 1, 0);
                              ChatView.AddText(UserMas[i].Name + ' забанил ' + BannedUnbannedNick + ', IP: '
                              + BannedUnbannedIP + '. Причина: ' + AdminReason, 9);
                              ChatView.Format;

                              RVEChatAutoscroll;

                              // Сбрасываем цикл
                              //Break;
                            end;
                        end;
                    end;
                end;

будет забанен конкретный ник? Допустим в чате: Test, tEST, TesT. Я баню tEST, то в этом случае Test, TesT не затронуться? При поиске обращается внимание на регистр?

[Beermonza]

Две строки сверяются по коду символа, у "П" и "п" разный код. Полное совпадение числа символов, их кода и последовательности вызовет равенство двух строк.

[Shouldercannon]

1.

AssignFile(RangeFile, 'IPRanges.txt');

При автозагрузке без ошибок будет выполнен AssignFile?
2.

  // Инициализация файла
  AssignFile(RangeFile, 'IPRanges.txt');
  try
    // Открыть для чтения
    Reset(RangeFile);
    // Считывание глубины цикла
    ReadLn(RangeFile, Range);

    // Цикл по числу шаблонов
    for a := 1 to Range do
      begin
        ReadLn(RangeFile, IPRange[a].IP1);
        ReadLn(RangeFile, IPRange[a].IP2);
      end;

    // Закрытие файла
    CloseFile(RangeFile);

Можно ли загрузку осуществлять из TStrings? Содержимое будет тоже самое.

[Beermonza]

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

Можно ли загрузку осуществлять из TStrings? Содержимое будет тоже самое.

В смысле? ...путь указать сразу 'IPRanges.txt' ?

[Shouldercannon]

1.

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

В смысле? ...путь указать сразу 'IPRanges.txt' ?

Из файла больше загружать не надо. Надо брать теже самые данные но уже записанные поумолчанию в TStrings или ещё куда-либо.

2. Мои опасения подтвердились. При автозагрузке AssignFile(RangeFile, 'IPRanges.txt'); не может найти файл и здесь насколько я знаю нельзя применить ExtractFilePath(Application.ExeName )

[Beermonza]

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

Автозагрузка - это часть вашей программы, или режим ОС? Если в AssignFile писать только имя и расширение файла, то программа будет его искать в том же месте, где расположен и EXE-файл. Обычно для системных данных используется дополнительный файл, чаще всего ini, ...в нем все пути, по которым следует искать базы данных.

[Shouldercannon]

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

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

Автозагрузка - это часть вашей программы, или режим ОС? Если в AssignFile писать только имя и расширение файла, то программа будет его искать в том же месте, где расположен и EXE-файл. Обычно для системных данных используется дополнительный файл, чаще всего ini, ...в нем все пути, по которым следует искать базы данных.

1. Да, автозагрузка часть моей программы. Как нистранно но работает

AssignFile(RangeFile, ExtractFilePath(Application.ExeName) + 'IPRanges.txt');

[B2][/B]. Попытался пеерйти с файла на TStrings

var
  a: Integer;
  IPRange: array[0..255] of TIPList;
  s: TStrings;
begin
  s := TStrings.Create;
  s.Add('77.108.192.0');
  s.Add('77.108.255.255');
  s.Add('82.209.64.0');
  s.Add('82.209.127.255');
  s.Add('85.234.32.0');
  s.Add('85.234.63.255');
  s.Add('92.246.160.0');
  s.Add('92.246.191.255');
  s.Add('95.83.64.0');
  s.Add('95.83.127.255');

  // Цикл по числу шаблонов
  for a := 1 to 5 do
    begin
      IPRange[a].IP1 := s.Text;
      IPRange[a].IP2 := s.Text;
    end;

Но при нажатии на кнопку появляется ошибка Abstract Error.

[Beermonza]

TStrings не доступен для использования вне компонентов, нужно заменить тип на TStringList:

var
  IPRange: array[0..255] of TIPList;
  s: TStringList;

begin
  s := TStringList.Create;

  s.Add('77.108.192.0');
  s.Add('77.108.255.255');

  IPRange[0].IP1 := s.Strings[0];
  IPRange[1].IP2 := s.Strings[1];
end;

[Shouldercannon]

А если IP-адресов много?