verhindern: Klick auf Titelleiste stoppt Programm

[taveuni]

Zitat von Luckie:

Ab welcher Delphi Version gibt es die Methode Queue von TThread?

Ich sehe Du hast Delphi 2006.
Gibts die bei Deiner?
(Dann hab ich die auch. Hechel)

[Luckie]

Kann ich im Moment nicht nach gucken, da ich ihr auf dem Netbook nur Delphi 7 installiert habe.

Nachtrag: Unter D7 gibt es die Methode noch nicht.

[Sir Rufo]

Gute Frage ... bei D2010 gibt es die auf jeden Fall

Im Anhang mal ein kleines Test-Projekt wo man den Unterschied zwischen Queue und Synchronize sehen kann.

In der Listbox wird jeweils der Erstellungszeitpunkt im Thread und der Zeitpunkt der Anzeige geschrieben.
Nach jeder Anzeige schläft der HauptThread 500ms (um eine zeitraubende Bearbeitung zu simulieren)
Bei Synchronize sind beide Zeiten gleich, bei Queue sind diese unterschiedlich.

(exe + src included)

(äh, der Source ist nur so hingeklatscht ... also bitte keine Kommentare wegen dem Stil )

[taveuni]

Puhh..
Was hab ich mir eigene ThreadPools gebaut genau für diesen Zweck.
Ich hoffe doch sehr dass mich am Montag diese Methode aus D2007 anspringt!

Danke. Man lernt immer wieder dazu.
(bzw. endeckt Features von denen man nur zu träumen wagte)

[Luckie]

Moment, ThreadPools sind was anderes. ThreadPolls verwalten mehrere WorkerThreads. Wie unser Adel schon geschrieben hat ist die Methode Queue die non-blocking Version von Synchronize.

[Bummi]

@Sir Rufo

es gibt da eine Stelle in Deinem Code, mit dem ich nicht klar komme:

Delphi-Quellcode:

constructor TWorkThread.Create( CreateSuspended : Boolean );
  begin
    FCS := TCriticalSection.Create;

ich war bisher davon ausgegangen dass diese Section ein eindeutiger, einmaliger Abschnitt sein muss.

[Sir Rufo]

Zitat von Bummi:

@Sir Rufo

es gibt da eine Stelle in Deinem Code, mit dem ich nicht klar komme:

Delphi-Quellcode:

constructor TWorkThread.Create( CreateSuspended : Boolean );
  begin
    FCS := TCriticalSection.Create;

ich war bisher davon ausgegangen dass diese Section ein eindeutiger, einmaliger Abschnitt sein muss.

Jo, aber die ist doch eindeutig für das Objekt? oder ich verstehe deine Frage nicht
Und ich verstehe auch nicht warum es einmalig sein muss?

Ich kann so viele TCriticalSection-Instanzen wie ich möchte/benötige.
Manchmal kann es Sinn machen mehrere Instanzen zu benutzen.

Es geht ja nur darum (in einer MultiThread-Umgebung) einerseits die Zugriffe auf den Speicher zu regeln (gleichzeitiges Lesen und Schreiben erzeugt halt Zugriffsfehler) und andererseits (vergleichbar mit den Transaktionen im DB-Umfeld) konsistente Daten zu erhalten (bei geschickter Verwendung).

Kleines Beispiel zu den konsistenten Daten:

Delphi-Quellcode:

function TMyThread.GetPoint : TPoint;
begin
  FCS.Enter;
  try
    Result := FPoint;
  finally
    FCS.Leave;
  end;
end;

procedure TMyThread.Execute;
begin
  while not Terminated do
    begin

      // Diese Daten sind immer konsistent bei der Abfrage

      FCS.Enter;
      try
        FPoint.X := 1;
        FPoint.Y := 1;
      finally
        FCS.Leave;
      end;

      // Hier ist die Konsistenz nicht gewährleistet - also schlechter Code :o)

      FCS.Enter;
      try
        FPoint.X := 2;
      finally
        FCS.Leave;
      end;

      // Erfolgt jetzt ein Zugriff von aussen, dann hat FPoint ja den Wert (2,1)

      FCS.Enter;
      try
        FPoint.Y := 2;
      finally
        FCS.Leave;
      end;

    end;
end;