Bitmap: Undeclared Identifier 'SetSize'

[eDonkey]

Hi Community!

Ich versuche derzeit eine Vorschau eines versteckten Fensters in ein TImage zu zeichnen. ich hab dies auch soweit hinbekommen dass es mit nicht versteckten fenstern funktioniert.
Um jetzt aber einen screenshot eines versteckten fenster zu machen habe ich mir folgende Funktion kopiert
und verstehe diese auch. was mich aber wundert ist dass ich beim aufruf von 'bmp.Setsize()' einen undeclared identifier error bekomme. Dafür muss ich ja nichts unter uses angeben oder? weiss jemand eine Lösung?

Ich benutze Delphi7.

Hier noch die Funktion:

Delphi-Quellcode:

function ScreenshotHidden(wnd: HWND; const bmp: TBitmap): Boolean;
   var
     rec: TRect; //zum Zwischenspeichern der Fenstergröße
     caption: string;


     Size : Cardinal;
     MemLocal : ^TBitmap;
     MemRemote : ^TBitmap;
     Process : THandle;
     ProcessId : DWORD;
     NumBytes : Cardinal;
     ListView : HWND;
     b : TBitmap;
     InfoHeaderSize : Cardinal;
     ImageSize : Cardinal;


    begin
     Result := False; //Rückgabewert initialisieren

     GetWindowRect(wnd, rec); //Größe des Fensters auslesen...
     bmp.Width := rec.Right - rec.Left; //...und die Bitmap-Größe anpassen
     bmp.Height := rec.Bottom - rec.Top;
     bmp.PixelFormat := pf24Bit; // Datenmassen in Zaum halten
     bmp.SetSize(bmp.Width, bmp.Height);

     {Graphics.}GetDIBSizes (bmp.Handle, InfoHeaderSize, ImageSize);


     bmp.Canvas.Lock; //Zugriff auf den Canvas für andere Threads blockieren
     try

       b:=TBitmap.Create;
       b.Width:=bmp.Width;
       b.Height:=bmp.Height;
       b.PixelFormat:=bmp.PixelFormat;


       // Fensterhandle des Desktop-ListView ermitteln und Prozess oeffnen
       ListView := wnd;
       ProcessId := 0;
       GetWindowThreadProcessId(ListView, @ProcessId);

       Process := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_OPERATION or
                  PROCESS_VM_READ or PROCESS_VM_WRITE, False, ProcessId);
       if Process <> 0 then begin
         try

           Size := ImageSize;

           MemRemote := VirtualAllocEx(Process, nil, Size, MEM_COMMIT, PAGE_READWRITE);
           MemLocal := VirtualAlloc(nil, Size, MEM_COMMIT, PAGE_READWRITE);

           if Assigned(MemLocal) and Assigned(MemRemote) then begin
             SendMessage(wnd, WM_PRINT, Integer(MemRemote), PRF_ERASEBKGND or PRF_CLIENT or PRF_CHILDREN);
           end;

           if ReadProcessMemory(Process, MemRemote, bmp.Canvas, Size, NumBytes) then begin

           end;
         except
         end;
       end;


       finally
         bmp.Canvas.Unlock; //Zugriff wieder erlauben
       end;
   end;

Schonmal Danke im Vorraus

[Furtbichler]

Böse Falle
Liegt bestimmt daran, das Delphi meint, das TBitmap käme aus der Windows-Unit. Passiert mir auch immer wieder. Vermutlich verwendest ('uses') du Windows irgendwo.

Einfach durchgängig 'Graphics.TBimap' verwenden oder die Uses-Reihenfolge ändern.

[DeddyH]

Außerdem ist SetSize nach dem Setzen von Width und Height irgendwie doppelt gemoppelt, oder?

[himitsu]

Hast du denn einfach mal versucht die Unitliste zu übernehmen und so geschaut, ob deine Vermutung richtig ist?

@Furtbichler:
Dann müßten doch aber auch schon die 3 Befehle davor nicht funktionieren.
Aber dennoch kann man das ja einfach mal prüfen. (Namespace, wie von Furtbichler genannt, oder die Reihenfolge der beiden Units ändern)

Und da die Meldung erst kommt, wenn der Befehl "aufgerufen" wird, kann es kein Compilerproblem sein.
Nja, aber eventuell war das nur falsch ausgedrückt und er meinte den Compiler-Fehler.





PS: Sicher daß du alles richtig verstanden hast?
Im Prinzip ist dieser Befehl nichtmal wichtig, so daß man ihn auch einfach weglassen könnte.

Zitat:

function ScreenshotHidden(wnd: HWND; const bmp: TBitmap): Boolean;
·var
· ·rec: TRect; //zum Zwischenspeichern der Fenstergröße
· ·caption: string;

· ·Size : Cardinal;
· ·MemLocal : ^TBitmap;
· ·MemRemote : ^TBitmap;
· ·Process : THandle;
· ·ProcessId : DWORD;
· ·NumBytes : Cardinal;
· ·ListView : HWND;
· ·b : TBitmap;
· ·InfoHeaderSize : Cardinal;
· ·ImageSize : Cardinal;

