Thread (Memory) wird nicht freigegeben

**Peter Wolf**

Hallo Gemeinde,

ich habe hier folgenden Thread:

Delphi-Quellcode:

			unit Unit7;

interface

uses

  Classes, SysUtils, Windows;

type

  TTimerThread = class(TThread)

  private

    { Private-Deklarationen }

  protected

    Line: String;

    procedure DoAlive;

    procedure Execute; override;

  public

    constructor Create;

    destructor Destroy; override;

  end;

implementation

uses Unit5;

constructor TTimerThread.Create;

begin

  inherited Create(false);

  Priority:= tpHigher;

end;

destructor TTimerThread.Destroy;

begin

  Priority:= tpNormal;

  inherited;

end;

procedure TTimerThread.DoAlive;

begin

  DiagnosticForm.SendAll('Alive;'+TimeToStr(now));

end;

procedure TTimerThread.Execute;

var

  MyStart, MyEnd: Double;

begin

  while not Terminated do begin

    MyStart:= GetTickCount;

    Sleep(9000);

    MyEnd:= GetTickCount;

    while MyEnd - MyStart < 9000 do begin

      Sleep(10);

      MyEnd:= GetTickCount;

    end;

    DoAlive;

  end;

end;

end.

Bitte jetzt keine Posts, ob der Thread Sinn macht oder nicht.

Mir geht es um folgendes:
Beim Klicken auf den von mir erstellten Beenden-Button wird zuerst die DiagnosticForm beendet, in deren OnCloseQuery-Ereignis aufgerufen wird:

zusammenfalten · markieren

Delphi-Quellcode:

			  DisconnectUser;

  idTcpServer.Active:= false;

  ledListening.Brush.Color:= clOff;

  CaseList.Free;

  if Assigned(MyTimerThread) then begin

    MyTimerThread.Terminate;

    MyTimerThread.WaitFor;

    MyTimerThread.Free;

    MyTimerThread:= nil;

  end;

  application.processMessages;

  canClose:= true;

MemCheck sagt mir, dass TTimerThread immer noch Speicher alloziiert.
Kann mir bitte jemand sagen, wo mein Fehler liegt.

Zitat:

MemCheck version 2.73

Exception: second release of block attempt, allocated at Module IdSchedulerOfThread.pas Routine @Idschedulerofthread@TIdSchedulerOfThread@NewYarn Line 246 Find error: 004C6593 - Already freed at (no debug info) Find error: 01FD8A34

Total leak: 68 bytes

*** MEMCHK: Blocks STILL allocated ***

Leak #0 Instance of TTimerThread
Size: 68
1 Occurence
call stack - 0 : Module Unit5.pas Routine @Unit5@TDiagnosticForm@Button2Click Line 792 Find error: 005DD02E
call stack - 1 : Routine @Controls@TControl@Click Find error: 00464A06
call stack - 2 : Routine @Menus@TMenuItem@Click Find error: 00475878
call stack - 3 : Routine @Controls@TWinControl@WndProc Find error: 004677B8
call stack - 4 : Routine @Controls@TWinControl@MainWndProc Find error: 00467433
call stack - 5 : Routine @Classes@StdWndProc Find error: 004270B6
call stack - 6 : (no debug info) Find error: 77D48730
call stack - 7 : (no debug info) Find error: 77D48812
call stack - 8 : (no debug info) Find error: 77D489C9
call stack - 9 : (no debug info) Find error: 77D496C3
call stack - 10 : Routine @Forms@TApplication@ProcessMessage Find error: 00483190
call stack - 11 : Module MITMonitor.dpr Routine initialization Line 21 Find error: 005F48FE
call stack - 12 : (no debug info) Find error: 7C816D4B
call stack - 13 : (no debug info) Find error: FFFFFFFC

*** MEMCHK: End of allocated blocks ***

*** MEMCHK: Chronological leak information ***

* Instance of TTimerThread (Leak #0) Size: 68

*** MEMCHK: End of chronological leak information ***

*** MEMCHK: Blocks written to after destruction ***

Bad blocks count: 0

*** MEMCHK: End of blocks written to after destruction ***

Grüße
Peter

Thread (Memory) wird nicht freigegeben

Thread (Memory) wird nicht freigegeben

Forumregeln