Pastehtml + Link Läßt Sich Nicht Entfernen

**horst**

Hallo...

ich brauche nochmal eure Hilfe.
Ich füge ein Bild mit Link (zur größeren Ansicht des Bildes) so zum editierbar gemachten Webbrowser hinzu:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button11Click(Sender: TObject);

var

  HTMLDocument2Ifc: IHTMLDocument2;

  HTMLSelectionObjectIfc: IHTMLSelectionObject;

  HTMLTxtRangeIfc: IHTMLTxtRange;

begin

  HTMLDocument2Ifc := WebBrowser1.Document as IHTMLDocument2;

  HTMLSelectionObjectIfc := HTMLDocument2Ifc.selection;

  if HTMLSelectionObjectIfc.type_ = 'Control' then HTMLSelectionObjectIfc.Clear;

  HTMLTxtRangeIfc := HTMLSelectionObjectIfc.createRange as IHTMLTxtRange;

HTMLTxtRangeIfc.pasteHTML('[url="file:///C:/CMS1/Data/pix/' + 'gr' + edit1.text + '"][img]file:///C:/CMS/1Data/pixklein/' + 'kl' + edit1.text + '[/img][/url]');

end;

soweit sogut...

Dannach speicher ich den Inhalt meines Webbrowser als Datei.
Wenn ich meine Seite dann wieder bearbeite und dieses Bild entferne, ist das Bild zwar weg, der Link (zur größeren Ansicht des Bildes) entfernt sich dadurch aber nicht.
Sowas bleibt dann stehen.

Wenn ich dann wieder ein neues Bild mit Link hinzufüge und wieder entferne, stehen 2 Links in der Datei usw.
Wer weiß Rat?

Liebe Grüße
Horst

Pastehtml + Link Läßt Sich Nicht Entfernen

Pastehtml + Link Läßt Sich Nicht Entfernen

Forumregeln