Hallo Leute,
Ich benutze in vielen meinen Programmen TWebbrowser als Oberfläche. Dafür erstelle ich dynamische Internetseiten im Programm lade in den Webbrowser, danach fange ich die Links ab. Anhand der Links reagiert mein Programm und erstellt neue seiten und ladet wieder. Aber bei Windoof XP-Serv. Pack 2, Vista oder WinXP-Service Pack 1 mit diesem Sicherheitsupdate (winsecupd-IE6.0sp1-KB889293-Windows-2000-XP-x86-DEU.exe) funktioniert Webbrowser nicht mehr richtig. D.h. Ich kann die LInks nicht mehr abfangen. Laden funktioniert aber wenn man auf einen Link klickt passiert nichts.
Das ist die Funktion um Browserklicks abzufangen. Bei aktuellen WindowsXP-Versionen wird das nicht mehr aufgerufen. Kennt jemand eine Lösung?
procedure TFormMain.WBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var
URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Cancel:=wordbool(1); //Webbrowser soll nicht selber navigieren
wbLoadHTML(WBrowser1, CreateHtmDoc(
URL)); //hier wird manuell navigiert
end;
Ich habe ein Beispielprogramm hinzugefügt. Es werden 2 Links angezeigt. Wenn man auf ein Link klickt wird angezeigt: "Sie haben a/b gewählt.".
Vielen Dank für eure Antworten.