Screenshot unter Linux - Ubuntu 24 10

[EUP]

Hallo,

momentan stelle ich ein Project von Gambas nach Lazarus um.

Hier soll es die Möglichkeit geben, den aktuellen Bildschirm auszudrucken.

Leider scheitere ich schon beim ScreenShot, im Netz fand ich folgenden Code, hier leicht abgewandelt:

function TakeScreenShot(): TPicture;
var
ScrDC: HDC;
btmap: TBitmap;

begin
btmap := TBitmap.Create;
ScrDC := GetDC(0);
btmap.LoadFromDevice(ScrDC); <----- Fehlermeldung hier
ReleaseDC(0, ScrDC);

result := TPicture(btmap);
btmap.Free;
end;

Dummerweise erhalte ich an markierter Stelle folgende Fehlermeldung:

Project XYZ hat Exception-Klasse »FPImageException« ausgelöst mit der Meldung:
Failed to get raw image from device
in Datei 'intfgraphics.pas' in Zeile 3618


Mögliche Problemstellung (nur ein Verdacht)
=============================
In der Gambas Version funktioniert es einwandfrei (da gibt es allerdings einen extra Befehl dafür), jedoch muss ich im Betriebssystem (Ubuntu 24.10) die Aufnahme vor der Durchführung extra genehmigen.

Könnte es evtl. sein, dass Lazarus auf solcherlei Ablaufeingriffe von außen allergisch reagiert?


Was mache ich falsch / bzw, wenn meine Vermutung zutrifft, wie reagiere ich auf Vorgenanntes?

Technische Daten
============
Lazarus 3.6 auf Ubuntu 24.10

Vielen Dank im Voraus an alle Wissenden.

eup

[wennerer]

Hallo EUP,
schau mal hier: viewtopic.php?p=131315#p131315

oder hier: https://wiki.lazarus.freepascal.org/Dev ... _erstellen

Viele Grüße
Bernd

[EUP]

Hallo Bernd,

vielen Dank für die Mühen, aber der eine Link ist wahrscheinlich genau der, den ich bei mir umsetze. Den anderen hatte ich auch gesehen, der behandelt aber einen einen anderen Fall.

Nach nochmaligem Überdenken, glaube ich nicht mehr, dass die Sicherheitsfunktion den Screenshot unter Lazarus verhindert, denn dazu müsste ja die Meldung, welche das Betriebssystem anzeigt, erst einmal aufploppen. Soweit kommt es aber erst gar nicht.

[Zvoni]

Vielleicht hier
https://forum.lazarus.freepascal.org/in ... ic=19478.0

Was ich sehe: Du setzt keine Grösse des Ziel-Bitmaps

[h-elsner]

Ich hatte das mal so gemacht:

Code: Alles auswählen

procedure TForm1.ScreenToBild(filename: string);         {Screenshot}
var
    bild: TPortableNetworkGraphic;
    bmp: TBitMap;
    ScreenDC: HDC;

begin
  bild:=TPortableNetworkGraphic.Create;             {create PNG-picture}
  try
  {$IFDEF LINUX}
    bmp:=GetFormImage;                             {No more working with Windows}
    bild.Assign(bmp);
  {$ELSE}
    ScreenDC := GetDC(Handle);
    bild.LoadFromDevice(ScreenDC);                  {Get screenshot xyz.Handle}
    ReleaseDC(0, ScreenDC);
  {$ENDIF}
    bild.SaveToFile(filename);
  finally
    bild.Free;
    {$IFDEF LINUX}
      bmp.Free;
    {$ENDIF}
  end;
end;

Das funktioniert mit LINUX Mint Mate 20. Ob das allerdings mit Wayland funktioniert, weiß ich nicht. Ich habe auch nicht geprüft, ob "GetFormImage; " mit Windows jetzt geht.

[EUP]

Hallo,

das fluppt, vielen Dank.

Liefert zwar "nur" das Anwendungsfenster, was mir hier aber sogar entgegen kommt.

Und ja, läuft unter Wayland.