Hi Luckie,

aber ich kann den Thread mit suspend anhalten(wenn er gerade schläft) ?

Na dann habe ich glaub ich mein Problem gefunden, warum meine App sporadisch sich mit der CPU-Last auf 98% hochschaukelt, wahrscheinlich kommt der Systemprocess nicht mehr mit dem Thread-Handling nach.
Ich habe nämlich ca. 10-15 Threads immer am laufen, die wie oben in Bsp. 1 beschrieben vorgehen nur ist der Sleep-Intervall da bei 500 ms bzw. 200 ms.



Danke,

Data

Versuch es mal mit Events und WaitForSingleObject.

Erstelle mal ein Bsp. Interessiert mich gerade selber! Geduld!

Zitat von DataCool:

Hi Luckie,
aber ich kann den Thread mit suspend anhalten(wenn er gerade schläft) ?

Ja, denn das setzt den Unterbrechungszähl des Thread-Objektes auf einen Wert größer null, womit der Thread nicht zuteilungsfähig wird. Aber Achtung Suspend ist akkumulativ. Mit jedem Aufruf wird der Unterbrechungszähler inkrememntiert. war er bei 0 (Thread zuteilungsfähig) und du rufst Suspend 3 mal auf mußt du auch 3 mal Resume aufrufen, damit der Thread wieder zuteilungsfähig wird.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TTimerThread = class(TThread)
  private
    hClose : Cardinal;
  public
    constructor Create;
    destructor Destroy; override;

    procedure CloseMe;
    procedure Execute; override;
  end;


{ TTimerThread }

procedure TTimerThread.CloseMe;
begin
  SetEvent(hClose);
end;

constructor TTimerThread.Create;
begin
  inherited Create(false);
  hClose := CreateEvent(nil, true, false, nil)
end;

destructor TTimerThread.Destroy;
begin
  CloseMe; // schleife beenden
  CloseHandle(hClose);
  inherited;
end;

procedure TTimerThread.Execute;
var dw : Cardinal;
begin
  repeat
    dw := WaitForSingleObject(hClose, 60000);
    if dw = WAIT_TIMEOUT then
       Windows.Beep(200, 200); // mache irgentwas
  until (dw = WAIT_OBJECT_0) or Terminated; // beendet
end;

Das könnte dir Helfen...