ich weiß nicht was genau Du mit Webbrowser meinst, wenn es um TWebbrowser in einem Delphiprojekt geht könnte Dir gegf. der Rumpf hier weiterhelfen:
Delphi-Quellcode:
procedure TForm2.WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
var
sAction:
String;
nCount:Integer;
begin
if Pos('
ACTION', UpperCase(
URL)) = 1
then
begin
// Navigation abbrechen
Cancel := True;
// Action suchen
sAction := UpperCase(Copy(
URL, Length('
ACTION:') + 1, MaxInt));
for nCount := 0
to ActionList1.ActionCount - 1
do
begin
if (AnsiUpperCase(ActionList1.Actions[nCount].
Name) = AnsiUpperCase(sAction))
then
ActionList1.Actions[nCount].Execute;
end;
end
else
begin
// Eine andere Auswertung und Verarbeitung der ZielUrl
end;
end;