Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Größe einer Website (https://www.delphipraxis.net/163138-groesse-einer-website.html)

Darlo 16. Sep 2011 21:25

AW: Größe einer Website
 
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 16. Sep 2011 21:41

AW: Größe einer Website
 
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 16. Sep 2011 21:48

AW: Größe einer Website
 
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 16. Sep 2011 21:59

AW: Größe einer Website
 
vgl. http://delphi.about.com/od/vclusing/a/wb_scren_shot.htm

Edit: Zeit fürs Bett

Union 16. Sep 2011 22:00

AW: Größe einer Website
 
Das hatte ich schon im 3. Post angegeben, aber das funktioniert so nicht.

froschprinz 16. Sep 2011 22:27

AW: Größe einer Website
 
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 16. Sep 2011 22:34

AW: Größe einer Website
 
Muss man vielleicht sich langhangeln bis man das richtige Element gefunden hat. Kann doch nicht sein dass es nicht geht.

DP-Maintenance 17. Sep 2011 00:55

Dieses Thema wurde am "17. Sep 2011, 01:55 Uhr" von "Luckie" aus dem Forum "Job-Angebote" in das Forum "Netzwerke" verschoben.

himitsu 17. Sep 2011 09:08

AW: Größe einer Website
 
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 17. Sep 2011 09:28

AW: Größe einer Website
 
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).


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:38 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz