Thread.Terminated erzeugt unbekannter Bezeichner

[ozz]

Hallo Leute,
ich stolpere über das Problem, das bei mir die Eigenschaft Terminated für Threads fehlt. :idea: In der Doku ist es vorhanden ,jedoch beim complilieren bekomme ich einen Fehler (unbekannter Bezeichner). Die Eigenschaft Suspended gibt es und die funktioniert auch. Woran könnte dies liegen?
Witzigerweise ist die Property in Classes.pas enthalten. :gruebel:

[jbg]

Zitat:

Zitat von ozz

Witzigerweise ist die Property in Classes.pas enthalten. :gruebel:

Gegenfrage: Was bedeutet die Sichtbarkeit private, protected und public/published?
Wenn du diese Frage beantworten kannst, dann sollte sich dein Problem erklären.

[Sunlight7]

Hallo!

Du versuchst nicht zufällig .Terminated außerhalb Deiner abgeleiteten Komponente TThread zu verwenden?

Grüßle!

[ozz]

Hallo Sunlight7,
ja genau. Ich habe das Problem mit dem Protected jetzt auch geblickt. Wie kann ich trotzdem prüfen, ob ein Thread bereits beendet ist?

[jbg]

Die einfachste Version ist, einfach bei deiner Thread-Klasse unter public ein "property Terminated;" schreiben. Aber Vorsicht: "Terminated" wird nicht gesetzt wenn du nicht persönlich die Terminate-Methode des Threads aufgerufen hast. Du müsstest also in einen try/finally Block in der Execute-Methode im finally auch Terminate aufrufen.

[Sunlight7]

Ich würde dafür eher das Ereignis OnTerminate empfehlen, damit kollidierst Du dann auch nicht wenn FreeOnTerminate True ist.

[ozz]

Hallo Sunlight7,
danke für den Hinweis mit dem OnTerminate. Ich schau es mir nochmal genau an. Im Prinzip benötige ich es jedoch nicht, da ich FreeOnTerminate:=false verwende.


Hallo jbg,
danke für den Hinweis mit dem Finally. Hatte ich natürlich glatt vergessen. :lol:

[Sunlight7]

Da Du damit scheinbar erste Schritte machst, hast Du TThread in eine neue Klasse abgeleitet?

[ozz]

Hallo Sunlight7,
ja, ich habe eine Klasse davon abgeleitet.Gib es noch etwas zu beachten?

Delphi-Quellcode:

unit HttpGetThreads;

interface

uses
  Classes,
  IdBaseComponent, IdComponent,IdTCPConnection,IdTCPClient, IdHTTP,IdObjs;//Indy
type
  TMyHttpThreads = class(TThread)

  private
  IdHTTP: TIdHTTP;
  ContentStream:TStringStream;
  FURL:string;
  FTerminated:Boolean;
  procedure loadComplete;

  public
    property ActualURL: String read FURL;
    property Terminated:Boolean read FTerminated;
  protected
    procedure Execute; override;
  end;

implementation
uses JobQueueMultiThread;//Main

procedure TMyHttpThreads.Execute;
var loop:Integer;
begin
 try
 FTerminated:=False;
 IdHTTP:=TIdHTTP.Create;

  while ((JobQueue.Joblist.Count>0) and Terminated=false) do
  begin;
   FURL:=JobQueue.Joblist.Strings[0];
   JobQueue.Joblist.Delete(0);

   ContentStream:= TStringStream.Create(toEOF);
   try
   IdHTTP.Get(FURL,ContentStream);
   except
    on e:EIdHTTPProtocolException do
        begin
          JobQueue.Joblist.Add(FURL);
        end;
   end;

   ContentStream.Seek(0, soFromBeginning);
   Synchronize(loadComplete);

   ContentStream.Destroy;
  end;
 finally
  FTerminated:=True;
  IdHTTP.Destroy;
  if Assigned (ContentStream) then ContentStream.Destroy;
 end;
end;

procedure TMyHttpThreads.loadComplete;
begin
 JobQueue.ThreadResult(ContentStream);
end;

end.

[Sunlight7]

Aua:

Delphi-Quellcode:

while ((JobQueue.Joblist.Count>0) and Terminated=false) do begin;

=

Delphi-Quellcode:

while ((JobQueue.Joblist.Count>0) and not Terminated) do begin

Einmal ohne "=false" und einmal ohne ";" :wink:

Wenn in dem try finally Block eine Exception auftritt, wird Dein Programm mit ner Fehlermeldung beendet. :wink:
Falls das nicht gewollt is, dann auf try except umarbeiten.

Sonst seh ich auf den 1. Blick nix falsches.

Edit: Auf den 2. doch noch was, verwende .Free anstatt .Destroy oder noch besser, wenns Dein Delphi kennt, FreeAndNil!

[ozz]

Hallo Sunlight7,
danke für das Aua. :idea:
1. Im Prinzip verstehe ich das mit dem not und false. Nur warum ist dies besser?
2. Warum ist das Semikolon denn falsch? Delphi mäckert nicht. :gruebel:
3. Ich warum ist Free besser als Destroy. Free gibt den Speicher frei, destory die Ganze Instanz (dachte ich). :drunken:

[dominikkv]

Zitat:

Zitat von ozz

3. Ich warum ist Free besser als Destroy. Free gibt den Speicher frei, destory die Ganze Instanz (dachte ich). :drunken:

Free und Destroy geben beide den Speicher frei...nur Free überprüft zuerst ob das Objekt überhaupt noch existiert und gibt es selbständig mit Destroy frei.
Um Laufzeitfehler vorzubeugen würde ich Free verwenden.

[marabu]

Hallo,

Zitat:

Zitat von ozz

1. Im Prinzip verstehe ich das mit dem not und false. Nur warum ist dies besser?

Es ist eine Frage von Stil und Effizienz: Wer den Ausdruck "Terminated = False" auswerten lässt, der kann auch auf jedes Rechenergebnis null aufaddieren. "Terminated" ist bereits ein einfacher logischer Ausdruck, der zusätzliche Vergleich verändert das Ergebnis nicht.

Zitat:

Zitat von ozz

2. Warum ist das Semikolon denn falsch? Delphi mäckert nicht.

Das Semikolon trennt in Delphi Anweisungen: "begin;FURL := SomeUrl" ist äquivalent zu "begin {Leeranweisung};FURL := SomeUrl". Das Semikolon schadet also an dieser Stelle nicht, sieht aber etwas bucklig aus.

Zitat:

Zitat von ozz

3. Ich warum ist Free besser als Destroy. Free gibt den Speicher frei, destory die Ganze Instanz (dachte ich).

Free() prüft vor dem internen Aufruf des Destruktors, ob überhaupt eine gültige Instanz vorliegt. Du kannst also Free immer straflos aufrufen, auch wenn das Objekt vorher gar nicht instanziert wurde.

Grüße vom marabu

[ozz]

Hallo marabu, Hallo dominikkv.
herzlichen Dank für die Erläuterungen. Wieder was gelernt. :dancer2: