[Lion-Tiger]

Как нажать на кнопку в webbrowser???
Пример с ДелфиВорлд не работает.......

[Sharky]

Ну ту все просто.
Наверное пример с делфи ворлд заточен под какую нибудь 1 страничку.
У тебя наверное не сходятся теги .
Тебе нужно посмотреть свою страничку с помощью текстовика и найти имя тега <Button а далее подставить все в пример с делфиворда .

[Lion-Tiger]

<Button я не нашел, но строку с той кнопкой нашел:
<input type=submit style='background:#d0eed0' value='Захватить' даже если просто ввожу ...item(i).value='Захватить'
все равно не находит эту кнопку....

[Sharky]

напиши код страницы

[Lion-Tiger]

вот полный кодстраницы, хочу нажать кнопку "Захватить" =)
написать не получилось - слишком много....

[Sharky]

в этом текстовике я не вижу кнопку захватить
может это картинка ?

[Sharky]

Пример с ДелфиВорлд не работает.......

пропробуй посмотреть в DRKB

[Admin]

Сообщение от Lion-Tiger

Как нажать на кнопку в webbrowser???
Пример с ДелфиВорлд не работает.......

В конце процедуры есть нажатие на кнопку...

Код:

var
 i: integer;
 s,Comm: string;
 Disp: IDispatch;
 Doc: IHtmlDocument2;
 Uni: IHTMLSelectElement;
 Element,pChild: IHTMLElement;
 InputElement: IHTMLInputElement;
begin
 ListBox1.Clear;

 Doc:=WebBrowser1.Document as IHtmlDocument2;

 // Memo2.Lines.Add(Doc.Body.innerHTML);

 for i:=1 to Doc.All.Length do
  begin
   Disp:=Doc.All.Item(Pred(i),0);
   Disp.QueryInterface(IHTMLElement,Element);

   if Assigned(Element)
   then
    begin
     Element.QueryInterface(IHTMLInputElement,InputElement);
     // выбор элемента
     if Element.TagName='SELECT'
     then
      begin
       Element.QueryInterface(IHTMLSelectElement,Uni);

       Disp.QueryInterface(IHTMLElement,pChild);

       if Assigned(pChild)
       then
        begin
         s:=IntToStr(i)+' tag='+Element.TagName+' ';
         pChild.QueryInterface(IHtmlInputElement,InputElement);

         if Assigned(InputElement)
         then
          begin
           s:=s+'name='+InputElement.Get_Name;
           s:=s+'value='+InputElement.Get_Value;
           s:=s+'type='+InputElement.Get_Type_;
          end;
         ListBox1.Items.Add(s);
        end;

       {pChild:=Element;

       if Element.Contains(pChild)=true
       then
        begin
         // Disp:=Element. .Children;
         // Disp.QueryInterface(IHTMLElement,pChild);

         if Assigned(pChild)
         then
          begin
           pChild.QueryInterface(IHTMLInputElement,InputElement);
           // выбор элемента
           if pChild.TagName='OPTION'
           then
           else
          end;
        end;}

       if Assigned(Uni)
       then
        begin
         if (Uni.Name='data[city]') or (Uni.Name='data[subway]')
         then
          begin
           Uni.SelectedIndex:=1;
           // ListBox1.Items.Add('Select= '+Uni.Name);
           // ListBox1.Items.Add('Select= '+Uni.Type_);
           // ListBox1.Items.Add('Select= '+Uni.Value);
          end;
        end;
      end;
     //
     // нажатие на кнопку
     if Assigned(InputElement)
     then
      begin
       if InputElement.Name='logout'
       then
        begin
         if Comm<>'ClickButton'
         then InputElement.value:='test'
         else Element.click;

         ListBox1.Items.Add('NAME= '+InputElement.Name);
        end;
      end;
    end;
  end;
end;

[Lion-Tiger]

не, не видит он кнопку........

[Lion-Tiger]

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

пропробуй посмотреть в DRKB

а что такое DRKB ???

[Interface]

<Button я не нашел, но строку с той кнопкой нашел:
<input type=submit style='background:#d0eed0' value='Захватить' даже если просто ввожу ...item(i).value='Захватить'
все равно не находит эту кнопку....

Навсяк случай поясню...

Значит вставить в хтмл документ кнопку типа sumbit, котора инициализирует передачу данных находящихся в элементах, если они находятся в одном и том же тегe <form>.
Тоесть теоретически код:

Код:

<input type=submit> <input type=text>// написанно примерно ес че прошу исправить...

Будет отправлять (по нажатию на кнопке) текст в <input type=text> на сервер....
Тобишь считай, что <button ты нашел...
Можно и исскуственно попытаться передать данные на сервер, но т.к. эту область Делфи плохо знаю могу только препологать...