getdc et canvas

Version imprimable

getdc et canvas

bonjour
je voudrais seulement copier le canvas d'un handle connu
ici je fais des essais sur paint comme fenetre
par la suite sa seras une fenêtre internet explorer pour récupérer des images
qu'on ne peu pas télécharger

déjà je voudrais savoir les dimensions que je dois mettre
pour remplacer d'après exemple suivant (1500*1500) le width du canavas
de la source ici ha.width mais sa n'existe pas
merci d'avance
Code:

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 var Form1: TForm1; fen:thandle; ha:thandle; can:tcanvas; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin can:=tcanvas.Create; fen:=winapi.Windows.FindWindow(0,pchar('Sans titre - Paint')); if fen<>0 then begin label2.Caption:=inttostr(fen); ha:=getdc(fen); can.Handle:=ha; end; Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height), can, Rect(0, 0,1500, 1500)); can.Free; releaseDc(handle, ha); end; end.

16/02/2023, 08h39
ShaiLeTroll

GetClipRect, GetWindowsRect, selon le Handle, tu as un peu toute sorte de fonction

InternetExplorer vraiment ?
Pas Edge ?
le DOM ne donne rien ?

Image non téléchargeable ? à cause de la session, authentification, droits applicatifs, un dessin en JS directement ?

bonjour j'ai trouve cette fonction

Code:

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
 
procedure ScreenShotWindow;
var
  c: TCanvas;
  r, t: TRect;
  h: THandle;
  Bild: TBitMap;
  large,haut:integer;
begin
  c := TCanvas.Create;
  {h := FindWindow(nil, 'Microsoft Edge');  }
  h := FindWindow(nil, 'Sans titre - Paint');
  c.Handle := GetWindowDC(h);
  GetWindowRect(h, t);
    large:=(t.Right-t.Left)-20;
    haut:=(t.Bottom-t.Top)-150;
 
  t.Left:=t.Left+10;
  t.Top:=t.Top+150;
  try
    r := Rect(0, 0,large ,haut );
    Bild := TBitMap.Create;
    try
      Bild.Width  := large;
      Bild.Height := haut;
      Bild.Canvas.CopyRect(r, c, t);
      Bild.SaveToFile('test.bmp');
    finally
      Bild.Free;
    end;
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
    form1.Image1.Picture.LoadFromFile('test.bmp');
  end;
end;