Screenshot unter Linux

[Teekeks]

Hi!
Ich habe wiedereinmal ein Problem:
Ich würde gerne unter Linux(SUSE 9.1) ein Screenshot machen, weis aber nicht wie das gehen soll.
Könnt ihr mir Helfen?(bzw. tut ihr dies auch?)

gruß Teekeks

[Andreas L.]

DRUCK-Taste drücken, Grafikprogramm öffnen, Einfügen wählen, Abspeichern. Unter manchen Distributionen (z. B. Ubuntu) geht beim druck auf DRUCK direkt ein Speichern-Fenster auf. Weiß nicht obs das auch unter Suse gibt.

[Teekeks]

OK. Ich habs glaub ich falsch formuliert:
Wie kann ich per Code einen Screenshot machen? 8)

[Andreas L.]

Zitat:

Zitat von Teekeks

OK. Ich habs glaub ich falsch formuliert:
Wie kann ich per Code einen Screenshot machen? 8)

Gibt unter Lazarus/Linux sicher auch das TScreen-Objekt, damit sollte es gehen. Ein Code-Schnippsel für Windows hab ich noch gefunden, vllt. kannst es irgendwie abwandeln:

Delphi-Quellcode:

procedure MakeScreenShot(const ATarget: TBitmap);
var
  DesktopDC: HDC;
begin
  DesktopDC := CreateDC('DISPLAY', nil, nil, nil);
  try
    ATarget.PixelFormat := pfDevice;
    ATarget.Width := Screen.Width;
    ATarget.Height := Screen.Height;
  
    BitBlt(ATarget.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
  finally
    DeleteDC(DesktopDC);
  end;
end;

[Teekeks]

Hmmm.
Ich kann CreateDC() nicht finden (ich vermute das gibts auch garnicht)...
Gibt es noch andere möglichkeiten?

[Andreas L.]

Zitat:

Zitat von Teekeks

Hmmm.
Ich kann CreateDC() nicht finden (ich vermute das gibts auch garnicht)...
Gibt es noch andere möglichkeiten?

Schau doch mal die Eigenschaften und Funktionen von TScreen an. Z. B.

Delphi-Quellcode:

  Screen.DesktopRect

[Teekeks]

Zitat:

Zitat von Andreas L.

Schau doch mal die Eigenschaften und Funktionen von TScreen an. Z. B.

Delphi-Quellcode:

  Screen.DesktopRect

Ich kann screen.DesktopRect nicht finden. Bei screen gibts nur (was mit Desktop beginnt) DesktopWidth und DesktopHeight.

[Andreas L.]

Zitat:

Zitat von Teekeks

Zitat:

Zitat von Andreas L.

Schau doch mal die Eigenschaften und Funktionen von TScreen an. Z. B.

Delphi-Quellcode:

  Screen.DesktopRect

Ich kann screen.DesktopRect nicht finden. Bei screen gibts nur (was mit Desktop beginnt) DesktopWidth und DesktopHeight.

Vllt. gibts ein Canvas oder du kannst über die "Monitor"-Eigenschaft auf den Desktop zugreifen.

[r2c2]

Einfachste Variante? Wie machst dus denn in nem Terminal? Und n Äquivalent zu ShellExecute wirds wohl geben...

mfg

CHristian

[Teekeks]

Hi!
Cool!
Genau so ein gedanke fehlte mir.
Ich suche mal danach...

gruß Teekeks