Screenshot erstellen und speichern

[himitsu]

Zitat von DieFliege:

Ich habe in keinem Wort gefragt "wie" ein Screenshot gemacht wird - Das war mir schon klar

Ja klar, aber entsprechend dem Wie gibt es auch unterschiedliche Antworten, bezüglich dem "wie weiter"

Bezüglich oben dem GetWindowDC aus der #5 ... ein GetWindowDC bzw. GetDC mit anderem Parameter (Fenster/Canvas):
FindWindow
FindWindowEx
EnumWindows
...
TForm.Handle (HWND)
TForm.Canvas.Handle (HDC)
...

Und bezüglich Delphi-Fenster:
TCustomForm.Print
TCustomForm.GetFormImage
...
TCustomForm.Canvas und Printer.Canvas.Draw
uvm.

[Uwe Raabe]

Vielleicht ist das ja schon anderweitig beschrieben, dann sorry. Ich habe schon seit Jahren folgende Routine im Einsatz, die einen bestimmten Bereich des Desktop in eine Bitmap kopiert:

Delphi-Quellcode:

procedure DesktopScreenShot(DestBitmap: TBitmap; SourceRect: TRect);
var
  DC: HDC;
  wnd: HWND;
begin
  wnd := GetDesktopWindow;
  DC := GetDC(wnd);
  try
    DestBitmap.SetSize(SourceRect.Width, SourceRect.Height);
    BitBlt(DestBitmap.Canvas.Handle, 0, 0, SourceRect.Width, SourceRect.Height, DC, SourceRect.Left, SourceRect.Top, SRCCOPY) ;
  finally
    ReleaseDC(wnd, DC);
  end;
end;

[himitsu]

PS: GetDC(GetDesktopWindow) = GetWindowDC(0), das Desktop=0

wie gesagt, tausende Wege



ganz modern könnte man z.B. auch die DesktopImagingAPI (seit Win 8) benutzen, oder wie die nochmal hieß
die würde dann auch so Dinge ala DirectDraw erwischen, welche sich direkt über die Grafkkarte ins Bild schmuggeln.

[Steku]

Hi,

vielleicht kannst du das mal Testen, oder zum Spicken...

Viele Grüße
Steku

http://www.frontiernet.net/~w2m/apprehend.html

[Andreas13]

Zitat von Uwe Raabe:

...Ich habe schon seit Jahren folgende Routine im Einsatz, die einen bestimmten Bereich des Desktop in eine Bitmap kopiert:

Delphi-Quellcode:

procedure DesktopScreenShot(DestBitmap: TBitmap; SourceRect: TRect);
var
  DC: HDC;
  wnd: HWND;
begin
  wnd := GetDesktopWindow;
  DC := GetDC(wnd);
  try
    DestBitmap.SetSize(SourceRect.Width, SourceRect.Height);
    BitBlt(DestBitmap.Canvas.Handle, 0, 0, SourceRect.Width, SourceRect.Height, DC, SourceRect.Left, SourceRect.Top, SRCCOPY) ;
  finally
    ReleaseDC(wnd, DC);
  end;
end;

Sind da irgendwelche "neueren" Features dabei Uwe, denn unter XE5 kann ich Deine Routine leider nicht kompilieren: DestBitmap.SetSize(..) kennt mein Compiler noch nicht.
Grüße, Andreas

[Rollo62]

Hast Du denn Vcl.Graphics in den Uses eingebunden ?
https://docwiki.embarcadero.com/Libr...Bitmap.SetSize
Das sollte es seit "Ewigkeiten" so geben.
Siehe weiter unten bei "VclBitmap: Vcl.Graphics.TBitmap;", das müsste VCL unter XE2 gewesen sein.

[Andreas13]

Ja, Vcl.Graphics ist eingebunden. Aber in meiner Unit, wo ich solche nützlichen Routinen sammle, benutzen andere Routinen auch Winapi.Windows , und auch dort gibt es ein SetSize . Daher kommt der Konflikt.
Wie läßt sich Uwe’s Zeile
DestBitmap.SetSize(SourceRect.Width, SourceRect.Height); mit qualifizierten Bezeichnern schreiben? Direkt geht es nicht, denn DestBitmap ist der Name des Parameters. Auch mit einer Zwischenvariable habe ich es noch nicht hinbekommen…
Grüße, Andreas

[Andreas13]

Etwas habe ich noch vergessen: Ich habe in der Uses-Liste auch noch Vcl.Forms , und auch dies hat SetSize und kann strören.

Edit:
Die Fehlermeldung lautet: [dcc32 Fehler]: E2003 Undeklarierter Bezeichner: 'SetSize'

[himitsu]

Nein, weil hier ja nicht mit WITH und so gearbeitet wird und es ja explizit BitmapVariable.SetSize heißt.

Schon DelphiXE kannte ein TBitmap.SetSize (hatte es erst dieses Jahr selbst benutzt)

[Rollo62]

Ich würde die Funktion DesktopScreenShot erstmal in ein eigenes Unit verfrachten, nur mit dem Minimum an Abhängigkeiten,
um das Ganze im ersten Schritt etwas zu modularisieren.
Dieses sollte dann in deinem Unit als Uses eingebunden eigentlich arbeiten können oder vielleicht einen besseren Fehlerhinweis liefern.