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

Version imprimable

06/05/2009, 08h42
ero-sennin

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

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
06/05/2009, 10h20
qi130

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

Citation:

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 :roll: , peut-être une impression vers un fichier ?
06/05/2009, 10h26
ero-sennin

Citation:

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

Citation:

Envoyé par qi130

Il doit y a un webbrowser derrière, mais ensuite, mystère :roll: , 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 :D

Tu poses simplement un WebBrowser sur ta fiche et depuis OnDocumentComplete, tu appelles 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
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;

1 pièce(s) jointe(s)

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:

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

dans l'événement du 1 bouton

Code:

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:

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;

A+

NABIL74

06/05/2009, 11h30
ero-sennin

Ouaaa! J'en demandais pas tant Andnotor !
Je suis pressé de tester le tout ce soir !!!

T'es :king:
Merci !!!
06/05/2009, 20h53
ero-sennin

Super, ça fonctionne niquel!
Merci :mrgreen:
06/05/2009, 22h07
Jipété
Salut, ero !

Citation:

Envoyé par ero-sennin

Super, ça fonctionne niquel!

Tu sais quoi ?
Ça fonctionne vachement mieux en rajoutant MSHTML_TLB, ActiveX dans les uses, sinon ça compile pas avec mon D7, :mouarf:

Et ça fonctionne encore plus mieux en rajoutant la ligne en rouge, là :
Code:

1 2 3 4 5 6 with TBitmap.Create do try Width := aWebBrowser.Width; Height := aWebBrowser.Height; PixelFormat := pf24bit; Rect := Bounds(0, 0, Width, Height);
Pourquoi ?
Parce qu'avec le code d'origine, le fichier de 27 Mo créé ne peut s'ouvrir avec mon vieux Photoshop 5.5, alors qu'en rajoutant cette ligne, le nouveau fichier de seulement 20 Mo s'ouvre impec !

Merci donc également à Nabil74, :king:

Tchô, ;)
06/05/2009, 23h30
ero-sennin

Salut Jipété,

Sous D2009, il faut mettre dans les uses ceci :

Citation:

OleCtrls, SHDocVw, ActiveX, MSHTML

Bon, j'ai crié victoire un peu trop vite! Ca fonctionne mais j'ai toujours la ScrollBar verticale ! Comment je peux faire pour la virer ?
J'ai mis ceci :

Code:

aWebBrowser.Width := (Doc.Body as IHTMLElement2).scrollWidth;

au lieurde

Code:

aWebBrowser.Width := Screen.Width;

Bon, c'est sur, ça ne change rien :)
En ce qui concerne pf24bit (merci Nabil74 :oops:), je l'avais mis, et je suis même passé par un Jpeg :mrgreen:
Dommage, j'atteins presque la perfection...

Merci d'avance,
Ero :)

PS: Surtout, il faut mettre le WebBrowser à AlNone avant de faire quoi que ce soit, sinon, le redimensionnement ne se fera pas ;)
07/05/2009, 08h55
Jipété

Yop !

Citation:

Envoyé par ero-sennin

PS: Surtout, il faut mettre le WebBrowser à AlNone avant de faire quoi que ce soit, sinon, le redimensionnement ne se fera pas ;)

+ 1 !
Je l'ai remarqué également, mais trop tard pour poster (comptais le faire aujourd'hui). Ai remarqué surtout que sur un texte affiché en plusieurs lignes avec Firefox, le même texte se retrouve sur une seule looooooongue ligne dans le WebBrowser, et donc dans l'image.
Me demande si ces pbs ne viendraient pas du TWebBrowser lui-même... Faudrait essayer avec les composants Indy et ICS, mais j'peux pas, suis au taf sans Delphi handy, :(

