CreateEvent in einer Klasse

[RWarnecke]

Hallo zusammen,

ich habe folgendermassen eine Klasse aufgebaut :

Delphi-Quellcode:

  TTest = class(TObject)
  private
    procedure Test(Test:string);
  public
    { Public Deklaration }
  end;

procedure TTest.Test(Test:string);
var
  hScanCompleteEvent : THandle;
begin
  hScanCompleteEvent := CreateEvent(nil, False, False, nil);

  {...}

  WaitForSingleObject(hScanCompleteEvent, INFINITE);
end;

Wenn ich jetzt diese Procedure über ein Property aufrufe, bekomme ich eine EAccessViolation bei WaitForSingleObject. Kann ich keinen CreateEvent innerhalb einer Klasse benutzen oder mache ich etwas Falsch ?

[Uwe Raabe]

Der bisher gezeigte Code sollte problemlos funktionieren, wenn CreateHandle einen gültigen Wert zurückgibt. Sollte das der Fall sein, liegt das Problem in dem ausgepunkteten Teil des Codes...

[RWarnecke]

Es ist nur komisch, dass er jedesmal bei der Zeile WaitForSingleObject mit der Fehlermeldung aussteigt beim Debuggen. Alles im ausgepunkteten Teil kann ich Problemlos mit F8 durchgehen. Liegt das ganze dann trotzdem an dem ausgepunkteten Teil ? Wenn ja, muss ich den nochmal durcharbeiten.

[Luckie]

Exceptions treten meist in der nachgfolgenden Zeile auf, bzw. dort bleibt der Debugger dann stehen. Ist genauso wie mit dem Auto vor eine Wand fahren. Die Feuerwehr (Debugger) ist erst da, wenn der Wagen schon zerlegt vor der Wand hängt. ;)

[RWarnecke]

Danke Michael, für Deinen super Vergleich. :thumb: Dann werde ich heute Nachmittag schauen, warum das Auto gegen die Wand fährt.

[Luckie]

Eigentlich wäre Spurensicherung der Polizei besser als Vergleich für den Debugger. ;)

[RWarnecke]

Hallo zusammen,

danke für eure Antworten, es lag wirklich an dem letzten Befehl vor WaitForSingleObject. Ich hatte da etwas mit Pointer durcheinander gebracht, aber jetzt funktioniert es.