Отслеживание утечек памяти в Delphi XE4

[MainUnit.pas]

Есть несколько хороших (бесплатных) профилировщиков для Delphi:
1. SpiderProfiler (http://dbg-spider.net)
2. SamplingProfiler (http://www.delphitools.info/samplingprofiler/)
3. gpprofiler (http://code.google.com/p/gpprofile2011/wiki/GpProfile)

Все они поддерживают Delphi XE4. Но... они не отображают исходный код профилируемой программы! Не получается увидеть место в коде, содержащее утечку!

Пруф:
http://imageshack.com/a/img842/5258/hay6.png http://imageshack.com/a/img132/1536/7ep1.png http://imageshack.com/a/img850/4984/ssqv.png

[Человек_Борща]

Дело в том, что код вызвали когда-то, а утечка может произойти не сразу. Большинство профилировщиков вообще подсчитывает память только при завершении ПО.
И в очень большом кол-ве случаев, код на который указывает ПО не верен и искать проблему надо в другом месте.


Попробуйте MadExcept, там есть отслеживание утечек памяти.

[MainUnit.pas]

Человек_Борща, спасибо за ответ!
MadExcept и Eurekalog - классные.
Хотелось бы ещё статистику по коду. Какая часть выполняется дольше всего и что нужно оптимизировать. Как Вы считаете, как лучше поступить?

[Fahman]

dbg-spider_v1.0.10 скачал так какой-то библиотеки не хватает.......

Точнее вот ошибка

"Точка входа в процедуру QueryProcessCycletime не найдена в библиотеке DLL kernel32.dll."

[MainUnit.pas]

Fahman, спасибо за ответ! Жаль, что не работает

[Fahman]

Сообщение от MainUnit.pas

Fahman, спасибо за ответ! Жаль, что не работает

Ага жаль) я тоже нифига не пойму что это но скачал) в хозяйстве думаю пригодится

[MainUnit.pas]

я тоже нифига не пойму что это

Программа, которая ищет утечки памяти.

[Fahman]

Сообщение от MainUnit.pas

Программа, которая ищет утечки памяти.

Да) теперь понял не много Вики помог)

[yavfast]

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

dbg-spider_v1.0.10 скачал так какой-то библиотеки не хватает.......

Точнее вот ошибка

"Точка входа в процедуру QueryProcessCycletime не найдена в библиотеке DLL kernel32.dll."

Я разработчик этой программы...
Она работает только на Windows 7 (возможно, на Vista). Тестируется на XE4, раньше работала на D2010 и XE2.
Профилировщик делаю для собственных производственных нужд, раздаю всем желающим бесплатно. Новые версии выходят регулярно каждый месяц.
Если есть вопросы или предложения, то можно задавать здесь или на мыло.

[FaTaL]

Здравствуйте. Не стал плодить новые темы, так что напишу тут.
Есть некая программа, нужная только мне для включения отключения звука в винде. Каждую секунду, если смотреть через диспетчер задач, в памяти наращивается на 4КБ. Не могу найти утечку памяти. Гляньте плиз на код, может кто что посоветует.

program VolumeService;

uses
  MMSystem, Registry, Windows;

{$R *.res}

function SetWaveVolume(const AVolume: DWORD): Boolean;
var
   WaveOutCaps: TWAVEOUTCAPS;
begin
   Result := False;
   if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) = MMSYSERR_NOERROR then
     if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
       Result := WaveOutSetVolume(WAVE_MAPPER, AVolume) = MMSYSERR_NOERROR;
end;


procedure SetVol;
var
  poss : TPoint;
  W,H : Integer;
begin
  GetCursorPos(poss);
  W:=GetDeviceCaps(GetDC(0),HORZRES);
  H:=GetDeviceCaps(GetDC(0),VERTRES);
  if (poss.X < 10) and (poss.Y < 10) then
    SetWaveVolume(MakeLong(0, 0));
  if (poss.X > W - 10) and (poss.Y > H - 10) then
    SetWaveVolume(MakeLong(65535, 65535));
end;

var
  b   : Boolean;
  reg : TRegistry;
begin
  b := False;
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run\', true);
  reg.WriteString('VolumeService', ParamStr(0));
  reg.CloseKey;
  reg.Free;
  while b = false do
    begin
      SetVol;
      Sleep(300);
    end;
end.