Перехват POST данных через WebBrowser

[DYMa]

Доброго времени суток обитатели форума!
Необходима помощь по Delphi.

Необходимо сохранить в переменную данные, введенные в поле в компоненте WebBrowser, после нажатия на кнопку авторизации.

Метод передачи данных POST.

Данные на странице отправки слудующие:

<INPUT value=text id=l name=login>

Пробовал следующий метод отлова, который не дал результа:

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  f, i: integer;
  s: string;
begin
  for f := 0 to webbrowser1.OleObject.Document.forms.Length - 1 do
    begin
      for i := 0 to webbrowser1.OleObject.Document.forms.Item(f).elements.Length - 1 do
        if webbrowser1.OleObject.Document.forms.Item(f).elements.item(i).type = 'INPUT'
          then
            if webbrowser1.OleObject.Document.forms.Item(f).elements.item(i).name = 'login'
              then
                s:=webbrowser1.OleObject.Document.forms.Item(f).elements.item(i).value);
    end;
end;

Конкретно программа на Delphi XE. Заранее спасибо за помощь!

[Stilet]

А ты пошаговочкой пройдись. И узнай на какой if не попадает.
Я кстати бы упростил

  for f := 0 to webbrowser1.OleObject.Document.forms.Length - 1 do
    begin
      for i := 0 to webbrowser1.OleObject.Document.forms.Item(f).elements.Length - 1 do
            if webbrowser1.OleObject.Document.forms.Item(f).elements.item(i).name = 'login'
              then
                s:=webbrowser1.OleObject.Document.forms.Item(f).elements.item(i).value);
    end;

Зачем еще и тип проверять?

[DYMa]

Stilet, спасибо за поддержку. Проблему решил.

Как бы смешно не звучало, но вот так работает:

procedure TForm1.WebBrowser1BeforeNavigate2(A Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
f, i: integer;
begin
for f := 0 to webbrowser1.OleObject.Document.form s.Length - 1 do
begin
for i := 0 to webbrowser1.OleObject.Document.form s.Item(f).elements.Length - 1 do
//
if webbrowser1.OleObject.Document.form s.Item(f).elements.item(i).type = 'INPUT'
then
if webbrowser1.OleObject.Document.form s.Item(f).elements.item(i).name = 'login'
then
Memo1.Lines.Add(webbrowser1.OleObje ct.Document.forms.Item(f).elements. item(i).value);
end;

А вот так нет:

procedure TForm1.WebBrowser1BeforeNavigate2(A Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
f, i: integer;
begin
for f := 0 to webbrowser1.OleObject.Document.form s.Length - 1 do
begin
for i := 0 to webbrowser1.OleObject.Document.form s.Item(f).elements.Length - 1 do

if webbrowser1.OleObject.Document.form s.Item(f).elements.item(i).type = 'INPUT'
then
if webbrowser1.OleObject.Document.form s.Item(f).elements.item(i).name = 'login'
then
Memo1.Lines.Add(webbrowser1.OleObje ct.Document.forms.Item(f).elements. item(i).value);
end;

Заметили разницу? Иронично и парадоксально Хотелось бы знать причину

[QVO]

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

Stilet, спасибо за поддержку. Проблему решил.

Как бы смешно не звучало, но вот так работает:



А вот так нет:



Заметили разницу? Иронично и парадоксально Хотелось бы знать причину

Потому что он посчитал две косые за новую строку

for f := 0 to webbrowser1.OleObject.Document.form s.Length - 1 do
begin
for i := 0 to webbrowser1.OleObject.Document.form s.Item(f).elements.Length - 1 do
begin
//
if webbrowser1.OleObject.Document.form s.Item(f).elements.item(i).type = 'INPUT'
then
if webbrowser1.OleObject.Document.form s.Item(f).elements.item(i).name = 'login'
then
Memo1.Lines.Add(webbrowser1.OleObje ct.Document.forms.Item(f).elements. item(i).value);
end;
end;