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

Тема в разделе "Другие языки", создана пользователем Anton, 10 окт 2008.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. Anton

    Anton ¯\_(ツ)_/¯

    Moderator
    Регистр.:
    28 авг 2007
    Сообщения:
    643
    Симпатии:
    636
    [Help] Delphi, Выбрать любой пункт в выпадающем списке.

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

    вот часть хтмл кода этого списка.
    HTML:
    <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>
    
    _________________________________________________________________________________

    Не актуально, решил вопрос.
    PHP:
       idocIHTMLDocument2;
        
    icolIHTMLElementCollection;
        
    iOptIHTMLOptionElement;
        
    iInpIHTMLInputElement;
        
    idispIDispatch;
        
    IselIHTMLSelectElement;
        
    i:integer;

    begin
     Webbrowser1
    .Document.QueryInterface(IID_IHTMLDocument2,idoc);
    idisp:=idoc.all.tags('SELECT');
    if 
    Assigned(idispthen
    begin
      idisp
    .QueryInterface(IHTMLElementCollectionicol);
      if 
    Assigned(icolthen
     
     
  2. Ratko

    Ratko Постоялец

    Регистр.:
    13 сен 2008
    Сообщения:
    92
    Симпатии:
    21
    Я делал для второй формы на странице:

    Код:
    for i:=0 to Webbrowser1.OleObject.Document.forms.item(1).Length-1 do
      begin
        if FormItem.Item(i).Name = 'comment' then
        begin
          Webbrowser1.OleObject.Document.forms.item(1).item(i).Value:='ababagalamaga';
        end;
      end;
    
    если надо по всем формам, тогда этот цикл нужно вложить в цикл от 0 до Webbrowser1.OleObject.Document.forms.Lenght -1.

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