L2PacketHack 3.5.x

NLObP · 23.09.2008, 03:47

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

delphi Код:

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;

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

delphi Код:

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

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

delphi Код:

CloseHandle(SLH);

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

Цитата:

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

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

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