Заполнить TEXTAREA используя TWebBrowser

← →
Арсений (2007-06-14 11:24) [0]

Помогите пожалуйста. Требуется заполнить поле TEXTAREA, используя TBrowser.
Так загружается страница:

_URL := "http://tigrblast.tigr.org/euk-blast/index.cgi?project=tae1";
Flags := 0; TargetFrameName := 0; Postdata := 0;
Headers:="Content-Type: application/x-www-form-urlencoded"#10#13;
WebBrowser1.Navigate2(_URL, Flags, TargetFrameName, PostData, Headers);

Потом вот так (в цикле по всем элементам, textarea там одна)

iDisp.QueryInterface(IHTMLElement, iElement);
if iElement.Get_tagName="TEXTAREA" then p:=ielement;

отлично находится элемент, но возникает проблема с записью В НЕСКОЛЬКО СТРОЧЕК. То есть когда дело доходит до

p.innerHTML:="asd"+#13#10+"zxc";

то на форму попадает текст, но без переносов, в одну строчку. Кодировка страницы ISO Западноевропейская, пробовал несколько вариантов но все без толку. Может будут идеи?..

← →
Плохиш © (2007-06-14 11:47) [1]

p.value:="asd"+#13#10+"zxc";?

← →
Плохиш © (2007-06-14 11:55) [2]

> +#13#10

Здесь #13 лишняя...

← →
Арсений (2007-06-14 20:34) [3]

Ничего здесь не лишнее, и поскольку TEXTAREA имеет закрывающий тег, value и set_value у нее нет; надо использовать innerHTML вместо них. А проблема в том, что TWebBrowser почему-то игнорирует перевод строки - даже если я в окне броузера нажму enter - ничего не произойдет; только на alt 13 он реагирует.

Заполнить TEXTAREA используя TWebBrowser Найти похожие ветки