L2PacketHack 3.5.x

[NLObP]

Выложил свежую версию. Тестируйте.

3.3.8 от 16.09.2008
[+] устранил утечки памяти, спс. Argot;

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

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

ЗЫ по правил немного ошибо попозже выложу ))

Выкладывай, я посмотрю. что можно ещё сделать.

PS: так и не понял, что тут можно сделать:

tmp:='На '+IntToStr(ntohs(LPortConst))+' зарегистрирован локальный сервер';
LogMsg:=PChar(tmp);
SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@LogMsg));

Без IntToStr(ntohs(LPortConst)) утечки нет.

[Faeton]

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

Выложил свежую версию. Тестируйте.

3.3.8 от 16.09.2008
[+] устранил утечки памяти, спс. Argot;

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

Выкладывай, я посмотрю. что можно ещё сделать.

PS: так и не понял, что тут можно сделать:

tmp:='На '+IntToStr(ntohs(LPortConst))+' зарегистрирован локальный сервер';
LogMsg:=PChar(tmp);
SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@LogMsg));

Без IntToStr(ntohs(LPortConst)) утечки нет.

попробуй так:
tmp := format('На %d зарегистрирован локальный сервер',[ntohs(LPortConst)]);
SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@tmp[1]));

[Argot]

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

Выложил свежую версию. Тестируйте.

3.3.8 от 16.09.2008
[+] устранил утечки памяти, спс. Argot;

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

Выкладывай, я посмотрю. что можно ещё сделать.

PS: так и не понял, что тут можно сделать:

tmp:='На '+IntToStr(ntohs(LPortConst))+' зарегистрирован локальный сервер';
LogMsg:=PChar(tmp);
SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@LogMsg));

Без IntToStr(ntohs(LPortConst)) утечки нет.

Вообще для красоты кода все сообщения надо вынести в шаблоны и забить в константы Вида.
const
StartServ= 'На %d зарегистрирован локальный сервер';


юзать
format(StartServ,[ntohs(LPortConst)]);