Le problème est le codage de la page HTML :?. J'avais aussi remarqué que les scrollBars restaient visibles sur certaines pages.
Pour palier à ce problème et plutôt que d'essayer de les masquer par le Body, il suffit de toujours l'afficher (c'est le cas par défaut) et copier l'image moins sa largeur.

Le ScrollWidth, j'avais essayé aussi ;), mais logiquement, du texte au kilomètre s'affichera sur une ligne, d'où la limitation à la largeur d'écran. (Le but étant aussi d'avoir un rendu exacte par rapport à l'écran)

Quant au pf24bit, tu auras le même problème si la hauteur de l'image augmente de 30%. Ma fois si tu manques de ressource, là je peux rien y faire :mrgreen:. (Je l'avais rajouté lorsque je me suis retrouvé avec une image de 19'000 pixels de haut).
Code:

1 2 3 4 5 6 7 with TBitmap.Create do try PixelFormat := pf24bit; Width := aWebBrowser.Width -GetSystemMetrics(SM_CXVSCROLL); Height := aWebBrowser.Height; Rect := aWebBrowser.ClientRect; ...

07/05/2009, 10h03
ero-sennin

Hello :D,

Citation:

Envoyé par Jipété

Yop !

+ 1 !
Je l'ai remarqué également, mais trop tard pour poster (comptais le faire aujourd'hui). Ai remarqué surtout que sur un texte affiché en plusieurs lignes avec Firefox, le même texte se retrouve sur une seule looooooongue ligne dans le WebBrowser, et donc dans l'image.
Me demande si ces pbs ne viendraient pas du TWebBrowser lui-même... Faudrait essayer avec les composants Indy et ICS, mais j'peux pas, suis au taf sans Delphi handy, :(

Ah... C'est con, on n'est pas loin de la chose. Moi j'ai pas Delphi avant lundi (peut-être que je pourrai un peu ce soir, mais pas sur).
Après, le top, ça serait d'intégrer aussi le contenu d'un composant en plus car actuellement j'ai ceci :
- Un Panel en alBottom pour mes commandes (Capturer - Rafraîchir - Fermer)
- Un Panel en AlRight qui contient une TreeView. Lors d'un clic sur une treeview, je change l'url du WebBrowser.
- Un WebBrowser qui m'indique la page selon le noeud sélectionné dans la TreeView.

L'idéal dans ma capture ça serait que l'on ai la TreeView (Noeud en surbrillance pour indiquer lequel est sélectionné, ça je pense savoir faire) + mon WebBrowser qui contient le contenu de la page chargée selon le noeud. Ca doit être possible, mais faudra surement passer par de la "fusion" d'image ...

Faut que j'y réfléchisse :)
Merci

Salut :)
Citation:
Envoyé par Andnotor
Le problème est le codage de la page HTML :?. J'avais aussi remarqué que les scrollBars restaient visibles sur certaines pages.
Pour palier à ce problème et plutôt que d'essayer de les masquer par le Body, il suffit de toujours l'afficher (c'est le cas par défaut) et copier l'image moins sa largeur.

Le ScrollWidth, j'avais essayé aussi ;), mais logiquement, du texte au kilomètre s'affichera sur une ligne, d'où la limitation à la largeur d'écran. (Le but étant aussi d'avoir un rendu exacte par rapport à l'écran)

Quant au pf24bit, tu auras le même problème si la hauteur de l'image augmente de 30%. Ma fois si tu manques de ressource, là je peux rien y faire :mrgreen:. (Je l'avais rajouté lorsque je me suis retrouvé avec une image de 19'000 pixels de haut).
Code:

1 2 3 4 5 6 7 with TBitmap.Create do try PixelFormat := pf24bit; Width := aWebBrowser.Width -GetSystemMetrics(SM_CXVSCROLL); Height := aWebBrowser.Height; Rect := aWebBrowser.ClientRect; ...
Oui, je suis passé aussi par la réduction de la capture ;) Je pensais que l'on pourrait faire plus propre, mais bon, c'est pas plus mal comme ça en fait!

07/05/2009, 19h29
ero-sennin

Voilà, je reviens vers vous pour vous dire que la méthode que propose Andnotor me satisfait. Par ailleurs, j'ai réussi à faire ma capture d'écran de ma TreeView mais je ne récupère que la partie visible à l'écran.
Je vais donc chercher un peu pour voir si je peux prendre tout le contenu sans les ScrollBars, un peu comme avec le WebBrowser.

Merci pour votre aide et vos conseils!
Pour cette discussion, je considère comme résolue ;)
Ero