Popupblocker-Code funzt nicht richtig

[Gentleman]

Hi!

Delphi-Quellcode:

procedure TForm1.PopupProof;
var
  X: Integer;
begin
  SavePopupBox.Items.LoadFromFile(ExtractFilePath(Application.ExeName) + 'DATA\popup_save.list');
  for X:= 0 to SaveForm.SavePopupBox.Items.Count - 1 do
    begin
      if pos(Lowercase(SavePopupBox.Items.Strings[X]), lowercase(WebBrowser.LocationURL))<> 0 then
        begin
          Blocking:= False;
        end
      else
       begin
         Blocking:= INI.ReadBool('GENERAL', 'POPUP', True);
       end;
    end;
end;

Diesen Code habe ich mir mal so zusammengebastelt, um zu entscheiden, ob auf einer Seite Popups zugelassen werden oder nicht.

In der "SavePopupBox" stehen Adressen (z.B. http://www.delphipraxis.net), bei denen Popups zugelassen werden sollen. Dann überprüfe ich mit pos, ob der String in dem WebBrowser vorhanden ist. Wenn der String drin enthalten ist, dann wird das Popupblocken ausgeschlatet. Das Problem ist aber, dass es nicht einwandfrei funktioniert. Liegt das an meinem Code? Wenn ja, wie kann ich es richtig machen.

thx im Voraus!

Gruß Gentleman

[Binärbaum]

Zitat:

Zitat von Gentleman

Das Problem ist aber, dass es nicht einwandfrei funktioniert. Liegt das an meinem Code? Wenn ja, wie kann ich es richtig machen.

thx im Voraus!

Gruß Gentleman

Dazu wäre es hilfreich zu wissen, wie dieses "nicht einwandfrei funktioniert" aussieht. Werden die PopUps nur teilwiese geblockt, oder werden sie auch geblockt, obwohl es eigentlich nicht sein sollte? ...

Ach nochwas:
Wo wird für

Delphi-Quellcode:

Blocking:= INI.ReadBool('GENERAL', 'POPUP', True);

die Ini erstellt (create)? Und soll der ausgelesene Wert angeben, ob PopUps erlaubt sind, oder ob sie verboten sind?

MfG
Binärbaum

[Gentleman]

Ok ich werde das ganze mal etwas genauer erklären:

Delphi-Quellcode:

SavePopupBox.Items.LoadFromFile(ExtractFilePath(Application.ExeName) + 'DATA\popup_save.list');

Hier wird (wie nicht schwer zu erkennen ist) der Inhalt der "SavePopupBox" aus der Datei "popupsave" geladen. Das funktioniert.

Danach überprüfe ich, mit der for-Schleife, ob der String in der "SavePopupBox" steht.

Wenn der String in der "SavePopupBox" steht, wird Blocking auf False gesetzt, um das Popup zuzulassen. Sollte der String nicht vorhanden sein, geschieht folgendes:

Delphi-Quellcode:

Blocking:= INI.ReadBool('GENERAL', 'POPUP', True);

Die INI-Datei wurde schon im OnCreate-Event der Form (Form1) erstellt. Hier lese ich nun aus, ob Das Popupblocken generell ein-/ausgeschaltet ist.

Zitat:

Dazu wäre es hilfreich zu wissen, wie dieses "nicht einwandfrei funktioniert" aussieht. Werden die PopUps nur teilwiese geblockt, oder werden sie auch geblockt, obwohl es eigentlich nicht sein sollte? ...

Damit meine ich, dass auf manchen Seiten Popups geblockt werden, obwohl sie in der Ausnahme-Liste stehen.