ScreenShot eines Fensters machen dessen Inhalt größer Formgröße ist

[Helmi]

Hallo,

mittels folgenden Code mache ich von einem aktiven Fenster einen ScreenShot:

Delphi-Quellcode:

procedure ScreenShot_aktives_Fenster(Bild: TBitMap);
var
  c: TCanvas;
  r, t: TRect;
  h: THandle;

begin
  c := TCanvas.Create;
  c.Handle  := GetWindowDC(GetDesktopWindow);

  h := GetForeGroundWindow;

  If h <> 0 then
    GetWindowRect(h, t);

  try
    r := Rect(0, 0, t.Right - t.Left, t.Bottom - t.Top);

    Bild.Width  := t.Right - t.Left;
    Bild.Height := t.Bottom - t.Top;
    Bild.Canvas.CopyRect(r, c, t);
  finally
    ReleaseDC(0, c.Handle);
    FreeAndNil(c);
  end;
end;

Dummerweise hab ich eine Software (nicht von mir, ist vom Siemens) dessen Inhalt der Form
zu groß für das maximierte Fenster ist, so dass die Scrollbars angezeigt werden.
Wie könnt ich nun einen Screenshot des kompletten (großen) Inhalts des Fensters machen?

[zeras]

Ich meine, dass ich vor einiger Zeit das gleiche Problem hatte. Versuche es doch mal mit diesem Code.

Delphi-Quellcode:

  procedure ScreenShot(wnd: HWND; destBitmap : TBitmap) ;
  var
    w,h : integer;
    DC : HDC;
    r : TRect;
    DCProgr : HDC;

  begin
    SetActiveWindow(wnd);

    DCProgr:=GetForegroundWindow;

    if DCProgr <> wnd then begin
      SetForegroundWindow(wnd);
      sleep(Delay4ScreenShot);
    end;

    dc := GetWindowDC(wnd) ;
    GetWindowRect(wnd,r) ;
    w := r.Right - r.Left;
    h := r.Bottom - r.Top;
    try
      destBitmap.Width := w;
      destBitmap.Height := h;
      BitBlt(destBitmap.Canvas.Handle,
               0,
               0,
               destBitmap.Width,
               destBitmap.Height,
               DC,
               0,
               0,
               SRCCOPY) ;
    finally
      ReleaseDC(wnd, DC) ;
    end;

    SetForegroundWindow(DCProgr);
  end;

[Helmi]

Danke für den Code!

Nur leider wird da auch nur das sichtbare vom Fenster abfotographiert

[zeras]

Zitat:

Zitat von Helmi (Beitrag 1207703)

Nur leider wird da auch nur das sichtbare vom Fenster abfotographiert

Sorry.
Ich habe noch eine weitere Funktion gefunden, hatte dann aber drübergeschrieben, dass diese nur unter XP und Vista geht. Kannst ja nochmal probieren.

Delphi-Quellcode:

  //geht nur mit Win XP oder Vista, jedenfalls Funktion "PRINTWINDOW"
  function ScreenshotHidden(wnd: HWND; const bmp: TBitmap): Boolean;
  var
    rec: TRect;    //zum Zwischenspeichern der Fenstergröße
    dllh: THandle; //Handle der user32.dll
    PrintWindow: function(sHandle: HWND; dHandle: HDC; nFlags: UINT): BOOL; stdcall; //Prototyp der verwendeten Funktion

  begin
    Result := False;                     //Rückgabewert initialisieren
    dllh := GetModuleHandle(user32);     //dll dynamisch laden...
    if dllh <> 0 then
    begin
      @PrintWindow:= GetProcAddress(dllh , 'PrintWindow'); //die Funktionsadresse aus der Dll laden...
      if @PrintWindow = nil then begin
        ShowMessage('@PrintWindow = nil');
      end
      else begin
        GetWindowRect(wnd, rec);           //Größe des Fensters auslesen...
        ShowMessage(Format('left "%d", right "%d", top "%d", bottom "%d"',[rec.Left, rec.Right, rec.Top, rec.Bottom]));
        bmp.Width := rec.Right - rec.Left;   //...und die Bitmap-Größe anpassen
        bmp.Height := rec.Bottom - rec.Top;
        bmp.Canvas.Lock;                 //Zugriff auf den Canvas für andere Threads blockieren
        try
          result := PrintWindow(wnd, bmp.Canvas.Handle, 0); //Das Fenster zeichnet sich selbst in das HDC des Bitmaps
        finally
          bmp.Canvas.Unlock;             //Zugriff wieder erlauben
        end;
      end;
    end;
  end;

[Helmi]

also entweder mach ich was falsch oder es geht nicht

Mit diesem Code mach ich ein Foto:

