Erkennen ob Bildschirmsch. bzw. Bildschirmsperre aktiv ist

[Kirchi]

Zitat von Luckie:

DGL-Luke hat dir doch einen Link gegeben.

Dies ist aber eine Komponente, die zu erwerben ist. Vielleicht weiß ja jemand wie man so was selbst programmieren kann.

[Luckie]

Lesen hilft. DGL-Luke und nicht s-off!

[bitsetter]

Hi,

ob der Bildschirmschoner gerade aktiv ist könnte man so ermitteln:

Delphi-Quellcode:

var
  Running: bool;
begin
  SystemParametersInfo(SPI_GETSCREENSAVERRUNNING,0,@Running,0);
  if Running then
    ...

Getestet unter WinXP und Win98SE.

[Schwedenbitter]

Ich weiß, dass das Aufwärmen alter Themen wenig Freude auslöst, ABER:

Ich habe ca. am 11. November 2010 ein älteres Update in mein TurboDelphi wegen einer kompletten Win-Neuinstallation hinzugefügt. Bis dahin lief folgender Code:

Delphi-Quellcode:

Function CreateFromScreen: TJPEGImage;

  Function SSaverActive: Boolean;
  Begin
    SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0, @Result, 0);
  End;

Begin
  Result:=TJPEGImage.Create;
  Try
    If SSaverActive Then
    Begin
      // Bildschirmschoner beenden
    End;
    // hier wird etwas gemacht...
  Except
    Result.Free;//Bei Fehlern den Speicher freigeben
  End;
End;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
  With CreateFromScreen Do
  Try
    SaveToFile('Wohinauchimmer.jpg');
  Finally
    Free;
  End;
End;

Seither bekomme ich eine Speicherzugriffsverletzung. Es funktioniert jetzt nur noch so:

Delphi-Quellcode:

  Function SSaverActive: Boolean;
  Begin
    SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0, @Result, 0);
  End;

// ^-- Unterfunktion ausgegliedert.

Function CreateFromScreen: TJPEGImage;
Begin
  Result:=TJPEGImage.Create;
  Try
    If SSaverActive Then
    Begin
      // Bildschirmschoner beenden
    End;
    // hier wird etwas gemacht...
  Except
    Result.Free;//Bei Fehlern den Speicher freigeben
  End;
End;

Kann mir das bitte mal jemand erklären?
Ich habe 3 Tage daran gesessen, das in meinem mehrere tausend Zeilen umfassenden Projekt herauszufinden. Und es liegt definitiv an der Funktion SSaverActive , weil ich alles andere durchgetest habe. Ist das nur ein Phänomen von TurboDelphi oder schlimmer noch von meiner Installation? Komisch ist, dass es auf 2 Rechnern nicht mehr klappt.

Gruß, Alex

[Schwedenbitter]

Ich nehme (fast) alles zurück!
Ich habe mir nochmal den Code von bitsetter angesehen und da ist mir ein kleines Detail aufgefallen: Es muss Bool statt Boolean heißen; dann klappt es auch mit der Function.

Bleibt nur noch die Frage, warum es bislang klappte?

[Luckie]

Result.Free;//Bei Fehlern den Speicher freigeben Und im Erfolgsfall nicht?

[DeddyH]

Noch schlimmer: wenn innerhalb der Funktion ein Fehler auftritt, wird das JPEG freigegeben, aber nicht genullt. In der aufrufenden Routine wird dann ggf. versucht, das Objekt erneut freizugeben, das sollte ordentlich knallen. Im Übrigen sollten IMO Funktionen keine Objekte zurückgeben, die sie selbst erzeugen, aber die Diskussion hatten wir ja bereits mehrfach hier.

[himitsu]

Boolean = delphieigener Typ (da sollte einem schnell klar werden, daß dieser bei der WinAPI nicht unbedingt was zu suchen hat)

aktuell:
BOOL = LongBool (LongInt) = 4 Byte (False=0 und True=-1)
Boolean = 1 Byte (False=0 und True=1)
Boolean <> ByteBool = 1 Byte (False=0 und True=-1)
(beim Prüfen: True <> 0)

[Schwedenbitter]

@himitsu
Danke für die Erklärung. Das ist einleuchtend. Aber warum klappte das bislang?

Zitat von DeddyH:

... das JPEG freigegeben, aber nicht genullt.

Soll ich eine neue Frage aufmachen oder: Wie wird ein TJPEGImage genullt?

Zitat von DeddyH:

Im Übrigen sollten IMO Funktionen keine Objekte zurückgeben, die sie selbst erzeugen, aber die Diskussion hatten wir ja bereits mehrfach hier.

Kannst Du dazu bitte mal verlinken oder mir einen solchen per PM senden? Danke.

[DeddyH]

Zitat von Schwedenbitter:

Wie wird ein TJPEGImage genullt?

Entweder nil zuweisen oder mit FreeAndNil freigeben. Zu der Diskussion: den Thread muss ich erst raussuchen, dauert einen Moment.

[edit] Hier ist z.B. so einer: http://www.delphipraxis.net/104839-w...ekte-frei.html [/edit]