Disable javascripts i TWebbrowser

Tags:    delphi

Jeg har behov for dynamisk at kunne ændre settings i TWebBrowser komponenten. F.eks. skal jeg bl.a. kunne slå download af billeder og visning af javascript fejl til/fra.

Er der nogen der ved hvordan det kan lade sig gøre, og kan det lade sig gøre at ændre det så det ikke påvirker en bruges brug af en Internet Explorer session udenfor mit delphi program ?

Note: Glemte at undersøge pointsystemet, så jeg ved ikke om 100 point er meget eller lidt.
-------------------------
/Flemming Christensen



6 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 4 karma
Sorter efter stemmer Sorter efter dato
Mit bedste buf ville nok være at du kiggede på følgende komponent og måske udskiftede TWebBrowser med det.

http://www.euromind.com/iedelphi/embeddedwb.htm

På siden kan du finde alle koder og funtioner til komponentet.
Håber du kan bruge det men hvis ikke må du lige sige til. Så ser jeg lige om jeg kan finde noget andet der kan bruges ;)
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------



Kan det virkelig være rigtigt at ingen har arbjedet med TwebBrowser og ændring af diverse settings ad-hoc ?

Jeg vil på nuværende tidspunkt være taknemmelig for links til sites hvor jeg selv kan lede eller spørge.


-------------------------
/Flemming Christensen



Er det virkelig rigtigt at der ikke er nogen der har bare et hint til hvad jeg eventuelt måske skal kigge på, dvs pege mig i den rigtige retning eller henvise til et sted hvor jeg så ellers kan spørge ?

-------------------------
/Flemming Christensen



Mit bedste buf ville nok være at du kiggede på følgende komponent og måske udskiftede TWebBrowser med det.

http://www.euromind.com/iedelphi/embeddedwb.htm

På siden kan du finde alle koder og funtioner til komponentet.
Håber du kan bruge det men hvis ikke må du lige sige til. Så ser jeg lige om jeg kan finde noget andet der kan bruges ;)
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------


Det så ellers lige så interessant ud indtil jeg så at embeddedwb ikke har været opdateret siden 2001 ;)

Ellers ærgeligt for der var support for onscripterror event der kunne det jeg ville.

Hvis du har andre bud er jeg meget interesseret.

-------------------------
/Flemming Christensen



Mit bedste buf ville nok være at du kiggede på følgende komponent og måske udskiftede TWebBrowser med det.

http://www.euromind.com/iedelphi/embeddedwb.htm

På siden kan du finde alle koder og funtioner til komponentet.
Håber du kan bruge det men hvis ikke må du lige sige til. Så ser jeg lige om jeg kan finde noget andet der kan bruges ;)
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------


Jeg fandt dog denne løsning under tips på den webside du angav så der er point på vej :)

Add to private section in your main form:
procedure WMActivate(var Msg: TWMActivate); message WM_ACTIVATE;



procedure TForm1.WMActivate(var Msg: TWMActivate);
var
S: String;
wnd: HWND;
I: Integer;
begin
If Msg.Active=0 then
begin
wnd := Msg.ActiveWindow;
I := GetWindowTextLength(wnd);
SetLength(S, I + 1);
GetWindowText(Wnd, PChar(S), I + 1);
If Pos('Internet Explorer', S)>0 then Sendmessage(wnd,WM_CLOSE,0,0);
end;
end;


-------------------------
/Flemming Christensen



Jeg fandt en mere direkte løsning :)

Men sætter webbrowser egenskaben silent til true.

webbrowser.silent := true;

Det undertrykker samtlige dialogbokse !



t