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:
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