Delphi-Quellcode:

  function ScreenshotHidden(wnd: HWND; const bmp: TBitmap): Boolean;
   var
     rec: TRect; //zum Zwischenspeichern der Fenstergröße
     dllh: THandle; //Handle der user32.dll
     PrintWindow: function(sHandle: HWND; dHandle: HDC; nFlags: UINT): BOOL; stdcall; //Prototyp der verwendeten Funktion

   begin
     Result := False; //Rückgabewert initialisieren
     dllh := GetModuleHandle(user32); //dll dynamisch laden...
     if dllh <> 0 then
     begin
       @PrintWindow:= GetProcAddress(dllh , 'PrintWindow'); //die Funktionsadresse aus der Dll laden...
       if @PrintWindow = nil then begin
         ShowMessage('@PrintWindow = nil');
       end
       else begin
         GetWindowRect(wnd, rec); //Größe des Fensters auslesen...
         ShowMessage(Format('left "%d", right "%d", top "%d", bottom "%d"',[rec.Left, rec.Right, rec.Top, rec.Bottom]));
         bmp.Width := rec.Right - rec.Left; //...und die Bitmap-Größe anpassen
         bmp.Height := rec.Bottom - rec.Top;
         bmp.Canvas.Lock; //Zugriff auf den Canvas für andere Threads blockieren
         try
           result := PrintWindow(wnd, bmp.Canvas.Handle, 0); //Das Fenster zeichnet sich selbst in das HDC des Bitmaps
         finally
           bmp.Canvas.Unlock; //Zugriff wieder erlauben
         end;
       end;
     end;
   end;

procedure ScreenShot_aktives_Fenster(Bild: TBitMap);
var
  c: TCanvas;
  r, t: TRect;
  h: THandle;

begin
  c := TCanvas.Create;
  c.Handle  := GetWindowDC(GetDesktopWindow);

  h := GetForeGroundWindow;

  If h <> 0 then
    ScreenshotHidden(h, Bild);
end;

Ich nutz meine Procedure um jetzt nicht im Code überall ändern zu müssen und ausserdem wird dort
das Handle des Fensters ausgelesen (ich hoffe das ist das richtige für die function).

Leider wird trotzdem nur der sichtbare Teil bildlich dargestellt

[zeras]

Sorry, mehr Code habe ich in dem Programm nicht gefunden.
Kann es sein, dass dies erst verfügbar ist, wenn man es auf dem Bildschirm sieht?

[Helmi]

Zitat:

Zitat von zeras (Beitrag 1207710)

Sorry, mehr Code habe ich in dem Programm nicht gefunden.
Kann es sein, dass dies erst verfügbar ist, wenn man es auf dem Bildschirm sieht?

Sorry - ich vergaß zu erwähnen dass das abzufotographierende Fenster schon sichtbar ist
also keine Hintergrund-Bildermacherei

[Helmi]

Ich habe diesen Post gefunden.

Wenn ich den so aufrufe, dann erhalt ich nur ein schwarzes Bitmap:

Delphi-Quellcode:

procedure PrintWindow(Wnd: HWND; ATo: TBitmap);
var
   hDCMem : HDC;
   DC : HDC;
   rect : TRect;
   bmp : HBITMAP;
   hOld : HGDIOBJ;
begin
   hDCMem:=CreateCompatibleDC(0);

   GetWindowRect(Wnd, rect);

   bmp:=0;

   DC:= GetDC(Wnd);
   bmp:= CreateCompatibleBitmap(DC, rect.Right-rect.Left, rect.Bottom-rect.Top);
   ReleaseDC(Wnd, DC);

   hOld:=SelectObject(hDCMem, bmp);
   SendMessage(wnd, wm_Print, hDCMem, PRF_CHILDREN or PRF_CLIENT or PRF_ERASEBKGND or PRF_NONCLIENT or PRF_OWNED);

   selectObject(hDCMem, hold);
   DeleteObject(hDCMem);

   ATo.FreeImage;
   ATo.Handle:=bmp;
end;

procedure ScreenShot_aktives_Fenster(Bild: TBitMap);
var
  h: THandle;

begin
  h := GetForeGroundWindow;

  If h <> 0 then
    PrintWindow(h, Bild);
end;

Ist mein Aufruf falsch?

[Andreas L.]

Wie sieht das Ergebnis aus wenn du PRF_ERASEBKGND aus dem SendMessage-Aufruf entfernst?

[Perlsau]

Zitat:

Zitat von Helmi (Beitrag 1207701)

Dummerweise hab ich eine Software (nicht von mir, ist vom Siemens) dessen Inhalt der Form zu groß für das maximierte Fenster ist, so dass die Scrollbars angezeigt werden. Wie könnt ich nun einen Screenshot des kompletten (großen) Inhalts des Fensters machen?

Das geht meines Wissens nach nicht, weil die nicht sichtbaren Teile deines Programm-Fensters nicht in Windows als Bitmap existieren, sondern erst beim Scrollen im Programm neu gezeichnet werden. Genauso wenig kannst du den Inhalt eines gerade nicht sichtbaren TabSheets einer Pagecontrol-Komponente sehen oder das, was in einem nicht aufgeklappten Menü verborgen ist. Bildschirmaufnahmen lesen lediglich den Bildschirmspeicher aus, und dort ist eben nur das drin, was gerade hineingezeichnet wurde.

Die Lösung besteht darin, zwei Bildschirmfotos zu machen und die dann zusammenzufügen. Das kann man, wenn man das häufiger benötigt, natürlich automatisieren, will sagen: von einer Software erledigen lassen.