L2PacketHack 3.5.x - Страница 66

NLObP · 01.08.2008, 06:48

Исходники здесь
Вот такие скомпилированные версии есть у меня.

Ниже данные устарели.
Репозиторий находится тут (открывать через SVN клиент)
Удобный просмотр репозитория через браузер тут
Скомпилированные версии тут Пароль к архиву: coderx.ru

Есть ли предложения по модернизации существующего кода с описанием как должно и что хотелось бы заменить/добавить?

Программа пишется в среде Delphi 2007 и Delphi 7 с использованием следующих дополнительных библиотек компонентов:
- FastScript (http://fast-report.com/ru/products/fast-script.html)
- JCL (http://sourceforge.net/projects/jcl/)
- JVCL (http://sourceforge.net/projects/jvcl/)

Дополнительные компоненты брать тут. (<-- TPerlRegEx есть только там)

/upd:
для компиляции последних ревизий понадобятся JCL, JVCL (ссылки выше) а так же:
jwapi2.2a, SyntEdit, TRichView.v11.0+ScaleRichView.v2.0, TsiLang (letitbit / upload.com.ua)
Немного подправленный FastScript искать в файловом архиве.

alexteam · 21.04.2009, 15:35

при добавлении пакета

delphi Код:

if Dump.Count >= MaxLinesInPktLog then
    SavePacketLog;
......

пр-а SavePacketLog

delphi Код:

procedure TfVisual.SavePacketLog;
var
SaveThis: TStringList;
begin
  if not assigned(dump) then exit;

  if ToolButton7.Down then
  begin
    AddToLog(rsSavingPacketLog);
    SaveThis := TStringList.Create;
    SaveThis.Assign(dump);
  end;
  Dump.Clear;
  ListView5.Items.BeginUpdate;
  ListView5.Items.Clear;
  ListView5.Items.EndUpdate;

  if ToolButton7.Down then
  begin
    if CharName <> '' then
      if SaveThis.Count > 0 then
        SaveThis.SaveToFile(PChar(ExtractFilePath(ParamStr(0)))+'logs\'+CharName+' '+AddDateTime+'.txt');
    SaveThis.Destroy;
  end;
end;

ToolButton7 - элемент №10
MaxLinesInPktLog задаеться в ини.
SaveThis создаеться для того чтобы в момент сохранения лога дамп уже был чистым. т.е. избегаю ошибок в предыдущих версиях пх связаных с сохранением пакетов.
есть ошибки ?

Name4Me · 21.04.2009, 16:39

Хм, Добавьте плиз кнопку отключения логов пакетов, так как приведённый выше код не решает проблему и пкх дует память. Был проведён эксперимент запущен пкх 3.4.1.83 при отключённом логе память не дуется полёт нормальный (включений лог дует но это понятно...). в последней версии память дует постоянно, поетому плиз верните кнопку отключение лога... Буду оч благодарен. Заранее спс.

Имхо проблема мож бить в том что память не освобождает ListView5...
Или скорее всего Dump.Clear... так как при очистке со следующим же пакетом память дуеться а етого не должно быть если память освободилась коректно...

alexteam · 21.04.2009, 17:22

это чудо на фтп лежит.
пасс на фтп смените.

Добавлено через 17 минут
на фтп не лезу пока не разберетесь что там происходит то.
но судя по тому что я вижу, происходит это только на конкретно взятой машине %)

Добавлено через 9 минут

Цитата:

Имхо проблема мож бить в том что память не освобождает ListView5...
Или скорее всего Dump.Clear... так как при очистке со следующим же пакетом память дуеться а етого не должно быть если память освободилась коректно...

в этих моментах все правильно.. а вот при сохранении лога вместо дестроя временный обьект разрушаеться с помощью free.
отключи автосохранение лога.
10й элемент здесь.
http://l2phx.pp.ru/arhive/l2ph_help/...onnections.jpg
и
1й элемент здесь.
http://l2phx.pp.ru/arhive/l2ph_help/scr/PSD/s3.jpg

Name4Me · 21.04.2009, 17:32

ММ, сори возможно я не правильно выразился, но нужно не отключение авто сохранения, а отключение ВЕДЕНИЯ лога как такового, какое било реализовано в предыдущих версиях (то есть вернуть кнопку "Запоминать пакеты и сохранять логи")

alexteam · 21.04.2009, 17:36

NLObP,хм. покопался хтмле, нашел редиректы на
Оффтоп
порылся в инете, похожие проблемы существуют, и такие темы подымались в рунете не один раз.
у меня не вылазило только из за банерорезки в фф -(
2хкор, просьба разобраться.

Добавлено через 3 минуты
Name4Me,поставить MaxLinesInPktLog в сетингах в разумный минимум, скажем 100-200.
отключить запоминание логов.
это временное решение, кнопку верну, но не сейчас, у меня сурсы пх очень отличаються от предыдущй ревизии. а тянуть старую ревизию чтобы в нее добавить кнопку считаю нецелесообразным.

ждите следующего билда.

Name4Me · 21.04.2009, 17:49

Цитата:

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

поставить MaxLinesInPktLog в сетингах в разумный минимум, скажем 100-200.
отключить запоминание логов.
ждите следующего билда.

Это не выход так как ток за 5 мин работы пкх с 9 метров набирает 50.
А что будет скажем за сутки...
Пока не исправлено юзаю предыдущую ревизию...
У меня на основе пкх, бот и мне не нужен лог пакетов (точнее нужен только на стадии выявления багов).
Поэтому оч жду нового билда с возможностью отключения лога...

alexteam · 21.04.2009, 19:12

если при этом клиент кушает траффик равный 55+-5 кб/сек то предоставленые цифры вполне реальны

Добавлено через 54 минуты
нет. проблемма не в этом.. вообще не в этом...
только что ради опыта слепил приложеницце в котором делаю вот такое

delphi Код:

var
i:integer;
begin
ListView1.Items.BeginUpdate;
i:=0;
while i< 100000 do
begin
  while ListView1.Items.Count < 10000 do
    ListView1.Items.Add.Caption := 'ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff';
  ListView1.Clear;
  inc(i);
end;

end;

не растет кокос...
то же самое и для объектов tstringlist

Добавлено через 5 минут
прыгает.. но не растет...
хммм...
неужто файлстрим всетаки отображается в память...

Добавлено через 7 минут
нет, не отображаеться.. 2х гтговый файлик на винте а тестовое приложение не увеличилось ни на 1 кб.

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

Name4Me · 21.04.2009, 19:33

Ни один скрипт не включен, плагин тоже... за 10 мин работи пкх в памяти с 3к КБ стал занимать 330к... ХЗ мож у меня в настройках чот не то...

alexteam · 21.04.2009, 19:35

подожди.. подожди.. 300кб+- это сущий пустяк. если учесть что он пакеты кудато скидывает то это можно списать на хранение.
а с скриптами за тот же промежуток времени ?
я пытаюсь "телепатическим методом" найти место где память не очищается... и сейчас под прицелом у меня обработчики инструкций от фастскрипта и сам фастскрипт

Name4Me · 21.04.2009, 19:46

не 300кб а 300000 кб

Добавлено через 1 минуту
Я скрипты не юзаю вобще юзаю плагины...

Добавлено через 2 минуты
Да и смысл врубать скрипты если в холостом режиме меньше чем за 10 мин работы программа выжирает памяти в 100 раз больше чем в начале...