Discussion :

[Wilco]

Bonjour à tous,

J'aimerai afficher dans un WebBrowser dimensionné en 400 x 300 pixels les pages web que je consulte qui sont dans des définitions variées.

Exemple, une page web dessinée en 1024 x 768 peut elle être visualisée intégralement dans une fenêtre 400 x 300 en lui appliquant un facteur zoom inférieur à 1 ?


Si oui comment faire ?

Merci d'avance,
Wilco

[sovitec]

Bonjour,

J'aimerai afficher dans un WebBrowser dimensionné en 400 x 300 pixels les pages web que je consulte qui sont dans des définitions variées.

Exemple, une page web dessinée en 1024 x 768 peut elle être visualisée intégralement dans une fenêtre 400 x 300 en lui appliquant un facteur zoom inférieur à 1 ?

Si oui comment faire ?

Que veux tu dire par "les pages web qui sont dans des définitions variées" ? Dans la plupart des cas les pages n'ont pas de taille prédéfinie, mais le contenu va essayer de s'adapter à la taille (surtout à la largeur) de la fenêtre d'affichage. Pour les faibles résolutions ce n'est pas toujours heureux (tous ceux qui ont essayé de naviguer avec un PDA me comprendront).

Si ton but est de faire un aperçu de l'aspect de la page tu peux "prendre une image" affiché par un navigateur dans une résolution usuelle, puis réduire cette image en 400x300. Bien sûr dans ce cas le texte risque d'être illisible. J'ai déjà fait ça (mais en C++ avec KHTML). Je devrais pouvoir t'aider mais essaye de préciser ce que tu veux faire.

Sovitec

[Wilco]

Je souhaite afficher l'aperçu d'une page web dans une fenêtre de 400x300.
Effectivement les textes seront peu ou pas lisibles.


On affiche bien des miniatures lorsque l'on consulte un dossier contenant des images, je souhaite faire la même chose mais avec des pages HTML.

Merci d'avance
Wilco

[sovitec]

Contrairement aux images les pages web n'ont pas de dimensions prédéfinies, celle ci s'adapte à la taille de la fenêtre de visualisation, même si certains "optimisent" leurs pages pour certaines résolution.

Ensuite je ne sais pas où tu bloques : il suffit d'afficher la page, prendre une image et la réduire aux dimensions voulues.

Quelques pièges :
- Si la page est principalement en flash il vaut mieux prendre une image après avoir laissé dérouler l'animation quelques secondes.
- Si les cookies ne sont pas gérés certaines pages n'afficheront pas grand chose.

[LadyWasky]

Je souhaite afficher l'aperçu d'une page web dans une fenêtre de 400x300.
Effectivement les textes seront peu ou pas lisibles.


On affiche bien des miniatures lorsque l'on consulte un dossier contenant des images, je souhaite faire la même chose mais avec des pages HTML.

Merci d'avance
Wilco

Tu as presque répondu à ta question...

Tu "imprimes" ta page dans un bitmap de dimensions 1024x768 (par exemple), et tu affiches le bitmap dans le canvas d'un autre bitmap ou tpaintbox grace à Canvas.SretchDraw();

[LadyWasky]

Démonstration

Le fichier joint inclus notemment cette procédure qui vous sera certainement tous très utile

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
uses ActiveX,SHDocVw,Windows,Graphics;
procedure CopyWebToCanvas(AWebBrowser:TWebBrowser;ACanvas:TCanvas;HandlePeripheriqueCible:HDC=0);
var
  ViewObject: IViewObject;
  sourceDrawRect: TRect;
  Temp,Dest:TBitmap;
begin
    if AWebBrowser.Document <> nil then
    try
       Dest:=TBitmap.Create;
       Dest.PixelFormat:=pf24bit;
       Temp:=TBitmap.Create;
       Temp.PixelFormat:=pf24bit;
       Temp.Width:=AWebBrowser.Width;
       Temp.Height:=AWebBrowser.Height;
 
       AWebBrowser.Document.QueryInterface(IViewObject, ViewObject);
       if ViewObject <> nil then
       try
          sourceDrawRect := Rect(0, 0, Temp.Width, Temp.Height);
          ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, HandlePeripheriqueCible,
          Temp.Canvas.Handle, @sourceDrawRect, nil, nil, 0);
 
       finally
              ViewObject._Release;
 
              Dest.Width:=Temp.Width-GetSystemMetrics(SM_CXVSCROLL);
              Dest.Height:=Temp.Height;
              BitBlt(Dest.Canvas.Handle,0,0,Dest.Width,Dest.Height,Temp.Canvas.Handle,0,0,SrcCopy);
 
       ACanvas.Draw(0,0,Dest);
       Temp.Free;
       Dest.Free;
       end;
    except
   end;
end;

HandleDePeripheriqueCible reçoit le Handle de périphérique surlequel sera dessiné l'image finale (par défaut, c'est mis à zéro : HDC de l'écran, donc vous n'avez pas à vous en soucier sauf si vous souhaitez imprimer dans le canvas de l'imprimante, par exemple).

La fonction fonctionne "Off Screen", c'est à dire que votre webBrowser n'a pas besoin d'être visible pour récupérer votre ScreenShot.

Ci-joint un projet complet :