TWebBrowser出现 Method pasteHTML not supported by automation object 解决方法

先看下面的源码，在TWebBrowser当前编辑位置插入一个图片，是通过源码的方法插入的。

var urlStr : string;
    ovSelection: OleVariant;
    ovTextRange: OleVariant;
    tmpStr : string;
begin
  urlStr := 'http://www.1and1-mail.com/imgv2/pic_1.jpg';
       ovSelection := Edit.OleObject.Document.selection; //获得选择对象
       ovTextRange := ovSelection.createRange; // create a TextRange from the current selection
       tmpStr := Format('<IMG border=0 hspace=0 src="%s">', [urlStr]);
       ovTextRange.pasteHTML(tmpStr);  //粘贴图片源码
end;

上面代码中，如果编辑的时不选择任何内容，或者选择了一部分文字，可以正常插入图片，但是如果原来选择的是个图片，或者是其它的比如按钮，录入框，在调用ovTextRange.pasteHTML时会出现 Method pasteHTML not supported by automation object 错误。

解决方法1：

先清空选择对象，如下代码

       ovSelection := Edit.OleObject.Document.selection; //获得选择对象
       ovSelection.Clear;  //先清空
       ovTextRange := ovSelection.createRange; // create a TextRange from the current selection
       tmpStr := Format('<IMG border=0 hspace=0 src="%s">', [urlStr]);
       ovTextRange.pasteHTML(tmpStr);  

解决方法2：

判断选择的类型，代码如下

   ovSelection := Edit.OleObject.Document.selection; //获得选择对象
   if SameText(ovSelection.type, 'Text') or SameText(ovSelection.type, 'None') then   //只有选择文本、或不选择的地方可以插入
   begin
     ovTextRange := ovSelection.createRange; // create a TextRange from the current selection
     tmpStr := Format('<IMG border=0 hspace=0 src="%s">', [urlStr]);
     ovTextRange.pasteHTML(tmpStr);  //粘贴图片源码
   end;