Discussion :

[PiPo123]

J'aimerais savoir comment faire une copie de la FENÊTRE ACTIVE dans une bitmap SANS UTILISER LE PRESSE-PAPIER !. J'ai lu l'article de Pierre Castelain 'Commment faire une copie d'écran et l'enregistrer dans un fichier' et j'aimerais le modifier pour faire une copie de la fenêtre active. Voici son code pour sauver l'écran au complet. Je pense qu'il n'y a pas beaucoup de modifications à faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure ScreenShot(const Filename: string);
var
  bitmap: TBitmap;
  desktopHandle: THandle;
  deviceContext: HDC;
begin
  {----------------------------------------------------------------------} 
  Attention il ne suffit pas de remplacer GetDesktopWindow par
  GetActiveWindow, il nous faut les dimensions de la fenêtre pour faire
  la copie dans le bitmap
  {----------------------------------------------------------------------} 
 
  desktopHandle:= GetDesktopWindow;   // Récupération du handle du bureau
  deviceContext:= GetDC(desktopHandle); // Récupération du contexte de
                                                             périphérique du bureau
 
  bitmap:= TBitmap.Create; // Création d'une image bitmap
  try
    bitmap.Width:= Screen.Width; // Ajustement de la taille de l'image
    bitmap.Height:= Screen.Height; // pour qu'elle corresponde à celle du bureau
 
    BitBlt(bitmap.Canvas.Handle, 0, 0, bitmap.Width, bitmap.Height,
      deviceContext, 0, 0, SRCCOPY); // Copie du bureau dans l'image bitmap
 
    bitmap.SaveToFile(Filename); // Sauvegarde de l'image dans un fichier bmp
  finally
    bitmap.Free; // Libération de l'image
    ReleaseDC(desktopHandle, deviceContext); // Libération du contexte de périphérique
  end;
end;

Merci, Pierre-Yves Belleau

[evarisnea]

a première vue, je ferais ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
{--------------------------------------------------}
procedure ScreenShot(const Filename: string);
var
bitmap: TBitmap;
windowHandle: THandle;
deviceContext: HDC;
begin
{----------------------------------------------------------------------}
Attention il ne suffit pas de remplacer GetDesktopWindow par
GetActiveWindow, il nous faut les dimensions de la fenêtre pour faire
la copie dans le bitmap
{----------------------------------------------------------------------}

windowHandle:= GetDesktopWindow; // Récupération du handle du la fenêtre
deviceContext:= GetDC(windowHandle); // Récupération du contexte de
périphérique de la fenêtre

//code pour récupérer les dimensions de la fenêtre dont on a le Handle
//dsl, je ne sais plus trop quelle est l'API à utiliser
//essaie de jetter un coup d'oeil du coté de GetWindowLong

bitmap:= TBitmap.Create; // Création d'une image bitmap
try
//à remplacer
bitmap.Width:= Screen.Width; // Ajustement de la taille de l'image
//à remplacer
bitmap.Height:= Screen.Height; // pour qu'elle corresponde à celle du bureau

BitBlt(bitmap.Canvas.Handle, 0, 0, bitmap.Width, bitmap.Height,
deviceContext, 0, 0, SRCCOPY); // Copie du bureau dans l'image bitmap
//pas besoin de sauvegarder l'image
//bitmap.SaveToFile(Filename); // Sauvegarde de l'image dans un fichier bmp
finally
bitmap.Free; // Libération de l'image
ReleaseDC(desktopHandle, deviceContext); // Libération du contexte de périphérique
end;
end;
{--------------------------------------------------}

[Jipété]

Yep !
C'est pas GetWindowLong, c'est GetWindowRect, je pense, et j'ai essayé comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure ScreenShot;
var
  bitmap: TBitmap;
  windowHandle: THandle;
  deviceContext: HDC;
  rect : TRect;
begin
  windowHandle  := GetActiveWindow; // Récupération du handle du la fenêtre
  deviceContext := GetDC(windowHandle); // Récupération du contexte de périphérique de la fenêtre
 
  bitmap:= TBitmap.Create; // Création d'une image bitmap
  try
    GetWindowRect(windowHandle, rect);
    bitmap.Width := rect.Right - rect.Left; // Ajustement de la taille de l'image
    bitmap.Height:= rect.Bottom - rect.Top; // pour qu'elle corresponde à celle de la fenêtre
    BitBlt(bitmap.Canvas.Handle, 0, 0, bitmap.Width, bitmap.Height,
      deviceContext, 0, 0, SRCCOPY); // Copie de la fenêtre dans l'image bitmap
    bitmap.SaveToFile('c:\img.bmp'); // Sauvegarde de l'image dans un fichier bmp
  finally
    bitmap.Free; // Libération de l'image
    ReleaseDC(windowHandle, deviceContext); // Libération du contexte de périphérique
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ScreenShot;
end;

Il y a un souci, c'est qu'on dirait que ça calcule la zone client seulement, sans inclure la barre de titre ! La preuve :


Si qqun a une meilleure idée, ch'suis intéressé aussi.
--
jp

[Cl@udius]

Salut,

J'ai fait ceci et ça marche. Cependant je ne vois pas pourquoi l'exemple de Jipété ne fonctionne pas puisque qu'on fait la même chose.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
procedure CopyWindowToBitmap(AHWnd: HWND; ABitmap: TBitmap);
var
  WindowDC: HDC;
  WindowRect: TRect;
begin
  // Dimensions de la fenêtre
  GetWindowRect(AHWnd, WindowRect);
  // Contexte de dessin
  WindowDC := GetWindowDC(AHWnd);
  // Effectuer une copie dans le bitmap
  try
    with ABitmap do
    begin
      with WindowRect do
      begin
        Width := Right - Left + 1;
        Height := Bottom - Top + 1;
      end;
      BitBlt(Canvas.Handle, 0, 0, Width, Height,
             WindowDC, 0, 0, SRCCOPY);
    end;
  finally
    ReleaseDC(AHWnd, WindowDC); // Libération du DC
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  MyBitmap: TBitmap;
begin
  MyBitmap := TBitmap.Create;
  try
    CopyWindowToBitmap(GetActiveWindow, MyBitmap);
    MyBitmap.SaveToFile('c:\img.bmp'); // Sauvegarde de l'image
  finally
    MyBitmap.Free;
  end;
end;

@+

[Jipété]

@Claudius40:
Si si il y a une énorme différence entre nos 2 codes :
je faisais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  deviceContext := GetDC(windowHandle); // Récupération du contexte de périphérique de la fenêtre

tel que repompé du code précédement posté, alors que toi tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  deviceContext := GetWindowDC(windowHandle); // Contexte de dessin

Ça change tout, ce "Window" au milieu.
Désolé d'avoir posté un truc foiré (suis pas spécialiste de ces choses) mais ça nous aura permis à tous de récupérer un code qui fonctionne impec !

Et pour avoir une image parfaite (testé il y a 5 secondes !),

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
      with WindowRect do
      begin
        Width := Right - Left;
        Height := Bottom - Top;
      end;

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
      with WindowRect do
      begin
        Width := Right - Left + 1;
        Height := Bottom - Top + 1;
      end;

Et là, que du bonheur !

Merci Claudius40, et bon dimanche !
--
jp

[Cl@udius]

A vouiii, je n'avais pas vu le GetDC !

Salut @+