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

[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 von 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?

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?

[Helmi]

Zitat von Andreas L.:

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

Bringt leider nichts...

Zitat von Perlsau:

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.

Das klingt plausibel

Zitat von Perlsau:

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.

Das wäre dann die einzige Lösung.
Leider ist das Fenster so groß, dass ich nicht nur horizontal sondern auch vertikal scrollen müsste und dann die Bilder dementsprechend zusammensetzen muss

[stahli]

Ich habe das mal so gemacht (vor Jahren), finde das aber leider nicht mehr.
Es wurde halt eine große bmp erstellt.

[Perlsau]

Zitat von Helmi:

Leider ist das Fenster so groß, dass ich nicht nur horizontal sondern auch vertikal scrollen müsste und dann die Bilder dementsprechend zusammensetzen muss

Wenn du öfter unter Platzmangel auf deinem Bildschirm leidest, dann empfehle ich dir einen 24-Zoll-Breitbild-Monitor. Weil mein erster 24-Zoller nach vier Jahren den Geist aufgab (der hatte damals 350 Euro gekostet), hab ich mir erst kürzlich einen bei Ebay ersteigert für sage und schreibe 111,- Euro, und der hat sogar noch ein paar Monate Garantie drauf. Mit so einem Monitor ist es nicht nur ein Vergnügen, sich Filme anzuschauen, sondern er erleichtert auch das Programmieren ungemein. Derzeit arbeite ich sogar mit zwei Monitoren an einem PC (moderne Grafikkarten können das), wobei der zweite kleinere Monitor u.a. zur Programm-Anzeige (Exe-Form) und zur Anzeige der Online-Hilfe und sonstigem Hilfszeugs dient. Auf dem Großen hab ich dann voll Platz für die IDE, was sehr angenehm ist.

Also überleg's dir: Bevor du hier versuchst, unlösbare Aufgaben zu lösen und deine wertvolle Zeit damit verplemperst, gibst du besser ein wenig Geld aus und hast dabei noch etliche weitere Vorteile erzielt.