[Help] Delphi, Выбрать 'что-то' в выпадающем списке.

[Anton]

[Help] Delphi, Выбрать любой пункт в выпадающем списке.

Есть хтмл документ, на нем один выподающий список.
Нужно выбрать програмно в нем любой пункт. (Список стран где вы проживаете, нужно выбрать любую страну)

вот часть хтмл кода этого списка.

<select name="country">
<option value="">Select country</option>
<option value="AF">Afghanistan</option>
<option value="AL">Albania</option>
<option value="DZ">Algeria</option>
<option value="AS">American Samoa</option>

_________________________________________________________________________________

Не актуально, решил вопрос.

   idoc: IHTMLDocument2;
    icol: IHTMLElementCollection;
    iOpt: IHTMLOptionElement;
    iInp: IHTMLInputElement;
    idisp: IDispatch;
    Isel: IHTMLSelectElement;
    i:integer;

begin
 Webbrowser1.Document.QueryInterface(IID_IHTMLDocument2,idoc);
idisp:=idoc.all.tags('SELECT');
if Assigned(idisp) then
begin
  idisp.QueryInterface(IHTMLElementCollection, icol);
  if Assigned(icol) then

 

[Ratko]

Я делал для второй формы на странице:

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

если надо по всем формам, тогда этот цикл нужно вложить в цикл от 0 до Webbrowser1.OleObject.Document.forms.Lenght -1.

Само собой разумеется, вместо значения 'comment' - Ваше значение