AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi TWebBrowser: Werbeblocker
Thema durchsuchen
Ansicht
Themen-Optionen

TWebBrowser: Werbeblocker

Offene Frage von "MR321"
Ein Thema von MR321 · begonnen am 13. Okt 2003
Antwort Antwort
MR321

Registriert seit: 18. Aug 2003
38 Beiträge
 
#1

TWebBrowser: Werbeblocker

  Alt 13. Okt 2003, 14:29
Ich bin gerade dabei mir einen Werbeblocker zu schreiben.
Die Werbung wird per JavaScript ausgeführt:
Code:
<script language="javascript" src="http://werbeserver..."></script>
Dieser Code soll nicht ausgeführt werden. Wie kann ich das erreichen?

Den Code, um den anderen Code zu blockieren habe ich schon geschrieben:
Code:
procedure TForm1.PageRewriter(v: Variant);
var i: Integer;
    v2: Variant;
const werb:String='http://werbeserver';
begin
  v2:=v.document.getElementsByTagName('script');
  for i:= 0 to v2.length -1 do
  begin
    if Copy(v2.item(i).src,1,Length(werb))=werb then
      v2.item(i).src:='';
  end;
end;
Aber ich brauche die richtige Stelle wo er ausgeführt werden muss!
Wird er zu früh ausgeführt, dann ist die HTML Seite selbst noch nicht geladen, und das Script kann nichts verändern, wird er zu spät ausgeführt, hat sich das Script bereits ausgeführt und per document.write seine Werbung platziert.
Ach ja ich brauche nicht nur die richtige Stelle, sondern auch das OleObject (Variant) der betroffenen Seite (die gerade geladen hat).
Es sind mehrere Seiten, die laden, da alles in Frames stattfindet.
Computers are like air conditioners, they stop working immediately, if you open windows.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz