Перехват POST передачу данных

[Verst]

В webbrowser загружается страница, после чего человек заполняет форму входа (Логин и пароль), форма передается на сервер методом post, мне нужно узнать какой логин был отправлен на сервер, и если он не совпадает с тем что указан в программе перекинуть его на главную страницу.

Как я понял все это делается с помощью

BeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool);

, в url содержится только адрес страницы куда переходит страница, а мне надо узнать параметры, в частности логин.

[Stilet]

WebBrowser.Document работает также что и в JavaScripte
Вот через это свойство достучись к полям с логином и паролем и получай их.

[mosq]

если поле логина что-то вида
<input type=text id=user name=username>
то можно в BeforeNavigate2 сделать типа такого:

var s:string;
....
s:=Webbrowser1.OleObject.Document.GetElementByID('user').value;
//или
//s:=Webbrowser1.OleObject.Document.GetElementByName('username').value;
if s<>'mylogin' then URL:='http://myurl.com'; //меняем урл, который пришел к нам через параметры var URL, Flags, ....

Хотя тут возможен бесконечный цикл, что перед navigate браузер снова захочет выполнить beforenavigate. Надо проверить.

Второй вариант, который я юзал - более геморройный, но действующий: внедриться в код страницы, дописать OnSubmit к форме. Т.е. отпарсить страницу, внедрить в нее javascript, загрузить снова в браузер (юзер этого не заметит), и уже тогда сама форма выполнит яваскрипт с проверкой юзернейма и заменой Action=... на нужный урл.

[postal2]

можно перебрать все поля ввода текста, сейчас приведу примерный код

вот конкретная тема, из неё можно много чего почерпнуть
http://www.programmersforum.ru/showt...686#post201686

procedure gettext;
var
  f, i: integer;
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
        showmessage(webbrowser1.OleObject.Document.forms.Item(f).elements.item(i).value);
  end;
end;

код не проверял, но должен работать. Вместо type можно подставить много чего..

[Verst]

mosq, postal2
Спасибо большое все получилось