Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Screenshot in Bmp mit GetWindowDC(GetDesktopWindow)?? (https://www.delphipraxis.net/120694-screenshot-bmp-mit-getwindowdc-getdesktopwindow.html)

chrizl08 15. Sep 2008 14:40


Screenshot in Bmp mit GetWindowDC(GetDesktopWindow)??
 
Hi,
hab ne kurze Frage:

Ich habe folgende Codezeile:
Delphi-Quellcode:
bmp.Canvas.Handle:=GetWindowDC(GetDesktopWindow);
Kann ich jetzt mit bmp.Scanline[y] das Bild nach Farben durchsuchen oder ist das Screenshot noch nicht in bmp und ich muss es mit BitBlt kopieren??

Danke für eure Hilfe!!!

smallsmoker 15. Sep 2008 14:43

Re: Screenshot in Bmp mit GetWindowDC(GetDesktopWindow)??
 
probier doch einfach mal es abzuspeichern .. ?

chrizl08 15. Sep 2008 14:46

Re: Screenshot in Bmp mit GetWindowDC(GetDesktopWindow)??
 
ok also es ist nichts drinn :)
aber es ist leider auch nichts drinnen nach folgender zeile:
Delphi-Quellcode:
BitBlt(bmp.Canvas.Handle,0,0,1680, 1050, GetWindowDC(GetDesktopWindow),0,0,SRCCOPY );

chrizl08 15. Sep 2008 14:52

Re: Screenshot in Bmp mit GetWindowDC(GetDesktopWindow)??
 
ah habs, trotzdem danke :)

DeddyH 15. Sep 2008 14:53

Re: Screenshot in Bmp mit GetWindowDC(GetDesktopWindow)??
 
Was war es denn? Vergessen, die Dimensionen der Bitmap zu setzen?

alleinherrscher 15. Sep 2008 14:53

Re: Screenshot in Bmp mit GetWindowDC(GetDesktopWindow)??
 
Hey, wie wärs hiermit?


Delphi-Quellcode:
procedure MakeScreenShot(const ATarget: TBitmap);
var
  DesktopDC: HDC;
begin
  DesktopDC := CreateDC('DISPLAY', nil, nil, nil);
  try
    ATarget.PixelFormat := pfDevice;
    ATarget.Width := Screen.Width;
    ATarget.Height := Screen.Height;

    BitBlt(ATarget.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
  finally
    DeleteDC(DesktopDC);
  end;
end;
Grüße

//edit: Oh, Mist, zu spät :-P


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:36 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz