Webbrowser Popupblocker

[toms]

Hi,

Suche theoretische Ansätze für einen Popupblocker für TWebbrowser.

Hat jemand Ideen?



PS: Habe schon meine eigenen Ideen möchte aber mal schauen, ob ihr das gleiche machen
würdet, ohne dass ihr diese wisst....

[ehem. Benutzer]

Also ich kenn mich sehr wenig mit der Kompo aus, aber theoretisch
würde es gehen wenn man die Befehle im Quelltext die zu einem PopUp fürhen blockt...

Irgendwie so :mrgreen:



MfG

[Gentleman]

Zitat:

Also ich kenn mich sehr wenig mit der Kompo aus, aber theoretisch
würde es gehen wenn man die Befehle im Quelltext die zu einem PopUp fürhen blockt...

als ansatz wäre das nicht schlecht, allerdings wird man probleme bekommen, wenn der quelltext z.b. in php geschrieben ist. so ein blocker würde dann villeicht javascript-popups finden.

Ein weiteres problem ist, wie man das gefundene popupfenster auch wirklich blockt, sodass es nicht auftaucht.

ich denke da steckt ziemlich viel arbeit drin... :roll:

[Aenogym]

hi,

TWebBrowser.OnNewWindow2 nennt sich das von dir benötigte event:

Delphi-Quellcode:

type TWebBrowserNewWindow2 = procedure(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool) of object;

einfach cancel := true setzen und gut ;)

Aenogym

[Tubos]

Zitat:

als ansatz wäre das nicht schlecht, allerdings wird man probleme bekommen, wenn der quelltext z.b. in php geschrieben ist. so ein blocker würde dann villeicht javascript-popups finden.

Warum denn? Das PopUp wird auf jeden Fall mit Javascript gemacht. PHP läuft serverseitig und schickt dann die Daten (z.B. eine HTML-Seite) an den Client.

[Remote1]

wenn du das über TWebBrowser.OnNewWindow2 machst, blocks du aber auch allse seiten, welche durch einen link mit _blank geöffnet werden
sprich diejenigen, welche in einem neuen fenster gfeöffnet werden sollen (ich hab deswegen in meinem downloadmanager ne message in der die seite, welche geöffnet werden soll, angezeigt wird und halt die abfrage ob öffnen oder net)

[Aenogym]

Zitat:

Zitat von Tubos

Das PopUp wird auf jeden Fall mit Javascript gemacht.

oder per target="_blank". das ist reinstes HTML ;)
aber mein oben geposteter beitrag kann auch dem abhilfe schaffen.

Aenogym

[toms]

Danke fuer die Ideen!

Mein Ansatz ist der folgende:
Ein neues Fenster wird nur geoeffnet, wenn ReadyState des Webbrowsers READYSTATE_COMPLETE ist,
d.h das Dokument fertig geladen ist.

Wie findet ihr diese Idee?
Was fuer Tuecken hat dieser Code? (Mal schauen, ob Ihr's herausfindet... :roll: ...)

Delphi-Quellcode:

procedure TfrmMultiDocBrowser.OnNewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
    if (Sender as TEmbeddedWB).ReadyState <> READYSTATE_COMPLETE then
    begin
      ppDisp := nil;
      Cancel := True;
    end;
end;

[quizzmaster]

warum überhaupt noch ppDisp := nil ??

Das kannste ruhig weglassen, wenn du cancel := true machst blockt er eh alles

[Gentleman]

ich habs nich testen können, aber wenn du cancel auf true stellst, dann kannst du doch keine weiteren seiten öffnen. das heißt, du musst das ganze auch wieder auf false stellen, damit der webbrowser weiterläuft.

die frage ist nur wann cancel wieder auf false stellen? :gruebel:

[toms]

Zitat:

Zitat von Gentleman

ich habs nich testen können, aber wenn du cancel auf true stellst, dann kannst du doch keine weiteren seiten öffnen. das heißt, du musst das ganze auch wieder auf false stellen, damit der webbrowser weiterläuft.

die frage ist nur wann cancel wieder auf false stellen? :gruebel:

Cancel wird ja aber nicht in jedem Fall auf True gesetzt...

[tester008]

wie wäre es mit einer readystate und dann auf false setzen???

[toms]

Cancel ist in jedem Fall anfangs False, wenn es nicht auf True gesetzt wird.