SnapShot - Desktop Photographie vereinfacht

[KodeZwerg]

Hiermit möchte ich das wiedergeben was ich Dank Euch so gesammelt habe, vereint in einer sehr einfach zu handhabenen Klasse.

Die Klasse ist darauf ausgelegt sogut wie alles automatisch abzuarbeiten ohne viel von Euch als Input zu erwarten.

4 verschiedene Möglichkeiten sind geboten
- GDI (multimonitor)
- DDA (single monitor)
- DX9 (32bit) (single monitor)
- PRINT

4 verschiedene Modis sind verfügbar
- ganzer Bildschirm(e)
- aktives Fenster
- selektion per Rechteck/Maus
- letzten snap wiederholen

Leider ist mir im Eifer des Gefechts die "PRINT"-Variante kaputt gegangen und ich finde einfach nicht den Fehler...
Ich hoffe es kann Euch nützlich sein.

Im Anhang ist eine aufs minimum reduzierte Demo die die Grundlagen erklärt und alle benötigten Quelltexte.
Getestet, entwickelt und kompiliert mit Delphi Alexandria.

Viel Spaß beim Testen und falls Euch Fehler, Verbesserungen etc. einfallen, oder Ihr vielleicht die PRINT variante wieder zum Leben erwecken könnt, meldet Euch bitte :thumb:

[KodeZwerg]

Die Bedienung per Grundeinstellung nachdem man die Hotkeys aktiviert hat:
ALT+DRUCK = alles
CONTROL+DRUCK = aktives Fenster
SHIFT+DRUCK = Benutzer Selektion

Ps: SHIFT+DRUCK besonderheit: wenn Ihr mit der mittleren Maus-Taste selektiert, wird das Bild invertiert.

[KodeZwerg]

bitte aktualisieren in kz.Windows.SnapShot.pas

in methode "procedure TkzSnapShot.Snap;"

Delphi-Quellcode:

    if (not FGetFocused) then
      begin
        FRect.Left   := GetSystemMetrics(SM_XVIRTUALSCREEN);
        FRect.Top    := GetSystemMetrics(SM_YVIRTUALSCREEN);
        FRect.Right  := GetSystemMetrics(SM_CXVIRTUALSCREEN);
        FRect.Bottom := GetSystemMetrics(SM_CYVIRTUALSCREEN);
      end;

damit sollte multimonitor immer korrekt arbeiten.

in methode "procedure TkzSnapShot.SetHotkeyAll/SetHotkeyWnd/SetHotkeyRec(const AValue: TkzHotkey);"

Delphi-Quellcode:

      MessageBox(0,

nun stürzt das programm nicht beim start ab wenn hotkey nicht gesetzt werden kann

[KodeZwerg]

bitte aktualisieren, in allen SnapShot methoden (SnapShotGDI, SnapShotDDA, SnapShotDX9, SnapShotPrint)

Delphi-Quellcode:

  FImageWidth  := Abs(FRect.Right) - Abs(FRect.Left);
  FImageHeight := Abs(FRect.Bottom) - Abs(FRect.Top);

Nun ist auch diese Berechnung korrekt :?: :oops: :twisted:

[KodeZwerg]

kz.Windows.SnapShot.pas ->
bitte HiddenProc aktualisieren (im case "kzHotkeyRec")

Delphi-Quellcode:

                                      if ((not TForm(SS.Owner).Visible) and SS.AutoHide) then
                                        begin
                                          Application.Restore;
                                          Application.BringToFront;
                                          Application.Minimize;
                                        end
                                        else
                                          Application.BringToFront;

[KodeZwerg]

Zitat:

Zitat von KodeZwerg (Beitrag 1513439)

bitte aktualisieren, in allen SnapShot methoden (SnapShotGDI, SnapShotDDA, SnapShotDX9, SnapShotPrint)

Delphi-Quellcode:

  FImageWidth  := Abs(FRect.Right) - Abs(FRect.Left);
  FImageHeight := Abs(FRect.Bottom) - Abs(FRect.Top);

Nun ist auch diese Berechnung korrekt :?: :oops: :twisted:

Mist, so sollte es sein:

Delphi-Quellcode:

  FImageWidth  := Abs(FRect.Right - FRect.Left);
  FImageHeight := Abs(FRect.Bottom - FRect.Top);

[KodeZwerg]

Was ich noch sagen wollte, ihr könnt natürlich auch direkt die gewünschte klassen methode aufrufen, dann müßt ihr halt manuel den Bereich den Ihr knipsen wollt übergeben.

die methoden kurz vorgestellt:

Snap = das ist die Hauptmethode im voll-Automatik modus
SnapShot = das ist die semi-Automatik variante die noch per Einstellung der Klasse arbeitet
SnapShotGDI = das wäre ein Aufruf einer explizit genannten Technik
SnapShotDDA = das wäre ein Aufruf einer explizit genannten Technik
SnapShotDX9 = das wäre ein Aufruf einer explizit genannten Technik
SnapShotPrint = das wäre ein Aufruf einer explizit genannten Technik

Am Ende landet alles im "Bitmap" property der Klasse.

[API]

Inwiefern unterscheiden sich die Modi resp. wann sollte man welchen wählen?

[KodeZwerg]

Zitat:

Zitat von API (Beitrag 1513499)

Inwiefern unterscheiden sich die Modi resp. wann sollte man welchen wählen?

Ich war sehr bemüht das es mit egal welcher Methode (abgesehen von Print) ich immer ein vollwertiges Bild vom Desktop erhalte.

Die verschiedenen Engines kurz erklärt:
GDI = ist sehr schnell, es kann sein das ein Overlay/Overlapped Window nur Schwarz als Bild liefert.
DDA = ist extrem schnell, kann Artefakte beinhalten, kann durch Windows API blockiert werden, könnte mit Anpassungen zum Aufnehmen (Video/LiveBild) genutzt werden.
DX9 = ist langsam, liefert immer gute Bilder ohne obige Einschränkungen.
Print* = ist super schnell, liefert für normale Fenster gute Ergebnisse, kann nur Window oder Desktop knipsen.

*die Print Methode ist momentan defekt und ich find einfach nicht den Fehler

Abgesehen von Print war es mir nicht möglich etwas zu finden was mit diesen Methoden nicht geknipst werden kann.

[KodeZwerg]

Neueste Version im Anhang dieses Themas hochgeladen.

Abgesehen von allen oben genannten Änderungen ist nun noch ein Hotkey dazu gekommen

Control-Shift-Druck = wiederhole einen scan mit den zuletzt verwendeten Bildschirmbereich