[scroyler]

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

[NumLock]

Код:

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

Код:

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

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

[NumLock]

Код:

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

[scroyler]

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

Код:

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

спс,но как сделать так что бы не во все 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]

Код:

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

[scroyler]

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

[scroyler]

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