Что-то я измучался и не могу найти решение.

Есть Webbrowser. В него загружается хтмл-документ с формой.
В этой форме есть объекты разные.
Когда мы пытаемся заполнить: <INPUT name=count .... - то все Ок.
При заполнении используем нижеприведенный код:

Код

iDoc:IHtmlDocument2;     i:integer;     ov:OleVariant;     iDisp: IDispatch;     iColl:IHTMLElementCollection;     iText:IHTMLInputTextElement;     iInputElement:IHTMLInputElement;

Код

ov:='INPUT';  IDisp:=iDoc.all.tags(ov);  if assigned(IDisp) then begin     IDisp.QueryInterface(IHTMLElementCollection,iColl);     if assigned(iColl) then begin       for i:=1 to iColl.Get_length do begin         iDisp:=iColl.item(pred(i),0);         iDisp.QueryInterface(IHTMLInputElement,iInputElement);         if assigned(iInputElement) then begin           if iInputElement.Get_name='number'           then iInputElement.Set_value('Ihor');           if iInputElement.Get_name='message'           then iInputElement.Set_value('PASSWORD');         end;       end;     end;   end;

Но, когда требуется заполнить <TEXTARE...>, то заполнение не происходит.
Видимо надо обращаться как-то так: IHTMLTextAreaElement или IHTMLInputTextElement или еще как-то. (см. http://deep.kiev.ua/~netlib/js/ms/installe/help/ind09007.htm
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=12953)

Как я не пробовал - ничего не получалось. Может быть кто-то сталкивался с этим?

Ладно, пришлось все таки использовать компонент: EmbeddedWb
http://www.euromind.com/iedelphi/embeddedwb.htm

Там это делается легко: WebBrowser1.oleobject.document.forms.item(0).elements.item(2).value:='любой текст';

Цитата(Admin @ 21.9.2002, 15:16)

Ладно, пришлось все таки использовать компонент: EmbeddedWb ... Там это делается легко: WebBrowser1.oleobject.document.forms.item(0).elements.item(2).value:='любой текст';

[QUOTE]

Ага, это если тебе известно, в какую именно форму писать. А не подскажешь ли, как писать в активный элемент (под фокусом) активной формы (заранее неизвестно ничего - ни сколько форм, ни какой элемент активен)? Не хочу писать это отдельным вопросом, сомневаюсь что многие с этим сталкивались... А раз ты столкнулся - не подскажешь ли?

И еще вопрос - как в TWebBrowser или TEmbeddedWB менять кодировку, в которой отображается страничка Нигде не нашел ответа.

Заранее спасибо.

я вообще ничего в этом не понимаю, но вот какой пример я нашел, может вам будет полезно
вроде как заполяняет элементы форм по именам этих элементов, но у меня почему-то не стал работать этот пример, может проясните как его переделать чтобы работал

procedure TForm1.Button2Click(Sender: TObject);
var
i, j: Integer;
FormItem: Variant;
Result: boolean;
Fieldname, value: string;
begin
Result := False;
fieldname:= 'url';
value:= 'blabla';
//no form on document
if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
begin
Exit;
end;
//count forms on document
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser.OleObject.Document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do
begin
try
//when the fieldname is found, try to fill out
if FormItem.Item(j).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
Exit;
end;
end;
end;
end;

Цитата

А не подскажешь ли, как писать в активный элемент (под фокусом) активной формы (заранее неизвестно ничего - ни сколько форм, ни какой элемент активен)?

поищи в MSDN про ActiveElement, кажется это свойство IHTMLDocument2

Цитата

Там это делается легко: WebBrowser1.oleobject.document.forms.item(0).elements.item(2).value:='любой текст';

набрёл на эту тему.
Я дико извиняюсь. А что должно стоять вместо item(0) и item(2)?
И где вставлять название Textarea