Screenshot und Skalierung

[tofse01]

Hallo zusammen

ich habe hier eine Delphi XE Installation unter Win 10 und seit einigen Jahren nicht mehr wirklich damit gearbeitet.

Habe nun die Aufgabe bekommen, ein Programm zu schreiben, das einen Screenshot von einem andere Programm erzeugt und dazu Infos aus einer DB lädt, und beides zusammen an eine Schnittstelle schickt.
Habe ich in der Vergangenheit in anderen Konstellationen schon gemacht und dachte mir, wird kein Problem sein.

Im Prinzip habe ich auch schon alles, musste aber feststellen, dass gerade die Aktion mit dem Screenshot für mich ein größeres Problem darstellt.
Ich erstelle den SCreenhot, bekomme die Koordinaten von dem anderen Programm, nur leider passen die nicht zusammen. Speichere ich also an Hand der Koordination den Bildausschnitt vom Screenshot ab, stimmt das nicht überein, soll heißen, die Rändern sind verschoben und ich bekomme einen komplett anderen Bereich bzw. auch nur einen Teilausschnitt

Zuerst wusste ich nicht, woran das hängt, bis ich auf die Skalierung gekommen bin. Bei uns in der Firma ist diese auf 125% eingestellt. Ändere ich es mir auf 100%, passt es soweit.

Nur ich muss halt mit 125% klar kommen. Ich habe das Netz durchforstet und bin aber nicht klar gekommen. Problem ist halt auch, dass ich ca. 7-8 Jahre nichts mit Delphi zu tun hatte. Habe Infos gefunden, dass man in der IDE was einstellen kann in Bezug auf High DPI, aber das gibt es bei XE wohl nicht. Auch habe ich zu Manifest Dateien was gefunden, aber keine wirklich verständliche Vorgehensweise

Ich dachte, das mit dem Screenshot wäre simpel, ist es aber hier nicht
Hat jemand einen Tipp für mich?

Habe schon versucht, die Screenshot Koordinaten umzurechnen, aber das klappt nicht, kommt immer was anderes raus, bzw. die 25% Unterschied zeigen sich nicht in der Realität.
Habe z.B. mit Greenshot die "echten" Koordinaten ermittelt und mit den verglichen, die ich im Programm erhalte. Da besteht für mich kein Zusammenhang mit 100% zu 125%

Hilfe

Danke
Christof

[dummzeuch]

Wie erstellst Du denn den Screenshot?

Nach dem, was Du schreibst, ist das ja der komplette Bildschirm (also was man mit Ctrl+Druck bekommt), Dann muss man natürlich den entsprechenden Ausschnitt bestimmen, wo dann die Skalierung Probleme bereitet.

Wenn ich mich recht erinnere, gibt es auch die Möglichkeit, nur einen Screenshot von einem bestimmten Fenster zu erzeugen (= Alt+Druck). Dann bräuchte man den Ausschnitt nicht mehr selbst ermitteln.

[tofse01]

Hallo,

ich verstehe nicht, was du meinst.
Ich habe das Handle von dem Programm, das ich als Screenshot benötige


Habe diese Code, mit GetWindowRect bekomme ich die Koordinaten, aber die passen nicht

Delphi-Quellcode:

procedure ScreenShot(hWindow: HWND; bm: TBitmap; te:TEdit);
var
  Left, Top, Width, Height: Word;
  R: TRect;
  dc: HDC;
  lpPal: PLOGPALETTE;
