Как работать с очень большими масивами / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

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

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как работать с очень большими масивами

25 сообщений из 315, страница 9 из 13

все

Как работать с очень большими масивами

#39597500

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

Если база для тебя - нечто "промежуточное", можно отключить "forced writes".

...

Рейтинг:

0 / 0

06.02.2018, 15:01

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597510

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

Ну и используй параметры.

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.

 try
   start:=GetTickCount;
   with ibquery2 do
   transaction.starttransaction;
   sql.text:=  
       'insert into flux ("Кампания","Время","ТВС","Слой","ТвЭл","FLUX E<1МэВ","FLUX E>1МэВ") values ('
        +':Pi, :Pj, :Pk, :Pl, :Pm, 1, 1,)';
   Prepare;
   for i := 1 to 3 do
     for j := 1 to 2 do
      for k := 1 to 163 do
        for l := 1 to 60 do
          for m := 1 to 10 do
   begin
     sql.ParamByName('Pi').AsInteger := i;
     sql.ParamByName('Pj').AsInteger := j;
...
    execSQL;
   end;
    transaction.commit;
    transaction.Active:=false;

   IBquery1.Close;
   ibquery1.Open;
   finish:=GetTickCount;
   form2.TimeLabel.Caption:=('Время заполнения: '+floattostr((finish-start)/1000)+' секунд');
  except
   if ibquery1.active then
    ibquery2.transaction.rollback;
   showmessage ('Ошибка');
  end;

PS: может и не заработать: с IBX я давно не работал.Но идея, надеюсь, понятна.

...

Рейтинг:

0 / 0

06.02.2018, 15:11

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597513

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

Да, и вместо TIBQuery используй TIBSQL.

...

Рейтинг:

0 / 0

06.02.2018, 15:12

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597573

Андрей Игоревич

Гость

wadmanАндрей Игоревич1. Банальный вопрос: как очистить файл БД?
Удаляй файл, пересоздавай базу.

А если не пересоздавать базу, а очищать значения, база так и будет неконтролируемо расти или остановится на некотором объеме?

чччДВынеси
transaction.starttransaction
и
transaction.commit
за пределы циклов.
Помогло, время заполнения уменьшилось до 90 секунд.

чччДЕсли база для тебя - нечто "промежуточное", можно отключить "forced writes".
А что это поменяет? В плане что это параметр регулирует?

чччДНу и используй параметры.

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.

 try
   start:=GetTickCount;
   with ibquery2 do
   transaction.starttransaction;
   sql.text:=  
       'insert into flux ("Кампания","Время","ТВС","Слой","ТвЭл","FLUX E<1МэВ","FLUX E>1МэВ") values ('
        +':Pi, :Pj, :Pk, :Pl, :Pm, 1, 1,)';
   Prepare;
   for i := 1 to 3 do
     for j := 1 to 2 do
      for k := 1 to 163 do
        for l := 1 to 60 do
          for m := 1 to 10 do
   begin
     sql.ParamByName('Pi').AsInteger := i;
     sql.ParamByName('Pj').AsInteger := j;
...
    execSQL;
   end;
    transaction.commit;
    transaction.Active:=false;

   IBquery1.Close;
   ibquery1.Open;
   finish:=GetTickCount;
   form2.TimeLabel.Caption:=('Время заполнения: '+floattostr((finish-start)/1000)+' секунд');
  except
   if ibquery1.active then
    ibquery2.transaction.rollback;
   showmessage ('Ошибка');
  end;

PS: может и не заработать: с IBX я давно не работал.Но идея, надеюсь, понятна.
Подправил на

код

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.

 try
   start:=GetTickCount;
   ibquery2.transaction.starttransaction;
   with ibquery2 do
    begin
      sql.text:=
       'insert into flux ("Кампания","Время","ТВС","Слой","ТвЭл","FLUX E<1МэВ","FLUX E>1МэВ") values (:Pi, :Pj, :Pk, :Pl, :Pm, 1, 1)';
      Prepare;

     for i := 1 to 3 do
      for j := 1 to 2 do
       for k := 1 to 163 do
        for l := 1 to 60 do
          for m := 1 to 10 do
           begin
              ParamByName('Pi').AsInteger := i;
              ParamByName('Pj').AsInteger := j;
              ParamByName('Pk').AsInteger := k;
              ParamByName('Pl').AsInteger := l;
              ParamByName('Pm').AsInteger := m;
              execSQL;
            end;
    end;

   //  ibquery2.
    ibquery2.transaction.commit;
    ibquery2.transaction.Active:=false;

   IBquery1.Close;
   ibquery1.Open;
   finish:=GetTickCount;
   form2.TimeLabel.Caption:=('Время заполнения: '+floattostr((finish-start)/1000)+' секунд');

  except
   if ibquery1.active then
    ibquery2.transaction.rollback;
   showmessage ('Ошибка');
  end;

