ViaThinkSoft CodeLib
This article is in:
CodeLib → Programming aids → Delphi
Folgender Hack sorgt für Abhilfe:
uses
FastMM4, IdStack;
procedure IndyRegisterExpectedMemoryLeak; // for Indy 10
type
PObject = ^TObject;
var
bak: byte;
m: pointer;
begin
if DebugHook = 0 then exit;
bak := DebugHook;
DebugHook := 0; // AccessViolation nicht zeigen
try
// Wir müssen das Symbol GStackCriticalSection in IdStack.pas finden.
// Leider ist es im implementation-Abschnitt versteckt.
// Deshalb suchen wir die Adresse mit diesem ekelhaften Hack.
(*
TIdStack.DecUsage:
00634BEC 55 push ebp
00634BED 8BEC mov ebp,esp
00634BEF 51 push ecx
00634BF0 8945FC mov [ebp-$04],eax
IdStack.pas.641: class procedure TIdStack.DecUsage;
00634BF3 833D7C7B980000 cmp dword ptr [$00987b7c],$00 <--- $00987b7c = GStackCriticalSection (DecUsage+$9)
00634BFA 7514 jnz $00634c10
00634BFC B981020000 mov ecx,$00000281
00634C01 BA784C6300 mov edx,$00634c78
00634C06 B8B04C6300 mov eax,$00634cb0
00634C0B E8940DDDFF call @Assert
IdStack.pas.643: Assert(GStackCriticalSection<>nil);
00634C10 A17C7B9800 mov eax,[$00987b7c] <--- $00987b7c = GStackCriticalSection (DecUsage+$25)
00634C15 8B10 mov edx,[eax]
00634C17 FF12 call dword ptr [edx]
00634C19 33C0 xor eax,eax
00634C1B 55 push ebp
00634C1C 68654C6300 push $00634c65
00634C21 64FF30 push dword ptr fs:[eax]
00634C24 648920 mov fs:[eax],esp
*)
m := @TidStack.DecUsage;
m := Pointer(integer(m)+9);
repeat
try
if PObject(PPointer(m)^)^.ClassName = 'TIdCriticalSection' then
begin
FastMM4.RegisterExpectedMemoryLeak(PPointer(PPointer(m)^)^);
break;
end;
except
end;
m := Pointer(integer(m)+1);
until false;
finally
DebugHook := bak;
end;
end;Daniel Marschall
ViaThinkSoft Co-Founder
ViaThinkSoft Co-Founder