Démarche pour réaliser un logiciel de "capture de page"

**ero-sennin** · 06/05/2009, 08h42

Bonjour

,

J'ai vu sur le net un petit programme très très pratique pour réaliser des captures d'écran de façon intégrale.
Je pense qu'un exemple parlera plus que les mots ... Le programme en question se nomme Web Screen Capture et sur sa page de présentation, il y a une photo on ne peut plus explicite!

Je me demandais comment réaliser un outil similaire ?
C'est peut-être simple, mais je ne vois pas trop comment m'y prendre.

Merci d'avance pour vos réponses

Ero

**qi130** · 06/05/2009, 10h20

C'est plus une capture de page qu'une capture d'écran, mais ton libellé est trompeur

captures d'écran de façon intégrale

puisque j'avais compris que tu voulais réaliser intégralement le prog

Il doit y a un webbrowser derrière, mais ensuite, mystère

, peut-être une impression vers un fichier ?

**ero-sennin** · 06/05/2009, 10h26

Envoyé par qi130

C'est plus une capture de page qu'une capture d'écran, mais ton libellé est trompeur puisque j'avais compris que tu voulais réaliser intégralement le prog

J'ai modifié le titre de la discussion.
Merci

Envoyé par qi130

Il doit y a un webbrowser derrière, mais ensuite, mystère

, peut-être une impression vers un fichier ?

Pour le WebBrowser, oui, c'est sûr.
Quant à l'impression, c'est pas bête! Je n'y avais même pas pensé.

Je vais voir ça ce soir si je peux.
Si d'autres ont des idées, qu'ils n'hésitent pas

**Andnotor** · 06/05/2009, 11h07

Tu poses simplement un WebBrowser sur ta fiche et depuis OnDocumentComplete, tu appelles 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
function SaveWebBrowserToBmp(aWebBrowser :TWebBrowser; aFileName :TFileName) :boolean;
var
  Doc  :IHTMLDocument2;
  View :IViewObject;
  Rect :TRect;
begin
  Result := FALSE;
  Doc := aWebBrowser.Document as IHTMLDocument2;
 
  if Assigned(Doc.Body) then
  begin
    //Largeur du WebBrowser à la largeur de l'écran et
    //récupération de la hauteur nécessaire
    aWebBrowser.Width  := Screen.Width;
    aWebBrowser.Height := (Doc.Body as IHTMLElement2).ScrollHeight;
 
    //Masque les ScrollBars
    Doc.Body.Style.Overflow := 'hidden';
 
    with TBitmap.Create do
    try
      Width  := aWebBrowser.Width;
      Height := aWebBrowser.Height;
      Rect := Bounds(0, 0, Width, Height);
 
      //Dessin
      Doc.QueryInterface(IViewObject, View);
      View.Draw(DVASPECT_CONTENT, 1, nil, nil, Application.Handle, Canvas.Handle, @Rect, nil, nil, 0) ;
 
      //Sauvegarde
      SaveToFile(aFileName);
      Result := TRUE;
    finally
      Free;
    end;
  end;
end;
 
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  SaveWebBrowserToBmp(WebBrowser1, 'c:\temp\Developpez.bmp');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  URL :OleVariant;
begin
  URL := 'http://www.developpez.net/forums/f15/environnements-developpement/delphi/';
  webbrowser1.Navigate2(URL);
end;

**NABIL74** · 06/05/2009, 11h27

bonjour,
pose un "WebBrowser" sur ta form,2 bouton:1 pour lancer la nivigation et le 2 bouton pour faire la capture, Timage et un edit(pour l'adresse web).
ajoute dans la partie "uses":OleCtrls, SHDocVw_TLB,ActiveX, SHDocVw.

Code :

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

1
2
3
var
  Form1: TForm1;
    b:tbitmap;

dans l'événement du 1 bouton

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
  webBrowser1.navigate(edit1.text);
  b:=TBitmap.Create;
b.PixelFormat:=pf24bit;
end;

ensuite dans du l'événement du 2 bouton(pour la capture):

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
procedure TForm1.Button2Click(Sender: TObject);
var
ViewObject: IViewObject;
sourceDrawRect: TRect;
begin
 if webBrowser1.Document <> nil then
 try
    b.Width:=WebBrowser1.Width;
    b.Height:=WebBrowser1.Height;
    webBrowser1.Document.QueryInterface(IViewObject, ViewObject);
    if ViewObject <> nil then
    try
       sourceDrawRect := Rect(0, 0, b.Width, b.Height);
       ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle,
       b.Canvas.Handle, @sourceDrawRect, nil, nil, 0);
    finally
           ViewObject._Release;
    end;
     Image1.Width:=WebBrowser1.Width;//dimensions de WebBrowser1
     Image1.Height:=WebBrowser1.Height;//dimensions de WebBrowser1
     Image1.Picture.Assign(b);
     image1.Refresh;
 except
 end;
 //sauvegarde:
 Image1.Picture.SaveToFile('C:\Image.bmp');
end;