помогло, время уменьшилось до 31 сек, хотя я удивлен, думал с точки зрения СУБД это одинаковые команды...

чччДДа, и вместо TIBQuery используй TIBSQL.
А вот это особо не помогло, время почти не изменилось (с 31 до 30 сек, в порядке погрешности).

В общем уже намного лучше в 20 раз, но всё равно многовато...

...

Рейтинг:

0 / 0

06.02.2018, 16:29

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597581

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

Используй под файл базы быстрый накопитель SSD.

Можно вообще на виртуальном (который в оперативной памяти) диске базу разместить.

Спросить совета у товарищей здесь: http://www.sql.ru/forum/interbase

...

Рейтинг:

0 / 0

06.02.2018, 16:34

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597582

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

Возможно, тебе просто типизированный файл подойдет.
Непонятна твоя задача ибо. Когда абстрактно "нужно много и быстро" - так чаще всего не получится.

...

Рейтинг:

0 / 0

06.02.2018, 16:37

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597585

vavan

Участник

Откуда: Казань

Сообщения: 3 597

Рейтинг: 0 / 0

Андрей Игоревич, от ахулиарда ParamByName тоже хорошо бы избавиться вынеся выдергивание параметров за цикл

...

Рейтинг:

0 / 0

06.02.2018, 16:38

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597586

vavan

Участник

Откуда: Казань

Сообщения: 3 597

Рейтинг: 0 / 0

да и батчами по уму надо вставлять а не по одной записи, но это не каждый дак пожалуй сумеет

...

Рейтинг:

0 / 0

06.02.2018, 16:40

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597595

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

vavanАндрей Игоревич, от ахулиарда ParamByName тоже хорошо бы избавиться вынеся выдергивание параметров за цикл
+1

Создай объекты - параметры заранее:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.

var
  fPi :TParam;
  fPj: TParam;
  fPk: TParam;
begin
  fPi:= fIBQ.ParamByName('Pi');
  fPj:= fIBQ.ParamByName('Pj');
  fPk:= fIBQ.ParamByName('Pk');

А потом перед каждым выполнением ExecSQL обращайся к ним:

Код: pascal

1.
2.
3.

  fPi.AsInteger := i;
  fPj.AsInteger := j;
  fPk.AsInteger := k;

...

Рейтинг:

0 / 0

06.02.2018, 16:46

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597597

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

vavanда и батчами по уму надо вставлять а не по одной записи, но это не каждый дак пожалуй сумеет
IBX вряд ли такое может. :)
FIB+ так делает, используя ExecuteBlock... ну, можно руками.
........
Тут непонятно, что в итоге ТС хочет получить. Залить данные он может и зальет, но вот обратно - как получать думает? Эмулятор многомерного массива? Будет ли структура пригодной для быстрого доступа?

...

Рейтинг:

0 / 0

06.02.2018, 16:49

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597601

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

Андрей ИгоревичА если не пересоздавать базу, а очищать значения, база так и будет неконтролируемо расти или остановится на некотором объеме?

База расти не будет.
Более того, ходят слухи, что повторная запись в уже созданный ранее (о "очищенный") файл будет быстрее, чем в новый.

...

Рейтинг:

0 / 0

06.02.2018, 16:55

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597607

Dim2000

Участник

Откуда: Москва

Сообщения: 5 439

Рейтинг: 0 / 0

06.02.2018 14:51, Андрей Игоревич пишет:

> 1. Какие вообще БД можно использовать без поднятия сервера для указанных
> выше задач (массивы с 10кккк значений)?

Никакие. Любая серьёзная СУБД - это сервер.

> одним фалом типа .ддл? Просто на основном рабочем компьютере абсолютный
> минимум прав, а дергать админа ради установки сервера., ну такое.

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

> 1. Банальный вопрос: как очистить файл БД?

Это не "банальный вопрос", а до тошноты затрахавший баян. В общем случае
- выгрузкой/загрузкой. Но этого делать не нужно.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

06.02.2018, 17:04

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597608

Андрей Игоревич

Гость

чччДИспользуй под файл базы быстрый накопитель SSD.

Можно вообще на виртуальном (который в оперативной памяти) диске базу разместить.

Спросить совета у товарищей здесь: http://www.sql.ru/forum/interbase

На данный момент и так на весьма быстром SSD (M2) всё крутится,
варианты с оперативной памятью можно и без БД сделать :), для отдельных задач так и делаю.

чччД Возможно, тебе просто типизированный файл подойдет.
Непонятна твоя задача ибо. Когда абстрактно "нужно много и быстро" - так чаще всего не получится.
Как раз типизированными файлами сейчас и реализовано. Но стандартные "File of record" больше двух гигов (NTFS, если что) тоже вылетают с ошибкой (вне зависимости от числа записей,надо разбираться, отложил на "после освоения варианта с БД"), либо делать кучу файлов.

