TThread Probleme (Beenden eines Threads)...

**moonwhaler**

Hallo DP!

Ich weiß das Thema wurde nun nicht gerade zum ersten Mal durchgekaut - und ich war so frei und habe so ziemlich alle möglichen Tutorials und Beispiele angeschaut, aber ich schaffe es selbst nicht mein Problem zu lösen. Eins vorweg: Den Thread zu erstellen, laufen zu lassen und ihn dazu zu bekommen für mich ein paar lustige Sachen zu machen ist primär kein Problem, lediglich das beenden des jeweiligen lässt mich hier verzweifeln. Ich poste dazu mal den gesamten Code des besagten TThreads:

Die Deklaration:

zusammenfalten · markieren

Delphi-Quellcode:

			TComThread = class(TThread)

  private

    { Private-Deklarationen }

    FStop: Boolean;

    FCurrentTry: Integer;

    FMaxTry: Integer;

    FTimeOut: Integer;

    FHandle: THandle;

    FDebugMode: Boolean;

  public

    procedure ResetTry();

  protected

    constructor Create( CreateSuspended: Boolean;

                        TimeOut: Integer;

                        MaxTry: Integer;

                        MainFormHandle: THandle;

                        DebugMode: Boolean = FALSE );

    procedure Execute(); override;

    procedure Reset();

    procedure Beep( Short: Boolean = FALSE );

  published

    property Stop: Boolean read FStop write FStop;

    property CurrentTry: Integer read FCurrentTry write FCurrentTry;

    property MaxTry: Integer read FMaxTry write FMaxTry;

    property TimeOut: Integer read FTimeOut write FTimeOut;

    property Handle: THandle read FHandle write FHandle;

    property DebugMode: Boolean read FDebugMode write FDebugMode;

  end;

Der eigentliche Quellcode:

zusammenfalten · markieren

Delphi-Quellcode:

			////////////////////////////////////////////////////////////////////////////////

// TComThread                                                                 //

////////////////////////////////////////////////////////////////////////////////

constructor TComThread.Create( CreateSuspended: Boolean;

                               TimeOut: Integer;

                               MaxTry: Integer;

                               MainFormHandle: THandle;

                               DebugMode: Boolean = FALSE );

begin

  inherited Create( CreateSuspended );

  self.FreeOnTerminate := TRUE;

  self.FHandle := MainFormHandle;

  self.FMaxTry := MaxTry;

  self.FTimeOut := TimeOut; // seconds

  self.FStop := FALSE;

  self.FCurrentTry := 0;

  self.FDebugMode := DebugMode;

end;

procedure TComThread.ResetTry();

begin

  self.FCurrentTry := 0;

end;

procedure TComThread.Beep( Short: Boolean = FALSE );

begin

  if ( Short ) then

    windows.beep( 1500, 200 )

  else

  begin

    windows.beep( 4000, 30 );

    windows.beep( 3000, 30 );

    windows.beep( 2000, 30 );

    windows.beep( 5000, 30 );

    windows.beep( 4000, 30 );

  end;

end;

procedure TComThread.Execute();

var

  i: Integer;

begin

  if ( self.FDebugMode ) then

    self.Beep( TRUE );

  while ( ( not self.FStop ) AND

          ( self.FMaxTry > self.FCurrentTry ) AND

          ( not Terminated ) ) do

  begin

    for i:=0 to 100 do

      if ( not Terminated ) then

        Sleep( self.FTimeOut * 10 )

      else

        break;

    if ( not Terminated ) then

    begin

      if ( self.FDebugMode ) then

        self.Beep();

      self.FCurrentTry := self.FCurrentTry + 1;

      if ( self.FDebugMode ) then

        SendMessage( Handle, MTM_MESSAGE, 0,

                     Integer( PChar( 'PASS ' + IntToStr( self.FCurrentTry ) +

                     ' OF ' + IntToStr( self.FMaxTry ) ) ) );

    end;

  end;

  self.FStop := TRUE;

  if ( Terminated ) then

    SendMessage( Handle, MTM_ABORTED, 0, Integer( PChar( 'TERMINATED' ) ) )

  else

    SendMessage( Handle, MTM_TIMEOUT, 0, Integer( PChar( 'TIMEOUT' ) ) );

  self.Free();

end;

procedure TComThread.Reset();

begin

  self.FStop := FALSE;

  self.ResetTry();

end;

Primär dient der Thread eigentlich nur zum Zählen von Durchgängen (evtl. begleitet von lustigen Piepsern aus dem PC Speaker). Er wird von einer Klasse referenziert, die eine serielle Kommunikation veranlasst und benötigt diesen Thread um Timeouts zu zählen, bzw. überhaupt erst von solchen zu erfahren. Im Ablauf wird der Thread mehrfach "suspended" und wieder gestartet und am Ende der Kommunikation per "Terminate" beendet, sofern nötig, d.h. wenn der Thread auf "Suspended" geschaltet wurde. Im Grunde alles kein Problem, leider bekomme ich regelmässig von "FastMM" mitgeteilt, dass das Thread-Objekt(e) sich och im Speicher befindet und nicht freigegeben wird, obwohl ich dies ja eigentlich explizit via "FreeOnTerminate" mitteile.

Ich verstehe die (Thread) Welt nicht mehr...!

Vielen Dank für jede Hilfe.

Christian

EDIT: Ich sollte dazu sagen, dass der besagte Code unter Delphi 5 Enterprise gecoded und compiliert wird / wurde.

TThread Probleme (Beenden eines Threads)...

TThread Probleme (Beenden eines Threads)...

Forumregeln