[Genry]

Код:

procedure TForm1.Button1Click(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('<image alt="Hello" src="c:\test.gif"> ');
end;

Вылазит ошибка уже после компиляции:


Помогите!

[Winny]

Данной команды не существует.

[Lucid]

А что есть 'InsertImage' в данном случае поподробнее? У тебя походу идёт обращение к чему-то несуществующему...