Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Retrieve information about the twebbrowser control

procedure TForm1.infoClick(Sender: TObject); begin // Shows the URL of the current page displayed // Gibt die aktuell geladene URL des Webbrowsers aus ShowMessage('URL: ' + TWebbrowser.OleObject.Document.Url); // Shows the Title of the current page displayed // Gibt den Titel der Seite, die im Webbrowser ist aus ShowMessage('Page Titel: ' + TWebbrowser.OleObject.Document.title); // Shows the Height, Width of the current page displayed // zeigt an wie hoch, breit die Seite im TWebbrowser ist. ShowMessage('ScrollHeight: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollHeight)); ShowMessage('ScrollWidth: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollWidth)); // amount that the document has been scrolled down // Um wieviel das Dokumkent nach Unten gescrollt wurde ShowMessage('ScrollTop: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollTop)); ShowMessage('ScrollLeft: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollLeft)); // Shows the physical height, width of the browser screen // Zeigt die Höhe, Breite des Anzeigebereichs ShowMessage('ClientHeight: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ClientHeight)); ShowMessage('ClientWidth: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ClientWidth)); // Show the document referrer // Referer von Twebbrowser anzeigen. ShowMessage('Referer: ' + TWebbrowser.OleObject.Document.referrer); end;