Größe einer Website

[Darlo]

Vielleicht klappt es ja den Webbrowser als Bild zu speichern und dann solange vergrößern und wieder als Bild speichern bis der Pixel rechts oben
nichtmehr die Farbe der Scrollbar hat.

[blackfin]

Das Problem liegt hier generell auch noch ganz an einer anderen Stelle
:
Wie definert man denn, was "der Webseiten-Inhalt" ist und wie man ihn "herausschneidet"?

Meines Erachtens gar nicht:
Oft ist der Hintergrund nicht weiss sondern ein Bild oder Verlauf, dann gibt es absolute und fixed Positionierung, in CSS3 auch noch mehrere Hintergrundbilder pro Block-Element. Wird schwierig, ohne das HTML und vor allem das CSS zu parsen überhaupt rauszufinden, was denn der eigentliche Inhalt ist und was man rausschneiden kann.

Was soll denn das Endresultat davon eigentlich sein bzw. was sollen die Menschen dann zu sehen bekommen, nachdem abfotografiert wurde?
Soll das dann exportiert und "netter" dargestellt werden?
Ich kenne mich mit Barrierefreiheit bzw. der Aufbereitung für "eingeschränkte" Menschen nicht sonderlich gut aus, deswegen frage ich bzw. interessiert mich der Sinn hinter dem Ganzen. Villeicht lässt sich so auch eine alternative Lösung finden.

[Union]

Ich habs. Zwar ohne Exception Handling und JPeg aber es funktioniert:

Delphi-Quellcode:

uses  SHDocVW, MSHTML, ActiveX;

procedure MakeWebShot(Browser : TWebBrowser; AFileName : string);
var
   sr : TRect;
   Document : IHTMLDocument2;
   Body : IHTMLElement2;
   Bitmap : TBitmap;
   ViewObject : IViewObject;
begin
   Document := Browser.Document as IHTMLDocument2;
   Body := Document.Body as IHTMLElement2;

   // Der Browser darf dafür NICHT alClient sein, sonst hat es keine Auswirkung!
   Document.body.style.overflow := 'hidden';
   sr := Rect(0, 0, Body.scrollWidth, Body.scrollHeight);
   Browser.Width := sr.Right;
   Browser.Height := sr.Bottom;
   Document.QueryInterface(IViewObject, ViewObject);

   Bitmap := TBitmap.Create;
   Bitmap.Width  := sr.Right;
   Bitmap.Height := sr.Bottom;

   ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Application.Handle, Bitmap.Canvas.Handle, @sr, nil, nil, 0);
   Bitmap.SaveToFile(AFileName);
   Bitmap.Free;
end;

[Darlo]

vgl. http://delphi.about.com/od/vclusing/a/wb_scren_shot.htm

Edit: Zeit fürs Bett

[Union]

Das hatte ich schon im 3. Post angegeben, aber das funktioniert so nicht.

[froschprinz]

Nette Funktion!

Leider funktioniert die Funktion nicht bei Seiten mit Frames. Ich habs z.B. mit der Seite "cab-b.de" probiert. Bei framelosen Seiten funktioniert's.

Es hängt immer an "Body.scrollWidth" hier kommt bei Seiten mit Frames kein vernünftiger Wert heraus.

[Union]

Muss man vielleicht sich langhangeln bis man das richtige Element gefunden hat. Kann doch nicht sein dass es nicht geht.

[himitsu]

Viele Webseiten passen sich an den Browser an ... wie soll man da eine Größe bestimmen, wenn es DIE eine Größe nicht gibt?

[Union]

Naja, aber jeder grafische Browser rendert das HTML in ein Bild. Und auf das muss man doch komplett zugreifen können. Scheint aber ein allgemeines Problem -nicht nur mit IE- zu sein, denn zu dem Thema gibt es jede Menge Tipps (die alle nicht funktionieren) und jede Menge Plugins und Komponenten (die fast alle was kosten).