Anchor

[horst]

Hi
Weiß jemand zufällig warum das nicht funktioniert?

Delphi-Quellcode:

WebBrowser1.OleObject.Document.execCommand('createanchor', true);

Bzw. wie sowas "Normalerweise" geregelt wird?

Grüße
Horst

[Pr0g]

Was soll durch "createanchor" denn passieren?

MfG Pr0g

[horst]

es soll ein anker erstellt werden
<a name="mein_anker"></a>

mit

Delphi-Quellcode:

WebBrowser1.OleObject.Document.execCommand('CreateLink', true)

kann ich z.b. einen link erstellen.
das praktische daran ist das ich einen markierten link auch auslesen kann und in dem üblichen dialog angezeigt bekomme.

[Pr0g]

Ich glaube einen Anker kann an so nicht setzten, aber vielleicht findest du in der Liste was: Link.

[horst]

Momentan mache ich es so:

Delphi-Quellcode:

procedure TForm6.Button1Click(Sender: TObject);
var
  HTMLDocument2Ifc: IHTMLDocument2;
  HTMLSelectionObjectIfc: IHTMLSelectionObject;
  HTMLTxtRangeIfc: IHTMLTxtRange;
begin
  HTMLDocument2Ifc := Form1.WebBrowser1.Document as IHTMLDocument2;
  HTMLSelectionObjectIfc := HTMLDocument2Ifc.selection;
  HTMLTxtRangeIfc := HTMLSelectionObjectIfc.createRange as IHTMLTxtRange;
  HTMLTxtRangeIfc.pasteHTML('<a name="' + edit10.text + '" ></a>');
end;

Das klappt auch, nur bekomme ich den Anker nirgens zu sehen, obwohl er da ist, mein Problem ist dann das ich den Anker nicht auslesen kann, so wie es mit

Delphi-Quellcode:

WebBrowser1.OleObject.Document.execCommand('CreateLink', true)

klappt.

[Pr0g]

Mich würde mal interessieren was du machst, denn eine Seite im Webbrowser zu ändern ist ja doch etwas umständlich.

[horst]

Hmmm...wie würdest du das tun?

[Lannes]

Versuch mal damit Anchors auslesen:

Delphi-Quellcode:

showmessage(WebBrowser1.OleObject.Document.anchors[0].name);

[Pr0g]

Zitat:

Zitat von horst

Hmmm...wie würdest du das tun?

Ich wollte einfach nur wissen was du machst, also was das Programm machen soll. Ich würde warscheinlich den HTML Code direkt ändern, je nach dem wie die erste Frage ausgeht :)

[horst]

Vielen Dank, leider bekomme ich eine Fehlermeldung:

Zitat:

Die Methode 'name' wird vom Automatisierungsobjekt nicht unterstützt.