TWebBrowser vs letitbit.net

[l151]

подскажите плс, как нажать на кнопочку с именем submit_way_selection2
на сайте letitbit.net
сайт letitbit.net использую для проверки, там
несколько форм сразу и у каждой свой submit
Если один submit, то работает.

[Arsenx777]

Это можно через TWebbrowser, если у submit есть id, посмотри в html то WebBrowser1.OleObject.Document.getE lementByID('id')
или через idhttp

[l151]

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

Это можно через TWebbrowser, если у submit есть id, посмотри в html то WebBrowser1.OleObject.Document.getE lementByID('id')
или через idhttp

id нет, name только

<input style="width:100%; text-align:center" value="Скачать на низкой скорости" title="Скачать на низкой скорости" type="submit" name="submit_way_selection2">

пробовал ovElements.item(i).name = 'submit_way_selection2'
не находит (перем.цикла)

[Arsenx777]

я не нашел по этого тега

<input style="width:100%; text-align:center" value="Скачать на низкой скорости" title="Скачать на низкой скорости" type="submit" name="submit_way_selection2">

по ссылке letitbit.net

попробуй найти сначало форму в которой кнопка

procedure TForm1.Button2Click(Sender: TObject);
var
  i,k:integer;
  j:variant;
begin
for i:=0 to webbrowser1.OleObject.document.forms.item(0).elements.length-1 do 
      //Ищем форму
if webbrowser1.OleObject.document.forms.item(i).elements.name='имя формы' then
begin
 j:=webbrowser1.OleObject.document.forms.item(i).elements;
end;
for k:=0 to j.length-1 do //Ищем елемент с названием submit_way_selection2
 begin
 if j.item(k).name='submit_way_selection2' then  j.item(k).click;
 end;

[l151]

слетает на строке
for k:=0 to j.length-1 do
орет: Invalid variant operation
при i=1 j - Unassigned

[Arsenx777]

напиши полную ссылку где кнопка?

[l151]

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

напиши полную ссылку где кнопка?

да любая в принципе.
напр. эта
http://letitbit.net/download/19479.1...MoVIE.avi.html

P.S. как здесь ссылки вставляют?
при клике на "вставить ссылку" появляется модальное окно в защищенном режиме

[Arsenx777]

Вот рабочий код!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var
    i, j: Integer;
    teg: Variant;
  begin


  if WebBrowser1.OleObject.Document.all.tags('form').Length = 0 then
    begin
      Exit;
    end;

  for I := 0 to WebBrowser1.OleObject.Document.forms.Length - 1 do
    begin
      teg := WebBrowser1.OleObject.Document.forms.Item(I);
      for j := 0 to teg.Length - 1 do
      begin
        try

        if teg.Item(j).Name ='submit_way_selection2' then
          begin
            teg.Item(j).click;

          end;
        except
          Exit;
        end;
  end;
  end;
  end;


procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('http://letitbit.net/download/19479.1c0c47b251a5f6c4cf44dbc50794/Les_petroleuses._ru-ru-fr_.DVDRip.BINMoVIE.avi.html');
end;

end.

[l151]

Спасибо!! Работает!!