Webbrowser Icon und Link von Website bekommen

[marabu]

Hallo Matthias,

Zitat:

Zitat von Matze

... was habt ihr denn alle mit "favicon.ico"? ...

gut das du fragst. Es gibt nicht sehr viele Web-Entwickler, die den Default-Namen favicon.ico nicht verwenden, aber damit deine WebSite nicht außen vor bleibt:

Delphi-Quellcode:

function GetLinkAttribute(doc: IDispatch; const rel, attr: string): string;
var
  ec: IHTMLElementCollection;
  e: IHTMLElement;
  i: Integer;
begin
  ec := (doc as IHTMLDocument3).getElementsByTagName('link');
  for i := 0 to Pred(ec.length) do
  begin
    e := ec.item(i, null) as IHTMLElement;
    if SameText(VarToStr(e.getAttribute('rel', 0)), rel) then
    begin
      Result := VarToStr(e.getAttribute(attr, 0));
      Exit;
    end;
  end;
  Result := '';
end;

// ShowMessage(GetLinkAttribute(Document, 'Shortcut Icon', 'href'))

Freundliche Grüße

[Larsi]

das mit der url klappt zwr aber gibt es auch ncoh vielleicht ne möglichkeit den titel herauszufinden
???

[marabu]

Document.Title ist das, was du suchst.

[Larsi]

Delphi-Quellcode:

Edit1.text := Document.Title

also wenn ich einfach unter document complete das reinschreibe dann kommt n fehler!
muss das wo anders rein?
und gibt es auch ne möglichkeit dass title und url schon beovr die seite fertig geladen ist angezeit werden?
wäre über eure hilfe sehr dankbar!

[toms]

Hallo

Den Titel kannst du im Ereignis OnTitleChange auslesen.
Sobald das Ereignis ausgelöst wird, wechselt der Titel.

[Larsi]

ok, ich habe meinen webbrowser mit tabs zur übersicht versehen! vorher stand dann da halt http://www.google.de drinnen jetzt habe ich es dank eurer hilfe :) halt so gemacht dass der seitentitel darinsteht. da ich aber bei ontabchnage des tabcontrols stehen hab dass er den text des tabs mit dem tabindex als url benutzen soll damit das mit dem vom tab zu tab schalten klappt. hat jemand ne idee wie ich das jetzt anstellen könnte dass das wieder so geht? hab mir schon überlegt n zweites unsichtbares tbcontrol zu nehmen indem dann die links stehen aber irgendwie finde ich das unpraltisch :)

[toms]

Du kannst ja ermitteln, welcher Webbrowser sich auf dem entsprechenden Tab befindet und
dann die LocationURL auslesen.

Andere Möglichkeit: Du erweiterst den Browser, resp das Tabsheet mit einigen Members.
Das hat den Vorteil, dass du die CSC_NAVIGATEFORWARD / CSC_NAVIGATEBACK Stati usw. des jeweiligen Webbrowsers speichern kannst.

z.B so

Delphi-Quellcode:

type
  TWebbrowser = class(SHDocVw.TWebbrowser)
  private
    // Titel des Webbrowsers
    FTitle: string;
    // CSC_NAVIGATEFORWARD und CSC_NAVIGATEBACK Status
    FNavForward: Boolean;
    FNavBack: Boolean;
  public
  end;

oder so:

Delphi-Quellcode:

type
  TTabSheet = class(ComCtrls.TTabSheet)
  private 
    // URL des Webbrowsers im Tabsheet
    FURL: string;
    // CSC_NAVIGATEFORWARD und CSC_NAVIGATEBACK Status
    FNavForward: Boolean;
    FNavBack: Boolean;
  public
  end;