[m1sclick]

Набранное сообщение слишком короткое

[Mifody]

Есть еще одна проблемка, но она вроде не существенная - данные которые я отправляю в первом POST запросе не стираются а отправляются и дальше.

Вообщет это существенная проблема . Делай перед каждым последующим действием httpsend.Clear. Только потом не забывай перезаполнять (по необходимости) заголовок .
С опросе отметился - сам сделать не смогу (времени нет), но цена вообще минимальная, там наверняка вагон булыжников. Это если прога. Если надо в принципе чет автоматизированное написать - самый простой выход - скрипты автоматизации.

[m1sclick]

Спасибо за подсказку.
Насчет скриптов автоматизации - здесь имеется в виду что то наподобие UoPilota? Если да то такой у меня уже есть, меня не устраивает то что нужно ждать пока загрузиться страница и для использования нужно виртуальной машиной пользоваться потому что мышка бегает.

[Mifody]

скрипты - ага, типа того , про мыш - неизбежное зло в таком случае

[m1sclick]

А на счет WebBrowser ничего помочь не сможешь?
Мне нужно только логин сделать остальное я сам, но понимаю почему у меня не выходит автоматически заполнить поля ввода логина и пароля.
Искал в интернете вроде все правильно а Delphi вообще не хочет ничего делать, нажимаю на кнопку и ничего.

[m1sclick]

Разобрался где была проблема с авто заполнением.
Теперь когда все поля заполняются, Delphi как на зло не нажимает на кнопку.
Код кнопки такой:

Код:

<input class="nl_loginbtn" type="submit" name="login" value="Login" />

Код нажатия у меня такой:

Код:

if ( AnsiUpperCase( ovElements.Item( i ).tagName ) = 'INPUT' ) then
         if ( AnsiUpperCase( ovElements.Item( i ).name ) = 'login' )  then
            if ( AnsiUpperCase( ovElements.item( i ).Value ) = 'Login' ) then
                ovElements.Item( i ).Click;

Подскажите где не так.
Еще я кинул на WebBrowser, на то место где находиться эта кнопка дельфийскую кнопку Button1, сделал Visible := false; После чего программно получаю местоположение этой кнопки и кликаю в WebBrowser по полученным координатам мышкой. Код этой процедуры вышел такой:

Код:

 x:=Button1.Left;
  y:=Button1.Top;
  postmessage(findwindow('Form1',nil),WM_LBUTTONDOWN,0,(x shl 16)+ y);
  postmessage(findwindow('Form1',nil),WM_LBUTTONUP,0, (x shl 16)+ y);

И даже таким способом не вышло.
Может есть здесь человек знающий как еще можно кликнуть по кнопке Login в WebBrowser.