begin
  {Check if valid window handle}
  if not IsWindow(hWindow) then Exit;
  {Retrieves the rectangular coordinates of the specified window}
  GetWindowRect(hWindow, R);

  te.Text:='L: '+inttostr(R.Left)+' T: '+inttostr(R.Top)+' B: '+inttostr(R.Bottom)+' R:'+inttostr(R.Right)+' ';

  //R.Right:=round(R.Right*1.25);

  Left := R.Left;
  Top := R.Top;
  Width := R.Right - R.Left;
  Height := R.Bottom - R.Top;
  bm.Width  := Width;
  bm.Height := Height;
  {get the screen dc}
  dc := GetDc(0);
  if (dc = 0) then
  begin
    Exit;
  end;
  {do we have a palette device?}
  if (GetDeviceCaps(dc, RASTERCAPS) and
    RC_PALETTE = RC_PALETTE) then
  begin
    {allocate memory for a logical palette}
    GetMem(lpPal,
      SizeOf(TLOGPALETTE) +
    (255 * SizeOf(TPALETTEENTRY)));
    {zero it out to be neat}
    FillChar(lpPal^,
      SizeOf(TLOGPALETTE) +
    (255 * SizeOf(TPALETTEENTRY)),
      #0);
    {fill in the palette version}
    lpPal^.palVersion := $300;
    {grab the system palette entries}
    lpPal^.palNumEntries :=
      GetSystemPaletteEntries(dc,
      0,
      256,
      lpPal^.palPalEntry);
    if (lpPal^.PalNumEntries <> 0) then
    begin
      {create the palette}
      bm.Palette := CreatePalette(lpPal^);
    end;
    FreeMem(lpPal, SizeOf(TLOGPALETTE) +
    (255 * SizeOf(TPALETTEENTRY)));
  end;
  {copy from the screen to the bitmap}
  BitBlt(bm.Canvas.Handle,
    0,
    0,
    Width,
    Height,
    Dc,
    Left,
    Top,
    SRCCOPY);
  {release the screen dc}
  ReleaseDc(0, dc);
end;

[tofse01]

Ich demonstriere mal das Problem mit dem "Windows Rechner" als Beispielprogramm.

Die "echten" linken, oberen Koordinaten sind 252 x 193

Mein Programm bekommt mit dem obigen Code aber das hier raus, siehe Bild, alles ist versetzt und abgeschnitten

[supermulti81]

Moin,
probiere bzw. ersetze mal:
GetWindowRect(hWindow, R);

durch

GetClientRect(hWindow, R);
Width := R.Width;
Height := R.Height;

[tofse01]

Danke, ich brauche aber die Koordinaten von dem Programm, und die von dir genannte GetClientRect hat keine Parameter

[himitsu]

Doch, hat sie, wenn du die Richtige benutzt.
* Self.GetClientRect von der Form, bzw. TCustomForm
* Windows.GetClientRect aus der Windows.pas, bzw. Winapi.Windows.pas

Die machen aber natürlich beide genau das Gleiche.
R := DelphiKomponente.GetClientRect; oder GetClientRect(HandleDerKomponente, R);


Dein Programm ist skaliert, also bekommt es auch die Koordinaten skaliert, aus seiner eigenen verbogenen Sichtweise.
Wäre dein Programm für HighDPI ausgelegt, also es dem Windoes sagt "ich kann das", dann wird es nicht skalliert und bekommt auch alle Canvas und Koordinaten in unverfäschter Form.

Genauso wird dein Programm in aktuellen Windowsen virtualisiert, also wenn dein Programm fragt, welche Windowsversions das ist, bekommt es meistens XP oder Vista gesagt, weil sich dein Programm nicht als kompatibel mit der dem Windows geoutet hat.
https://www.delphipraxis.net/216149-...skmanager.html

[tofse01]

Verstehe ich leider nicht
Ich will die Koordinaten von einem externen Programm, das rein gar nichts mit dem Delphi Programm zu tun hat. Als Beispiel verwende ich den "Windows Rechner", hierzu suche ich mir den Handler raus

Verwende ich

GetWindowRect(Prog, t); Bekomme ich als Ergebnis 351 x 284 (links oben) raus

Verwende ich das hier

Windows.GetClientRect(Prog,t); Bekomme ich als Ergebnis 0 x 0 raus

"Prog" ist hier der Handler von dem "Win Rechner"

[tofse01]

Es liegt definitiv an den Win Einstellungen, verwende ich hier 100% (Was ich aber im Produktiveinsatz nicht machen kann) dann bekomme ich das gewünschte Ergebnis, siehe Anhang

[supermulti81]

Oben links brauchst du doch gar nicht.

du holst doch das Bild über das Handle und das startet bei x=0 und y=0.
und GetClientRect(hWindow, R);
gibt dir ein Rect zurück. Da verwendest du Width und Height.

Width := R.Width;
Height := R.Height;

und bitte noch setzen:
Left := 0;
Top := 0;

dann klappt auch dein BitBlt.

BitBlt(bm.Canvas.Handle,
0,
0,
Width,
Height,
Dc,
Left,
Top,
SRCCOPY);