[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;