L2PacketHack 3.5.x

[NLObP]

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

Ниже данные устарели.
Репозиторий находится тут (открывать через 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 искать в файловом архиве.

[NLObP]

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

хех, совместная разработка похоже рулит), надо будет замутить для новой версии пакетхака SVN или типа того)

Может и для текущей замутишь? Мало ли, еще люди подключатся.

[xkor]

ну можно и с этой начать эксперименты)

[wanick]

да не мешало бы SVN

NLObP, куча замечаний нашел
во вкладке скрипто удаленный скрипт не надо давать редактировать , и сохранять по новой просто пусть весить до обновления. - это я сам сделаю

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

[NLObP]

Подскажите, как устранить здесь утечку памяти?

const
  {The name of the debug info support L2phx}
  StartLocalServer = 'На %d зарегистрирован локальный сервер';
  FailedLocalServer = 'Неудалось зарегистрировать локальный сервер на порте %d'+ #13#10+ 'Возможно этот порт занят другим приложением';
  CreateNewConnect = 'Создано новое соединение - %d';
  ConnectBreak = 'Соединение %d разорвано';



procedure TL2PacketHackMain.Log(var msg: TMessage);
var
  p : Pchar;
begin
  move(Pointer(MSG.lParam)^,P,SizeOf(PChar));
  ListBox3.Lines.Add(p);
end;

procedure sendMSG (msg: string);
var
  LogMsg: pchar;
begin
  LogMsg:=PChar(msg);
  SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@LogMsg));
end;

сам вызов происходит здесь

msg:=format(StartLocalServer,[ntohs(LPortConst)]);
sendMSG (msg);

если в сообщении нет чисел, то все нормально, как только есть, то fastmm4 сообщает о небольшой утеке памяти
типа такого:

This application has leaked memory. The small block leaks are (excluding expected leaks registered by pointer):

13 - 20 bytes: AnsiString x 2
21 - 36 bytes: AnsiString x 2
37 - 52 bytes: AnsiString x 1
53 - 68 bytes: AnsiString x 2
85 - 100 bytes: AnsiString x 1

И ещё. Правильно ли закрываю хэндл потока?

CloseHandle(SLH);

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

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

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

Я не все перенес из твоих исходников?

[Grinch]

опенсорес блин уних не зря таким великим стал )

[Argot]

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

Подскажите, как устранить здесь утечку памяти?

const
  {The name of the debug info support L2phx}
  StartLocalServer = 'На %d зарегистрирован локальный сервер';
  FailedLocalServer = 'Неудалось зарегистрировать локальный сервер на порте %d'+ #13#10+ 'Возможно этот порт занят другим приложением';
  CreateNewConnect = 'Создано новое соединение - %d';
  ConnectBreak = 'Соединение %d разорвано';



procedure TL2PacketHackMain.Log(var msg: TMessage);
var
  p : Pchar;
begin
  move(Pointer(MSG.lParam)^,P,SizeOf(PChar));
  ListBox3.Lines.Add(p);
end;

procedure sendMSG (msg: string);
var
  LogMsg: pchar;
begin
  LogMsg:=PChar(msg);
  SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@LogMsg));
end;

сам вызов происходит здесь

msg:=format(StartLocalServer,[ntohs(LPortConst)]);
sendMSG (msg);

если в сообщении нет чисел, то все нормально, как только есть, то fastmm4 сообщает о небольшой утеке памяти
типа такого:

This application has leaked memory. The small block leaks are (excluding expected leaks registered by pointer):

13 - 20 bytes: AnsiString x 2
21 - 36 bytes: AnsiString x 2
37 - 52 bytes: AnsiString x 1
53 - 68 bytes: AnsiString x 2
85 - 100 bytes: AnsiString x 1

И ещё. Правильно ли закрываю хэндл потока?

CloseHandle(SLH);

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


Я не все перенес из твоих исходников?

я так делаю

procedure TL2PacketHackMain.WmFinished(var msg: TMessage);
var h1:integer;
begin
   h1:=msg.WParam; // хендел отработаного потока
   CloseHandle(h1);
end;

[wanick]

NLObP, все все, это я уже позже заметил

[xkor]

Такс, буду делать для пакетхака SVN репозиторий, в связи с этим есть впросики:
- ктонить знает будет ли ругаться sourceforce.net если там сделать репозиторий?, ругаться может на то что в пакетхаке используется FastScript демоверсии с подавлением окна о том что это демоверсия (кстати тут надыбал исходники FastReport в комплет которых входят и исходники FastScript, комунить надо?)
- стоит ли создавать в категории пакетхака подкатегорию "Разработка", чтобы там все модификации выкладывать и обсуждать собсно разработку?

NLObP, сори что в твоей теме но поскольку твоя модификация на данный момент лучшая (и почти единственная) скоре всего её и сделаем основной версией, если ты не против конечно), а учитывая что ты выкладываеш сори я думаю ты не против)

[QaK]

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

кстати тут надыбал исходники FastReport в комплет которых входят и исходники FastScript, комунить надо?

угу, мне надо.

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

- стоит ли создавать в категории пакетхака подкатегорию "Разработка", чтобы там все модификации выкладывать и обсуждать собсно разработку?

думаю, стоит.

[NLObP]

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

NLObP, сори что в твоей теме но поскольку твоя модификация на данный момент лучшая (и почти единственная) скоре всего её и сделаем основной версией, если ты не против конечно), а учитывая что ты выкладываеш сори я думаю ты не против)

Я только за. Общими усилиями доведем до ума.

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

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

кстати тут надыбал исходники FastReport в комплет которых входят и исходники FastScript, комунить надо?

Мне тоже давай.

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

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

используется FastScript демоверсии с подавлением окна о том что это демоверсия

В исходниках это можно закомментить или удалить совсем. Кому надо поправят. А исполняемый файл на форуме выкладывать правленный.

PS: Еще бы пройтись по исходникам и поправить явные ляпы, которые я внес по незнанию. Заодно прокоментировать, чтобы больше так не делать.