Damit bekomme ich die Anker ausgelesen, es wäre schön wenn ich die Anker auch sichtbar machen könnte, so wie es mit Dreamweaver oder Frontpage möglich ist, bzw. wenn ich einen markiere, den Namen in einem Edit angezeigt bekommen könnte, aber dazu müßte ich den Anker erstmal sehen.
Delphi-Quellcode:
Procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
var anchors, a: Variant;
i: integer;
begin
ListBox1.Clear;
anchors := Webbrowser1.OleObject.document.anchors;
i := 0;
while i < anchors.length
do
begin
ListBox2.Items.Add('
id = "' + anchors.item(i).id + '
" | name = "' +
anchors.item(i).
name + '
"');
inc(i);
end;
a := anchors.namedItem('
1');
if (VarType(a) = varDispatch)
and (IDispatch(a) =
nil)
then
MessageDlg('
Niestety nie ma takiej kotwicy', mtError, [mbOK], 0);
end;