[scroyler]

Здравствуйте.
Подскажите пожалуйста, как программно через дельфи в веб браузере заполнить на сайте поле textarea?Сайт мой на движке UCOZ.
Уже не знаю,что делать,весь мозг сломал ,надеюсь на помощь знающих людей.

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

uses   MSHTML,   type   TForm1 = class(TForm)     WebBrowser1: TWebBrowser;     Button1: TButton;     procedure Button1Click(Sender: TObject);   procedure TForm1.Button1Click(Sender: TObject); var   i: Integer;   elem: IHTMLElement;   document: IHTMLDocument2;   all: IHTMLElementCollection; begin   WebBrowser1.Navigate('ya.ru');   while WebBrowser1.ReadyState<READYSTATE_COMPLETE do     Application.ProcessMessages;   document:=WebBrowser1.Document as IHTMLDocument2;   all:=document.all;   for i:=0 to all.length-1 do   begin     elem:=all.item(i, '') as IHTMLElement;     if elem.tagName='INPUT' then elem.innerText:='hello world';   end; end;

http://data.cod.ru/128530

[scroyler]

Сообщение от NumLock

Код:

http://data.cod.ru/128530

спасибо, но можно по подробнее что и куда вставлять, и надо не импут а текстареа

[NumLock]

Код:

1	if elem.tagName='TEXTAREA' then elem.innerText:='hello world';

[scroyler]

Сообщение от NumLock

Код:

спс,но как сделать так что бы не во все textarea а только в то что называется message например

[NumLock]

item Method
Retrieves a form object or an object from an elements collection.
Syntax
oItem = object.item(lIndex [, iSubindex])
Parameters
lIndex Required. Integer or String that specifies the object or collection to retrieve. If this parameter is an integer, it is the zero-based index of the object. If this parameter is a string, all objects with matching name or id properties are retrieved, and a collection is returned if more than one match is made.
iSubindex Optional. Integer that specifies the zero-based index of the object to retrieve when a collection is returned.
Return Value
Returns an object or a collection of objects if successful, or null otherwise.

http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx
elem:=all.item('text', 0) as IHTMLElement;

[scroyler]

Сообщение от NumLock

http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx
elem:=all.item('text', 0) as IHTMLElement;

Спасибо конечно но с я ниче не понял)

[scroyler]

Объясни плз по подробнейвкоде в котором ты дал (твой1 пост) наиши плз что бы он не все текстареа заполнял а только те которые называется message

[scroyler]

Ой сор) все разобрался спс большое!

[scroyler]

а можно сделать так что бы заполнялось в 3 поля? например в message,full_story,pole17

[scroyler]

отпишу конкретней.
Например есть едит1,едит2,едит3,едит4,едит5.
надо что бы в поле message добавлялся текст с едит1.
в поле 2 назовем его просто поле едит3, и тд

[NumLock]

Код:

1 2 3

(all.item('message', 0) as IHTMLElement).innerText:=Edit1.Text; (all.item('full', 0) as IHTMLElement).innerText:=Edit2.Text; ...

[scroyler]

Спасибо)
У меня возникла проблема с импутами, почему он например на одни сайты заполняет а на некоторые ошибки выдает ( разные движки сайтов,название импутов меняю)

[scroyler]

А можно как нить сделать если нет такого поля что бы он ошибку не выдовал, а только заполнял те что есть.
И можешь подсказать как програмно нажать кнопку в браузере? например на этом сайте.