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