·begin
· ·Result := False; //Rückgabewert initialisieren

· ·GetWindowRect(wnd, rec); //Größe des Fensters auslesen...
· ·bmp.Width := rec.Right - rec.Left; //...und die Bitmap-Größe anpassen
· ·bmp.Height := rec.Bottom - rec.Top;
· ·bmp.PixelFormat := pf24Bit; // Datenmassen in Zaum halten
· ·bmp.SetSize(bmp.Width, bmp.Height); ·// Wozu eigentlich die Größe nochmals auf sich selber setzen?

· ·{Graphics.}GetDIBSizes(bmp.Handle, InfoHeaderSize, ImageSize);

· ·bmp.Canvas.Lock; //Zugriff auf den Canvas für andere Threads blockieren
· ·try
· · ·b:=TBitmap.Create;
· · ·b.Width:=bmp.Width;
· · ·b.Height:=bmp.Height;
· · ·b.PixelFormat:=bmp.PixelFormat;

· · ·// Fensterhandle des Desktop-ListView ermitteln und Prozess oeffnen
· · ·ListView := wnd;
· · ·ProcessId := 0;
· · ·GetWindowThreadProcessId(ListView wnd, @ProcessId);

· · ·Process := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_OPERATION or
· · · · · · · · ·PROCESS_VM_READ or PROCESS_VM_WRITE, False, ProcessId);
· · ·if Process <> 0 then begin
· · · ·try
· · · · ·Size := ImageSize;

· · · · ·MemRemote := VirtualAllocEx(Process, nil, Size ImageSize, MEM_COMMIT, PAGE_READWRITE);
· · · · ·MemLocal := VirtualAlloc(nil, ImageSize, MEM_COMMIT, PAGE_READWRITE);
· · · · ·try

· · · · · ·if Assigned(MemLocal) and Assigned(MemRemote) then begin
· · · · · · ·SendMessage(wnd, WM_PRINT, Integer(MemRemote), PRF_ERASEBKGND or PRF_CLIENT or PRF_CHILDREN);
· · · · · ·end;

· · · · · ·if ReadProcessMemory(Process, MemRemote, bmp.Canvas, Size ImageSize, NumBytes) then begin
· · · · · · ·RaiseLastOSError; ·// könnte auch sein, daß es unter D7 noch RaiseLastWin32Error hieß
· · · · · ·end;
· · · · ·finally
· · · · · ·VirtualFreeEx(Process, MemRemote, 0, MEM_RELEASE); // Wann hattest du vor MemRemote wieder freizugeben?
· · · · ·end;
· · · ·except finally
· · · · ·CloseHandle(Process); // Wann hattest du vor Process wieder freizugeben?
· · · ·end;
· · ·end else
· · · ·RaiseLastOSError; //RaiseLastWin32Error
· ·finally
· · ·bmp.Canvas.Unlock; //Zugriff wieder erlauben
· ·end;
·end;

[eDonkey]

Hi und Danke schonmal für eure Antworten.
Ich verstehe was der code tut aber bin noch nicht sicher was jetzt benötigt wird.
wenn ich den code mit himitsus vorschlägen abändere bekomme ich (logischerweise) keinen error mehr
aber die vorschau klappt leider auch noch nicht. Ich bekomme nur ein weisses TImage angezeigt (Vorher
ein leeres / in Hintergrundfarbe(Schwarz))

Ich kann den uses abschnitt nicht 1zu1 kopieren, da ich die funktion alleinstehend aus dem internet kopiert habe
(ja c&p find ich auch nicht schön, aber ich will dieses feature unbedingt in mein programm einbauen und bekomm es alleine einfach nicht hin)

hier mein uses abschnitt:

Delphi-Quellcode:

uses
  Unit2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, CoolTrayIcon, Menus, IniFiles, ShellAPI, TlHelp32;

[DeddyH]

Hast Du das hier einmal versucht: http://www.delphipraxis.net/1040441-post3.html?

[himitsu]

Hmm, eigentlich kann das auch nicht gehn.
ReadProcessMemory(Process, MemRemote, bmp.Canvas, ImageSize, NumBytes) then begin .
TCanvas ist eine Klasse ... da kann man garantiert nicht einfach so etwas direkt reinschreiben.
Genauso kann dann ^TBitmap so ebenfalls nicht richtig sein.


Sicher, daß du auch richtig kopiert hast?


PS: Wenn man schon kopiert, dann wäre eine Quellenangabe nicht schlecht.

[eDonkey]

Zitat von himitsu:

PS: Wenn man schon kopiert, dann wäre eine Quellenangabe nicht schlecht.

sorry, Es ist schon etwas her dass ich die funktion gefunden habe, ich hab über google
diesen beitrag gefunden wo jemand sagt die funktion funktioniere so nicht, weil nur ein
weisses canvas angezeit wird, wie bei mir:

http://www.delphipraxis.net/880453-post6.html

Zitat:

Hast Du das hier einmal versucht: Screenshot einer versteckten Form (oder so)?

habe ich so probiert, zeigt mir aber wieder nur ein leeres canvas an (schwarz, hintergrund)

PrintWindow(D2NTHwnd, Image2.Picture.Bitmap);