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

[KodeZwerg]

Und noch etwas, DX9 funktioniert nur wenn man 32bit kompiliert!

[Hunni]

Hallo,

Das Programm ist richtig gut und funktioniert auch auf dem Hauptbildschrim sehr gut.

Der Inhalt auf dem 2ten Bildschirm bleibt aber immer weiss.
Egal welcher Mode genutzt wird.



mfg

Torsten

[KodeZwerg]

Zitat:

Zitat von Hunni (Beitrag 1513550)

Hallo,

Das Programm ist richtig gut und funktioniert auch auf dem Hauptbildschrim sehr gut.

Der Inhalt auf dem 2ten Bildschirm bleibt aber immer weiss.
Egal welcher Mode genutzt wird.



mfg

Torsten

Erstmal Danke und mit dem "weiss" puh.... es ist doof wenn man selbst keinen zweiten Monitor zum testen hat, ich nutze "GetDesktopWindow" was eigentlich alles darstellt.
Ist denn die Größe wenigstens korrekt oder stimmt die auch nicht?

Ich schau mal ob ich dafür eine Lösung finden kann, danke für feedback!

[Hunni]

Zitat:

Zitat von KodeZwerg (Beitrag 1513553)

Zitat:

Zitat von Hunni (Beitrag 1513550)

Hallo,

Das Programm ist richtig gut und funktioniert auch auf dem Hauptbildschrim sehr gut.

Der Inhalt auf dem 2ten Bildschirm bleibt aber immer weiss.
Egal welcher Mode genutzt wird.



mfg

Torsten

Erstmal Danke und mit dem "weiss" puh.... es ist doof wenn man selbst keinen zweiten Monitor zum testen hat, ich nutze "GetDesktopWindow" was eigentlich alles darstellt.
Ist denn die Größe wenigstens korrekt oder stimmt die auch nicht?

Ich schau mal ob ich dafür eine Lösung finden kann, danke für feedback!

Die angezeigte Bildschirm (Pixel) würden passen.

Vom 2ten Bildschirm wird immer nur ein weisses Bild Angezeigt

[himitsu]

Du kannst auch in einer VM testen und dort mit zwei virtuellen Monitoren arbeiten.


Mein flüssiger 3D-Drucker nutzt auch einen virtuellen Bildschirm (ich seh ihn nicht direkt, aber Screenshot erkennt ihn)
der UltraWide-Monitor arbeitet zwar aktuell wie Einer, aber er liese sich auch wie 2 Monitore ansteuern
und hab auch noch einen USB-C-Monitor aktuell ungenutzt rumliegen,
falls sich wer was ausleihen mag.

[Hunni]

Zitat:

Zitat von himitsu (Beitrag 1513557)

Du kannst auch in einer VM testen und dort mit zwei virtuellen Monitoren arbeiten.


Mein flüssiger 3D-Drucker nutzt auch einen virtuellen Bildschirm (ich seh ihn nicht direkt, aber Screenshot erkennt ihn)
der UltraWide-Monitor arbeitet zwar aktuell wie Einer, aber er liese sich auch wie 2 Monitore ansteuern
und hab auch noch einen USB-C-Monitor aktuell ungenutzt rumliegen,
falls sich wer was ausleihen mag.

Hallo,

auf diesen Rechner habe ich leider keine Virtuelle Maschine.

Das könnte ich aber nächste Woche einmal Testen

Danke

Torsten

[KodeZwerg]

@Hunni, mich würde brennend interessieren ob auf dem zweiten generell nichts geknipst werden kann?!
Könntest Du mal bitte SHIFT-PRINT was auswählen oder ein fokussiertes Window auf dem zweiten per CTRL-PRINT ausprobieren?
Das wäre echt hilfreich zu wissen was alles betroffen ist, vielen Dank!

[Hunni]

Zitat:

Zitat von KodeZwerg (Beitrag 1513568)

@Hunni, mich würde brennend interessieren ob auf dem zweiten generell nichts geknipst werden kann?!
Könntest Du mal bitte SHIFT-PRINT was auswählen oder ein fokussiertes Window auf dem zweiten per CTRL-PRINT ausprobieren?
Das wäre echt hilfreich zu wissen was alles betroffen ist, vielen Dank!

Vom 2ten Monitor wird generell nichts dargestellt
Shift-print, ctrl-print

Egal was man probiert

Gruß

Torsten

[KodeZwerg]

Dankeschön für den Test, ich werde ein seperates Projekt vorbereiten was zum testen dient, ich melde mich hier wenn es fertig ist.

[Rollo62]

Zitat:

Zitat von himitsu (Beitrag 1513557)

Du kannst auch in einer VM testen und dort mit zwei virtuellen Monitoren arbeiten.

Interessant, da hab ich mal wieder was auszuprobieren. :thumb:
Ich nehme mal an Du meinst zwei virtuelle Monitore wenn man nur einen realen Monitor angeschlossen hat.

Wo find ich denn Infos dazu und wie werden virtuelle Monitore dargestellt ?
Das hier ist ja wohl für echte Monitore gedacht.
https://kb.vmware.com/s/article/2000384

[himitsu]

Genau, du hast einen/egalwieviele Monitor(e)
und die VM hat intern X virtualisierte Monitore. (kann weniger oder eben auch mehr sein, als man "wirklich" hat)

z.B. wie bei TeamViewer, AnyDesk, irgendwelcher MeetingSoftware oder sonstwas, wo man dann wählen kann, welchen Monitor man bei sich lokal sehen will.

