Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#2

AW: Eine Unit durch Drücken eines HTML-Links aufrufen

  Alt 16. Feb 2013, 20:18
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;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat