Discussion :

[tintin62]

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 :

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
 
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.

[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 ?

[tintin62]

bonjour j'ai trouve cette fonction

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
 
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;