Ob man sich davon Alle oder nur Einen ansehen will ist egal, da es hier ja eh nur darum geht, dass man in irgendeinem System (lokaler Rechner oder VM) mehrere Monitore zur Verfügung hat, zum Testen.


Prinzipiell kann man so auch HighDPI testen,
also mit höherer Auflösung (mehr Pixel), als man wirklich hat
und dann eben reinzoomen, bzw. runterskaliert "alles" sehen ... intern denkt Windows und auch das Programm weiterhin, es habe wirklich so viel (der virtuelle Monitor hat es ja auch, unabhängig vom externen Viewer).

[Rollo62]

:thumb:

[KodeZwerg]

@Torsten: Könntest Du bitte das Programm im Anhang testen und mir Bescheid geben ob es funktioniert? Es sollte "theoretisch" alles knipsen... (nur auf den Knopf drücken und schauen was kommt)
@himitsu: Das mit virtuellen Maschinen ist ein guter Tipp nur leider habe ich momentan keine Kapazitäten dafür frei ein weiteres Windows zu installieren.

//edit anhang entfernt um der DP platz zu sparen

[Hunni]

Zitat:

Zitat von KodeZwerg (Beitrag 1513622)

@Torsten: Könntest Du bitte das Programm im Anhang testen und mir Bescheid geben ob es funktioniert? Es sollte "theoretisch" alles knipsen... (nur auf den Knopf drücken und schauen was kommt)
@himitsu: Das mit virtuellen Maschinen ist ein guter Tipp nur leider habe ich momentan keine Kapazitäten dafür frei ein weiteres Windows zu installieren.

Hallo KodeZwerg,

Ja,

es wird der Inhalt beider Bildschirme aufgenommen


Torsten

[KodeZwerg]

Zitat:

Zitat von Hunni (Beitrag 1513626)

Zitat:

Zitat von KodeZwerg (Beitrag 1513622)

@Torsten: Könntest Du bitte das Programm im Anhang testen und mir Bescheid geben ob es funktioniert? Es sollte "theoretisch" alles knipsen... (nur auf den Knopf drücken und schauen was kommt)
@himitsu: Das mit virtuellen Maschinen ist ein guter Tipp nur leider habe ich momentan keine Kapazitäten dafür frei ein weiteres Windows zu installieren.

Hallo KodeZwerg,

Ja,

es wird der Inhalt beider Bildschirme aufgenommen


Torsten

Vielen Dank dafür, ich werde nun die Klasse überarbeiten aber ich vermute mal das nicht alle Varianten damit klar kommen werden, für spätere weitere Tests wäre ich sehr dankbar!
( Da Du irgendwie der einzige bist den es tatsächlich interessiert :lol: )

[himitsu]

https://developer.microsoft.com/de-d...tual-machines/ :angle:

[KodeZwerg]

Zitat:

Zitat von himitsu (Beitrag 1513631)

https://developer.microsoft.com/de-d...tual-machines/ :angle:

Danke dafür aber wie gesagt, ich habe keine Kapazität dafür frei :oops: :cry:

[KodeZwerg]

Neue Version hochgeladen, der GDI modus ist momentan der einzige mit multimonitor support, ich verstehe die DirectX varianten noch nicht so ganz werde aber versuchen auch diese zu "überreden" :lol:

[Hunni]

Zitat:

Zitat von KodeZwerg (Beitrag 1513636)

Neue Version hochgeladen, der GDI modus ist momentan der einzige mit multimonitor support, ich verstehe die DirectX varianten noch nicht so ganz werde aber versuchen auch diese zu "überreden" :lol:

Hallo Kodezwerk,

ja es funktioniert gut

Super


Torsten

[KodeZwerg]

Zitat:

Zitat von Hunni (Beitrag 1513640)

Zitat:

Zitat von KodeZwerg (Beitrag 1513636)

Neue Version hochgeladen, der GDI modus ist momentan der einzige mit multimonitor support, ich verstehe die DirectX varianten noch nicht so ganz werde aber versuchen auch diese zu "überreden" :lol:

Hallo Kodezwerk,

ja es funktioniert gut

Super


Torsten

Ich bedanke mich fürs testen!

[Redeemer]

Zitat:

Zitat von KodeZwerg (Beitrag 1513437)

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

Alt+Druck ist seit jeher der Shortcut für "Screenshot vom aktuellen Fenster" in jedem Programm. Warum macht man dann eigene Shortcuts?

[KodeZwerg]

Zitat:

Zitat von Redeemer (Beitrag 1513679)

Warum macht man dann eigene Shortcuts?

Per default gibt es keine Hotkeys in meiner Klasse, nur wenn man sie aktiviert sind sie da oder ich verstehe die Frage nicht so ganz.
Wenn es um den von mir gewählten Hotkey geht, in der Datei kz.Windows.SnapShot.pas im constructor kann man sich anschauen wie ich da vorgehe und selbst seine Eigenen verwenden.

Delphi-Quellcode:

  FHotkeyAll.Hotkey      := VK_SNAPSHOT;
  FHotkeyAll.Modifier    := MOD_ALT;
  FHotkeyAll.ALT         := True;
  FHotkeyAll.CONTROL     := False;
  FHotkeyAll.SHIFT       := False;
  FHotkeyAll.WIN         := False;
  FHotkeyAll.NoRepeat    := False;

Nur als Beispiel für einen der Hotkeys.
Aktivierung bzw dessen Nutzung liegt bei Dir falls Du meine Klasse verwenden möchtest.