Hallo...,
ich muss in Htmldokumenten folgende Links zu Bilder mit einem Link zu den entspr. größeren Bild verlinken.
Ein Bild einzufügen ist nicht das Problem, mache ich so:
HTMLDocument2Ifc.execCommand('InsertImage', false, ('..\pixklein\' + '' + 'kl' + edit1.text + ''));
Das Ergebnis sieht dann so aus:
Code:
<TD vAlign=top align=middle>[img]..\pixklein\kluhu.jpg[/img]</TD>
<TD vAlign=top align=middle>[img]..\pixklein\klDSCN3160.JPG[/img]</TD>
Ich hatte zuerst versucht das ganze gleich bei der Eingabe zu machen mit :
Delphi-Quellcode:
procedure TForm1.Button11Click(Sender: TObject);
var
HTMLDocument2Ifc: IHTMLDocument2;
HTMLSelectionObjectIfc: IHTMLSelectionObject;
HTMLTxtRangeIfc: IHTMLTxtRange;
begin
HTMLDocument2Ifc := WebBrowser1.Document
as IHTMLDocument2;
HTMLDocument2Ifc.execCommand('
InsertImage', False, '
');
HTMLSelectionObjectIfc := HTMLDocument2Ifc.selection;
if HTMLSelectionObjectIfc.type_ = '
Control'
then HTMLSelectionObjectIfc.Clear;
HTMLTxtRangeIfc := HTMLSelectionObjectIfc.createRange
as IHTMLTxtRange;
HTMLTxtRangeIfc.pasteHTML('
[url="../pix/' +'
gr'+ edit1.text + '
"][img]../pixklein/' +'
kl'+ edit1.text + '
[/img][/url]');
end;
Das kommt dabei raus...
Code:
[
url="file:///C:/CMS1/Data/pix/grDSCN3160.JPG"][img]file:///C:/CMS1/Data/pixklein/klDSCN3160.JPG[/img][/
url]
Hat jemand eine Idee wie ich allen
Code:
<TD vAlign=top align=middle>[img]..\pixklein\kluhu.jpg[/img]</TD>
gleich ein a href zu dem größeren Bild hinzufügen kann?
So könnte ich offline mit einer Datei arbeiten mit lokalen Links und online mit den entspr. online-Links
Grüße
Horst