Скачать: CL | DM;

Заполнить 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 он реагирует.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c