Delphi-PRAXiS - Delphi Thread nicht terminiert?

Seite 1 von 2

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Thread nicht terminiert? (https://www.delphipraxis.net/172991-thread-nicht-terminiert.html)

Thread nicht terminiert?

Hallo,

Umgebung: Rad Studio XE3 Update 2

Ich habe einen Thread (MThread), der während beim Click auf einen Button erzeugt wird. Mit Option freeonterminate=true
Ein Ereignis onThreadTerminate wird zugewiesen.
Nach Auslösen dieses Ereignisses wird einiges abgearbeitet - klappt auch alles soweit.
Nur ein merkwürdiges Phänomen tritt auf: Wenn ich irgendwann später MThread.terminated abfrage, so ist dieser immer noch aktiv. - Es stört nicht wirklich. Auch ein erneutes Erzeugen und Starten klappt problemlos.
Mache ich allerdings beim FormClose die Zeile: if assigned(MThread) then freeandnil(MThread) rein, knallt es.

(Stört Euch nicht an der Formvariable oder so - ich arbeite hier mit einem multiple Docked-Forms Konzept,
wo alle FRMs im Prinzip nur Muster sind und die Childforms dynamisch erzeugt werden - somit kann jede FRM
mit eindeutigem Namen versehen werden und ich nutze da auch verschiedene Muster)

Meine Problematik dreht sich nur um diesen MThread

Hier mal ein wenig Code:

Delphi-Quellcode:

			type

  TFrmGMaps = class(TChildform)

    WebGMaps1: TWebGMaps;

    starttimer: TTimer;

    .

    .

    . weitere Definitionen ...

    private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

  TMyThread = class(TThread)

     procedure execute; override;

  end;

 var

  threadaktiv : Boolean = False;

  MThread : TMyThread;

  // Form2 - Formvariable verworfen, wird bei Aufruf vergeben (Mutliple Forms)

implementation

{$R *.dfm}

uses main, childformverwaltung, System.StrUtils, UDM;

procedure TFrmGMaps.threadabschluss;

  var idx : integer;

  lat : string;

    lng : string;

    buwID : string;

    KName : string;

begin

  if not threadaktiv then begin

    threadtimer.Enabled := false;

    pan_warten.Visible := false;

    setstartmarker;

    for idx := 0 to Length(threadkname)-1 do begin

      lat := threadlat[idx];

      lng := threadlng[idx];

      KName :=  threadKName[idx];

      if ((lat<>'') and (lng<>'')) then WebGMaps1.Markers.Add(strtofloat(lat),strtofloat(lng),

                           ID+' '+KName,geticon(99, False),

                           True,True,True,False,false,idx);

    end;

    SetLength(threadlat,0);

    SetLength(threadlng,0);

    SetLength(threadkname,0);

    pan_gmapsteuerung.Visible := True;

  end;

end;

procedure TMyThread.Execute;

  var idx : integer;

   dynform : TFrmGMaps;

// GETCUMLIST_DIST_FROM ist ne ORacle Stored Proc

begin

    SetLength(threadlat,0);

    SetLength(threadlng,0);

    SetLength(threadkname,0);

    dynform := TFrmGMaps(Application.FindComponent(FrmMain.GmapThreadname));

    dynform.GETCUMLIST_DIST_FROM.execute;

    if dynform.GETCUMLIST_DIST_FROM.ParamByName('RESULT').Asinteger=DM.pkgCodes.VariableByName('INF_SUCCESS').AsInteger then

    begin

        idx := 0;

        dynform.JvGradientProgressBar1.Max := dynform.GETCUMLIST_DIST_FROM.RecordCount;

        SetLength(threadlat,dynform.GETCUMLIST_DIST_FROM.RecordCount);

        SetLength(threadlng,dynform.GETCUMLIST_DIST_FROM.RecordCount);

        SetLength(threadkname,dynform.GETCUMLIST_DIST_FROM.RecordCount);

        while (not dynform.GETCUMLIST_DIST_FROM.eof) do begin

          Synchronize(dynform.JvGradientProgressBar1.StepIt);

          inc(idx);

          if not ((dynform.GETCUMLIST_DIST_FROMCUM_DBLGEOLAT.AsString = dynform.gmaps_lat)  // Um auszuschließen, das der Startmarker

             and ( dynform.GETCUMLIST_DIST_FROMCUM_DBLGEOLNG.AsString = dynform.gmaps_lng))  // überschrieben wird

          then begin

            SetLength(threadlat,idx);

            SetLength(threadlng,idx);

            SetLength(threadkname,idx);

            threadlat[idx-1] := dynform.GETCUMLIST_DIST_FROMCUM_DBLGEOLAT.AsString;

            threadlng[idx-1] := dynform.GETCUMLIST_DIST_FROMCUM_DBLGEOLNG.AsString;

            threadkname[idx-1] := dynform.GETCUMLIST_DIST_FROMCUM_STRNAME.AsString;

          end;

        dynform.GETCUMLIST_DIST_FROM.Next;

      end;

      dynform.GETCUMLIST_DIST_FROM.Close;

    end

    else

    begin

      //Fehler

    end;

end;

procedure TFrmGMaps.btn_querystartClick(Sender: TObject);

  var lat : string;

    lng : string;

    KName : string;

    idx : integer;

begin

  WebGMaps1.DeleteAllMapMarker;

  FrmMain.GmapThreadname := Self.Name;

  JvGradientProgressBar1.Position := 1;

  pan_warten.Left := Integer(Trunc((Self.Width - pan_warten.Width) / 2));

  pan_warten.Top  := Integer(Trunc((Self.Height - pan_warten.Height) / 2));

  pan_warten.Visible := True;

  Application.ProcessMessages;

  MThread := TMyThread.Create(True);

  MThread.FreeOnTerminate := True;

  threadaktiv := true;

  MThread.OnTerminate := threadend;

  pan_gmapsteuerung.Visible := false;

  MThread.Resume;

end;

procedure TFrmGMaps.threadend(Sender: TObject);

begin

  threadaktiv := false;

  threadabschluss;

end;

irgendwo - irgendwann muss der Thread ja "zerstört" werden?

Gruss

MC

AW: Thread nicht terminiert?

Zitat:

Zitat von mcinternet (Beitrag 1201629)

Mit Option freeonterminate=true
[...]
Wenn ich irgendwann später MThread.terminated abfrage, so ist dieser immer noch aktiv.
[...]
Mache ich allerdings beim FormClose die Zeile: if assigned(MThread) then freeandnil(MThread) rein, knallt es.

FreeOnTerminate bedeutet nicht, dass alle Variablen, die diesen Thread referenzieren, auf nil gesetzt werden.

Somit greift die Abfrage auf MThread.Terminated evtl. auf ein nicht mehr existierendes Objekt zu - Fehler!

Und im FormClose ist MThread auch dann noch Assigned, wenn der Thread selber freigegeben ist, gleiches Problem!

Vllt. solltest Du MThread im OnTerminated auf nil setzen, bzw. das Konzept weiter überdenken.

AW: Thread nicht terminiert?

Zitat:

Zitat von CCRDude (Beitrag 1201630)

Zitat:

Zitat von mcinternet (Beitrag 1201629)

Die Procedure onterminate wird nur einmal aufgerufen. Das ist nicht das Problem. Möchte nur das der Thread gekillt wird. Wo kann ich das am Besten machen? Und womit? Freeandnil? Oder destroy?

Gruss

AW: Thread nicht terminiert?

.. wenn der Thread mit freeOnTerminate gestartet wurde
und im laufenden Thread ann die Execute Methode verlassen wird,
dann ist er terminiert - nicht nil aber beendet.

Das sollte auch im TaskManager verfolgbar sein.

Grüße
Klaus

AW: Thread nicht terminiert?

Zitat:

Zitat von Klaus01 (Beitrag 1201638)

Wie kann ich das nun am elegantesten lösen, das das Ding auch gekillt wird?

im OnTerminate ein free... oder destroy?

Gruss
Jörg

AW: Thread nicht terminiert?

Was willst Du denn noch "killen" bei FreeOnTerminate = True, wenn der Thread seine Execute-Methode beendet hat? Er ist dann terminiert und wird automagisch freigegeben.

AW: Thread nicht terminiert?

Du hast es anscheinend noch nicht verstanden. Der Thread ist terminiert. Nur das Threadobjekt selber ist nicht nil.

AW: Thread nicht terminiert?

Wenn Thread terminiert, threadaktiv auf false und MThread auf nil setzen. Vor einem Zugriff auf MThread dann eins dieser beiden im Vorfeld prüfen.

Delphi-Quellcode:

			if Assigned(MThread) then

  MThread.MachIrgendwas;

//oder

if threadaktiv then

  MThread.MachIrgendwas;

[edit] Siehe

wilder Zeiger [/edit]

[edit2] Oh, Beitrags-Schnapszahl, ich geb virtuell einen aus :cheers: [/edit2]

AW: Thread nicht terminiert?

Mal abgesehen davon, dass du globale Variablen benutzt, mit dem Thread in die VCL (nicht threadsafe!) reingreifst, deprecated Methoden benutzt (Resume) ...

Stell dir vor ich gebe dir meine Visitenkarte wo meine Adresse drauf steht.
Lasse ich jetzt das Haus abreissen und du schaust danach dort vorbei, dann gibt es dort nichts mehr, auch wenn die Adresse auf der Visitenkarte mit goldenen Lettern geprägt und Parfüm beduftet wurde.

Eine Objekt-Variable speichert nur die Referenz auf ein Objekt (also die Adresse) und wenn das Objekt nicht mehr da ist, dann hat die Objekt-Variable immer noch die Adresse auch wenn es dort nichts zu finden gibt.

AW: Thread nicht terminiert?

jetzt hat´s geklingelt :wall:

Vielen Dank

Seite 1 von 2