Screenshot like Snipping Tool

[Youuuu]

Hi,

würde gerne eine Art "Snipping Tool" in meinem Programm integrieren.

Gibt es hierfür bereits einen Code oder Ideen das umzusetzen?


Ich hatte erst an eine transparente Form gedacht, das funktioniert alleridngs leider nicht, sobald ich die Form auf Transparent setze, kann ich diese nicht mehr anklicken "man kickt durch".

[jaenicke]

Warum machst du es denn nicht einfach wie das Snipping Tool?

Screenshot vom Bildschirm machen, dann auf einem maximierten Fenster ohne Rand anzeigen und den Bereich auswählen lassen.

Oder meinst du den Fenstermodus?

[KodeZwerg]

Zitat von Youuuu:

Hi,

würde gerne eine Art "Snipping Tool" in meinem Programm integrieren.

Gibt es hierfür bereits einen Code oder Ideen das umzusetzen?


Ich hatte erst an eine transparente Form gedacht, das funktioniert alleridngs leider nicht, sobald ich die Form auf Transparent setze, kann ich diese nicht mehr anklicken "man kickt durch".

Du meinst sowas wie ein Rechteck zeichnen um eine Fläche für ein Photo auszuwählen? (Falls ja, dies bau ich gerade in meine ScreenShot Klasse ein...)

[Youuuu]

Zitat von KodeZwerg:

Zitat von Youuuu:

Hi,

würde gerne eine Art "Snipping Tool" in meinem Programm integrieren.

Gibt es hierfür bereits einen Code oder Ideen das umzusetzen?


Ich hatte erst an eine transparente Form gedacht, das funktioniert alleridngs leider nicht, sobald ich die Form auf Transparent setze, kann ich diese nicht mehr anklicken "man kickt durch".

Du meinst sowas wie ein Rechteck zeichnen um eine Fläche für ein Photo auszuwählen? (Falls ja, dies bau ich gerade in meine ScreenShot Klasse ein...)

Richtig

[KodeZwerg]

Im Anhang ist ein Formular mit Unit, beides in dein Projekt-Ordner kopieren und "uCapture" in den "Uses" aufnehmen.

Dann sowas in der Art...

Delphi-Quellcode:

procedure Foobar;
var
  Capture: TfrmCapture;
begin
  Capture := TfrmCapture.Create(nil);
  try
    Capture.ShowModal;
    Image1.Picture.Bitmap.Assign(Capture.Image);
  finally
    Capture.Free;
  end;

Da ist leider ein Flickern drinn was ich nicht abschalten kann da ich irgendwo was falsch mache

[Youuuu]

Das flackern habe ich nicht, allerdings öfters den Fehler "Fehler bei Bereichsprüfung"

Der Fehler tritt laut Debugger hier auf

ScreenDC := GetDC(0); In FormMouseMove


Edit: es wird auch nicht genau der Bereich gecaptcherd den ich markiere, das scheint etwas verschoben zu sein, hast das bei dir auch?

[Youuuu]

Schau mal, hab zwei Videos beigefügt, einmal mit dem Fehler und einmal mit dem verschobenen Screen catch.

Meine Auflösung ist: 3840 * 1600, als Info

[KodeZwerg]

Zitat von Youuuu:

Das flackern habe ich nicht, allerdings öfters den Fehler "Fehler bei Bereichsprüfung"

Der Fehler tritt laut Debugger hier auf

ScreenDC := GetDC(0); In FormMouseMove


Edit: es wird auch nicht genau der Bereich gecaptcherd den ich markiere, das scheint etwas verschoben zu sein, hast das bei dir auch?

Bitte mal ändern und testen, hatte den falschen Type definiert

Delphi-Quellcode:

var
  ScreenDC: HDC;

//edit
Ps: Nein, bei mir macht es was es soll, aber der Rahmen flackert wild solange man die Maus drückt.
PPs: Wenn Du mit der mittleren Maus einen Rahmen ziehst, werden alle Farben invertiert

[himitsu]

Das ist der Spaß, einer neuen Defaulteinstellung neuer Projekte ... die Bereichsprüfung ist jetzt immer aktiv.

Früher konnte man Signed- und Unsigned-Integer gegenseitig zuweisen, ohne dass es knallt ... es war einmal

Blöd, dass Delphi teilweise selber fehlerhafte Typen hat, wo nun Konstanten und Typen nicht mehr zusammen passen.
z.B. NTSTATUS ist signed, alle Konstenten bis 31 Bit sind signed undefiniert, aber Konstanten größer 31 Bit sind explizit unsigned, also STATUS_SUCCESS vs. STATUS_INVALID_HANDLE

https://quality.embarcadero.com/browse/RSP-16751

[KodeZwerg]

Ich habe mir Deine Videos angeschaut und zeige nun meins um zu zeigen das es wirklich das macht was es sollte...
(Bei mir ist mittlerweile auch das flackern wieder verschwunden da ich den Rahmen nicht mehr male)
Warum die Auswahl nicht das "knipst" was es soll da hab ich keinen Ratschlag... vielleicht liegt es an deiner Monitor Skalierung, bei mir ist es auf 100% gestellt.