Überschreiben von TThread.Terminate

[MatthiasR]

Und wie geht das? Mit inherited?

[himitsu]

Zitat von MatthiasR:

Der Breakpoint innerhalb TThread.Terminate ist immernoch durchgestrichen und die Zeile grün, statt rot.

dieses Terminate wird auch verwendet?
Was nicht einkompiliert ist (weil es z.B. nicht verwendet wird), das kann auch nicht im Debugger mit einem Haltepunkt versehn werden.

Sind denn in dieser Procedur die kleinen blauen Pünktchen zu sehn?
(oder überhaupt irgendwo in der ganzen Unit)

[sirius]

Zitat von MatthiasR:

Und wie geht das? Mit inherited?

ja, ein Beispiel aus obiger verlinkter Unit:

Delphi-Quellcode:

constructor TReadPipe.Create(Aread_stdout,Awrite_stdout:THandle);
begin
  inherited Create(false);
  FEvent:=TEvent.Create(nil,false,false,'');
  FSyncString:=TSyncString.Create;
  Fread_stdout:=Aread_stdout;
  Fwrite_stdout:=Awrite_stdout;
  freeonterminate:=true;
end;

destructor TReadPipe.Destroy;
begin
  FEvent.Free;
  FSyncString.Free;
  inherited;
end;

procedure TReadPipe.Execute;
var Buf:array[0..1023] of byte;
    bread:Cardinal;
    s:string;
begin
  repeat
    ReadFile(Fread_stdout, Buf, length(buf), bread, nil);  //wait for input
    if terminated then exit;
    setlength(s,bread);
    move(buf[0],s[1],bread);
    FSyncstring.Add(s);
    FEvent.SetEvent;
  until terminated;
end;

procedure TReadPipe.Terminate;
const fin='fin';
var bwrite:Cardinal;
begin
  inherited;
  WriteFile(Fwrite_stdout,fin,length(fin),bwrite,nil);
end;

Es gibt da auch noch ein größeres Beispiel.

[MatthiasR]

Zitat von himitsu:

Zitat von MatthiasR:

Der Breakpoint innerhalb TThread.Terminate ist immernoch durchgestrichen und die Zeile grün, statt rot.

dieses Terminate wird auch verwendet?
Was nicht einkompiliert ist (weil es z.B. nicht verwendet wird), das kann auch nicht im Debugger mit einem Haltepunkt versehn werden.

Sind denn in dieser Procedur die kleinen blauen Pünktchen zu sehn?
(oder überhaupt irgendwo in der ganzen Unit)

Ja natürlich wird das TThread.Terminate ebenfalls verwendet, wie soll ich sonst die property Terminated setzen?

Und nein, in der ganzen Classes-Unit werden keine blauen Pünktchen angezeigt, auch wenn die Debug-DCUs aktiviert sind.

Zitat von sirius:

Zitat von MatthiasR:

Und wie geht das? Mit inherited?

ja, ein Beispiel aus obiger verlinkter Unit

OK, hätte mich auch schwer gewundert, weil ich ja auch schon zigmal einen constructor Create (ebenfalls nicht virtual deklariert) auf diese Weise verdeckt habe und intern über inherited trotzdem aufrufen konnte. Dann klappte das in meinem Code-Schnipsel aus Beitrag 1 die ganze Zeit, nur hat es mich irritiert (und es irritiert mich weiterhin), dass ich in TThread.Terminate keinen Breakpoint setzen kann. Dann ist das also mein eigentliches Problem, trotz der nun aktivierten Debug-DCUs.

[Stevie]

Du hast nicht zufällig "build with runtime packages" an, oder?

[MatthiasR]

Zitat von Stevie:

Du hast nicht zufällig "build with runtime packages" an, oder?

Doch, habe ich. Habe die Option nun mal ausgeschaltet, allerdings beschwert sich der Compiler dann in einer Unit des ImageEn-Komponentenpakets über folgendes:

Zitat:

[Fataler Fehler] Previews.pas(37): Unit IEMIO wurde mit einer unterschiedlichen Version von IOPreviews.TfIOPreviews compiliert

[Stevie]

Ok, das ist nun ein Problem, was mit der Ursprungsfrage nix mehr zu tun hat.
Ich kann nur sagen: dass du nicht in die Classes.pas debuggen kannst, hat mit den Runtime Packages zu tun, die sind nämlich Release und keine Debug Builds. Es gibt wohl ne Möglichkeit, sich Debug Builds der Delphi eigenen Runtime Packages zu basteln, aber das ist recht kompliziert, wenn ich mich recht erinnere. Wenn du also dein Projekt ohne Packages kompilierst, und debug dcus anhakst, kannst du auch durch die ganzen rtl/vcl sourcen debuggen.

Wenn du also auf eine Variable von TMeinThread Terminate aufrufst wird mit Sicherheit über inherited die verdeckte Terminate Methode von TThread aufgerufen. Du darfst nur keine Variable vom Typ TThread haben, dann würde nur die von dort aufgerufen.

[MatthiasR]

Ja, das stimmt, das ist wieder ein anderes Problem und mein ursprüngliches wäre nun geklärt. Danke für die ausführliche Erklärung! Klar, wenn in den Runtime Packages keine Debug Symbole sind, und ich das Projekt aktuell OHNE Runtime Packages nicht compilieren kann, dann wird das schwierig mit dem Debuggen der Delphi-eigenen Klassen.

[Bummi]

@Stevie
debuggen in classes ...
wenn Du classes.pas zu debuggen in Dein Projektverzeichnis kopierst.

[himitsu]

Zitat von Bummi:

@Stevie
debuggen in classes ...
wenn Du classes.pas zu debuggen in Dein Projektverzeichnis kopierst.

Dann hat er die Classes.pas doppelt im Code.
Einmal das Selbsteingebundene/Kopierte und dann verwenden die restlichen Delphi/VCL-Units dennoch die originale Classes.pas.

Heißt also, daß beim Debuggen in diesem Fall eher mit Problemem zu rechnen ist, da Einiges die Originale und Anderes die Kopie verwendet.