vavanАндрей Игоревич, от ахулиарда ParamByName тоже хорошо бы избавиться вынеся выдергивание параметров за цикл
А как? Что-то не соображу. понял, спасибо.
vavanда и батчами по уму надо вставлять а не по одной записи, но это не каждый дак пожалуй сумеет
Я так понимаю, тут что-то на тему пакетной записи/транзакций? Где в одно действие добавляется много строк?

чччДvavanАндрей Игоревич, от ахулиарда ParamByName тоже хорошо бы избавиться вынеся выдергивание параметров за цикл
+1

Создай объекты - параметры заранее:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.

var
  fPi :TParam;
  fPj: TParam;
  fPk: TParam;
begin
  fPi:= fIBQ.ParamByName('Pi');
  fPj:= fIBQ.ParamByName('Pj');
  fPk:= fIBQ.ParamByName('Pk');

А потом перед каждым выполнением ExecSQL обращайся к ним:

Код: pascal

1.
2.
3.

  fPi.AsInteger := i;
  fPj.AsInteger := j;
  fPk.AsInteger := k;

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

чччДТут непонятно, что в итоге ТС хочет получить. Залить данные он может и зальет, но вот обратно - как получать думает? Эмулятор многомерного массива? Будет ли структура пригодной для быстрого доступа?
Проблемы надо решать по мере поступления :), для начала надо хоть БД заполнить :).
А вообще, если запрос к одиночной строке будет достаточно быстрым (измерятся в миллисекундах, а не в секундах), то меня уже устроит, в программе заранее будет производится нужная математика, а с БД нудно будет выцеплять значения по индексам, при том не слишком много за раз, до 100к.
Задачи сразу над всем массивом данных я сейчас реализую в процессе считывания (результаты проще сохранить, нежели исходные данные).

...

Рейтинг:

0 / 0

06.02.2018, 17:05

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597617

Андрей Игоревич

Гость

Dim200006.02.2018 14:51, Андрей Игоревич пишет:

> 1. Какие вообще БД можно использовать без поднятия сервера для указанных
> выше задач (массивы с 10кккк значений)?

Никакие. Любая серьёзная СУБД - это сервер.

> одним фалом типа .ддл? Просто на основном рабочем компьютере абсолютный
> минимум прав, а дергать админа ради установки сервера., ну такое.

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

> 1. Банальный вопрос: как очистить файл БД?

Это не "банальный вопрос", а до тошноты затрахавший баян. В общем случае
- выгрузкой/загрузкой. Но этого делать не нужно.

У меня сейчас на компе стоят конечноэлементные расчетные комплексы, которые работают даже с 100кккк значений, и как я понимаю там тоже реализовано по средством БД, хоть и собственной.

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

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

...

Рейтинг:

0 / 0

06.02.2018, 17:13

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597635

vavan

Участник

Откуда: Казань

Сообщения: 3 597

Рейтинг: 0 / 0

Андрей ИгоревичЯ так понимаю, тут что-то на тему пакетной записи/транзакций? Где в одно действие добавляется много строк?все верно. это способно дико ускорить вставку
Андрей ИгоревичНи на что не повлияло, время даже возрослоа как уж щаз код выглядит?

...

Рейтинг:

0 / 0

06.02.2018, 17:35

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597658

Андрей Игоревич

Гость

vavanАндрей ИгоревичЯ так понимаю, тут что-то на тему пакетной записи/транзакций? Где в одно действие добавляется много строк?все верно. это способно дико ускорить вставку
Андрей ИгоревичНи на что не повлияло, время даже возрослоа как уж щаз код выглядит?

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.

  try
   start:=GetTickCount;
   ibquery2.transaction.starttransaction;

  // fPn:= ibquery2.ParamByName('Pn');
   with ibquery2 do
    begin
      sql.text:=
       'insert into flux ("Кампания","Время","ТВС","Слой","ТвЭл","FLUX E<1МэВ","FLUX E>1МэВ") values (:Pi, :Pj, :Pk, :Pl, :Pm, 1, 1)';
      Prepare;

   fPi:= ibquery2.ParamByName('Pi');
   fPj:= ibquery2.ParamByName('Pj');
   fPk:= ibquery2.ParamByName('Pk');
   fPl:= ibquery2.ParamByName('Pl');
   fPm:= ibquery2.ParamByName('Pm');

     for i := 1 to 3 do
      for j := 1 to 2 do
       for k := 1 to 163 do
        for l := 1 to 60 do
          for m := 1 to 10 do
            begin
              fPi.AsInteger:= i;
              fPj.AsInteger := j;
              fPk.AsInteger:= k;
              fPl.AsInteger := l;
              fPm.AsInteger := m;
              execSQL;
            end;
    end;

   //  ibquery2.
    ibquery2.transaction.commit;
    ibquery2.transaction.Active:=false;

   IBquery1.Close;
   ibquery1.Open;
   finish:=GetTickCount;
   form2.TimeLabel.Caption:=('Время заполнения: '+floattostr((finish-start)/1000)+' секунд');

Правда сейчас я уже дома, тут firebirdа нету, да и ссылки на БД надо править, так что правки смогу сделать только завтра (лень дома всё настраивать, хотя...).

...

Рейтинг:

0 / 0

06.02.2018, 18:11

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597741

VDSoft777

Гость

Андрей ИгоревичВариант с админом для моего компа не критичен, просто тогда на любом другом компе, где надо запустить программу нужно запускать сервер, либо организовывать связь с моим компом. Можно, конечно, но как-то слишком много действий ненужных для задачи.
В этом месте вас ввели в заблуждение, - FB прекрасно работает в однопользовательском локальном встраиваемом режиме, правда для использования данной возможности необходима патченная IBX либо что-то из более современно-функциональных компонентов доступа. Тот же FireDAC, например, если выбирать из штатной поставки.

...

Рейтинг:

0 / 0

06.02.2018, 20:24

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597744

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

VDSoft777... необходима патченная IBX...
?

...

Рейтинг:

0 / 0

06.02.2018, 20:28

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597749

VDSoft

Участник

Сообщения: 35

Рейтинг: 0 / 0

чччД,

Для того чтобы указать ей нужную VendorLibrary.

...

Рейтинг:

0 / 0

06.02.2018, 20:32

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597752

Андрей Игоревич

Гость

VDSoft777Андрей ИгоревичВариант с админом для моего компа не критичен, просто тогда на любом другом компе, где надо запустить программу нужно запускать сервер, либо организовывать связь с моим компом. Можно, конечно, но как-то слишком много действий ненужных для задачи.
В этом месте вас ввели в заблуждение, - FB прекрасно работает в однопользовательском локальном встраиваемом режиме, правда для использования данной возможности необходима патченная IBX либо что-то из более современно-функциональных компонентов доступа. Тот же FireDAC, например, если выбирать из штатной поставки.

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

П.С. Не стоит забывать, что лицензии на Делфи у меня тоже нет :).
П.С. В теории можно даже Делфи запросить и купить и много чего можно, но никто в здравом уме никогда не тронет бюрократического монстра без веской причине, он просто "съест" такого инициативного.

...

Рейтинг:

0 / 0

06.02.2018, 20:34

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597754

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

VDSoftчччД,

Для того чтобы указать ей нужную VendorLibrary.
Что есть "VendorLibrary" и для чего нужно патчить IBX при работе FB
в однопользовательском локальном встраиваемом режиме,и отчего это "встраиваемый режим" должен быть "однопользовательским"?

...

Рейтинг:

0 / 0

06.02.2018, 20:37

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597756

VDSoft

Участник

Сообщения: 35

Рейтинг: 0 / 0

Андрей Игоревич,

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

...

Рейтинг:

0 / 0

06.02.2018, 20:41

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597761

VDSoft

Участник

Сообщения: 35

Рейтинг: 0 / 0

чччД,

Патамучта в состоянии искаропки эта окаменелость с FB в режиме Embedded Server работать почему-то не желает. Вы погодите забрасывать новыми вопросами, поищите.по форуму, - буквально в прошлом году этот вопрос снова всплывал и один из участников приводил свой вариант возможного патча.

...

Рейтинг:

0 / 0

06.02.2018, 20:48

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597765

fd00ch

Участник

Откуда: Нижний Новгород

Сообщения: 5 958

Рейтинг: 0 / 0

а че, ParamByIndex в IBX нема?

...

Рейтинг:

0 / 0

06.02.2018, 20:53

| Ответить | Цитировать | Написать

Как работать с очень большими масивами

#39597768

VDSoft

Участник

Сообщения: 35

Рейтинг: 0 / 0

fd00ch,

Их есть у него. Но предложенный выше вариант обращения сразу по сохранённым указателям все равно д.б. Самым быстрым. Т.е. В этом случае вообще ничего не искать.))

...

Рейтинг:

0 / 0

06.02.2018, 20:58

| Ответить | Цитировать | Написать

25 сообщений из 315, страница 9 из 13

все

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как работать с очень большими масивами

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=58&msg=39597586&tid=2041256]:	0ms
get settings:	10ms
get forum list:	16ms
check forum access:	3ms
check topic access:	3ms
track hit:	159ms
get topic data:	9ms
get forum data:	3ms
get page messages:	68ms
get tp. blocked users:	2ms
others:	249ms

total:	522ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы