Discussion :

[tintin62]

bonjour
je voudrais d'après le handle d'une fenêtre copier son canvas
j'ai essayer avec paint de windows j'arrive a le récupère image
mais des que je met le handle de microsoft edge j'ai une image toute noire
voici mon code

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
 
procedure TForm1.Button5Click(Sender: TObject);
var
moncanvas:tcanvas;
NpWnd, NpEdit: HWnd;
valeur:string;
begin
moncanvas:=tcanvas.Create;
valeur:=edit1.Text ;
NpEdit := strtoint(valeur);
moncanvas.Handle:=getdc(npedit);
form1.Image1.Canvas.CopyRect(rect(0,0,500,500),moncanvas,rect(0,0,500,500));
releasedc(moncanvas.Handle,npedit);
moncanvas.Destroy;
end;

[tintin62]

bonsoir
par contre une fenêtre web a bien un Handle avec un canvas ou c'est autre chose
merci

[Paul TOTH]

tu peux t'en sortir avec le DC du Bureau à condition que la fenêtre soit en avant plan

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
 
procedure TForm1.FormCreate(Sender: TObject);
begin
// fenêtre de ton message
  var h := FindWindow('Chrome_WidgetWin_1', 'getdc canvas page web - Delphi - Personnel – Microsoft​ Edge');
  if h = 0 then
    Exit;
 
// canvas du Bureau
  var c := TCanvas.Create;
  c.Handle := GetDC(0);
 
  var r1, r2: TRect;
// dimensions de la fenêtre
  GetWindowRect(h, r1);
// dimensions de la partie cliente
  Winapi.Windows.GetClientRect(h, r2);
// ajouter en dimensions écran
  Winapi.Windows.ClientToScreen(h, r2.TopLeft);
  Winapi.Windows.ClientToScreen(h, r2.BottomRight);
// bitmap destination
  var r3 := TRect.Create(0, 0, r2.Width, r2.Height);
  var b := TBitmap.Create(r3.Width, r3.Height);
// copier le bureau dans le bitmap
  b.Canvas.CopyRect(r3, c, r2);
// le mettre dans une image
  Image1.Picture.Bitmap := b;
// faire le ménage
  b.Free;
  ReleaseDC(0, c.Handle);
  c.Handle := 0;
  c.Free;
end;

[tintin62]

bonsoir
merci pour le code que jai un peu transformer pour delphi 7
donc on fait une copie ecran en selectionnant le cadre de Edge

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
40
41
 
procedure TForm1.Button6Click(Sender: TObject);
var
h:thandle;
c:tcanvas;
  r1, r2,r3: TRect;
  large,haut:integer;
  b:tbitmap;
begin
 // fenêtre de ton message
  h := FindWindow('Chrome_WidgetWin_1',nil);
  {h:=197374; }
  if h = 0 then
    Exit;
// canvas du Bureau
  c := TCanvas.Create;
  c.Handle := GetDC(0);
  GetWindowRect(h, r1);
// dimensions de la partie cliente
  Windows.GetClientRect(h, r2);
// ajouter en dimensions écran
  Windows.ClientToScreen(h, r2.TopLeft);
  Windows.ClientToScreen(h, r2.BottomRight);
// bitmap destination
  large :=r2.Right-r2.Left;
  haut :=r2.Bottom-r2.Top;
  r3:=rect(0, 0,large,haut);
b := TBitmap.Create;
  b.Width:=large;
  b.Height:=haut;
 
// copier le bureau dans le bitmap
  b.Canvas.CopyRect(r3, c, r2);
// le mettre dans une image
  Image1.Picture.Bitmap := b;
// faire le ménage
  b.Free;
  ReleaseDC(0, c.Handle);
  c.Handle := 0;
  c.Free;
end;

[tintin62]

bonjour
conclusion une fenêtre web n'as pas de Canvas ou je me trompe

[ShaiLeTroll]

Cherche la fenêtre 'Chrome_RenderWidgetHostHWND' Text : 'Chrome Legacy Window'