IdHTTP и авторизация

[celovec]

Html форма на странице:

<form action="/?lng=ru" method="POST" class="lgnfrm" name="login" onSubmit="document.login.login.value='Подождите...'">
<input type="hidden" name="DS" value="2cbe8563664f9c95e8cc2544d755bfa2" />
<input type="hidden" name="redir" value="/" />
e-mail<br/><input type="text" class="inp" name="eml" size="23" style="width: 180px;" value="" /><br />
пароль:<br/><input type="password" class="inp" name="_44679182" size="23" style="width: 180px;" autocomplete="off" /><br />
<input type="submit" class="bt" style="margin:0;" name="login" value="Войти" />
</form>

Отрывок с Delphi:

  ASource.AddFormField('DS', '');
  ASource.AddFormField('redir', '');
  ASource.AddFormField('emlr', '+Edit1.Text+');
  ASource.AddFormField('_44679182', '+Edit2.Text+');

Проблема возникла с DS, на страничке сайта его value постоянно меняется. Подскажите пожалуйста как мне его присвоить в ASource.AddFormField('DS', '');?

Знакомый говорит нужно как-то парси ее. Но как это делать? Подскажите пожалуйста.

[Квэнди]

Вам необходимо получить значение этого поля или сформировать его ?

[Alar]

celovec, парсить.
Берёте код и достаёте значение, всё.
В мемку хоть можете загрузить страницу?!

[Квэнди]

Вот пример
http://programmersforum.ru/showthread.php?t=5344

[Smagulov85]

Решил новую тему создавать написал тут

Вопрос такой: как можно авторизоваться если html код такой (код NAS гаджета WD My Book (белый) 1Tb) в Action только один слеш я так понимаю там javascript срабатывает..

form action="/" method="post" onSubmit="onSubmit();" name="login" id="login">
<table cellpadding="0" cellspacing="0" class="tbLogin">
  <tr><td colspan="2" class="vncellempty">&nbsp;</td></tr>
  <tr><td colspan="2" class="vncellempty">&nbsp;</td></tr>
  <tr>
    <td class="vncellreq">
      Administrator Name    </td>
    <td class="vtable">
      <input class="formfld" name="p_user" id="p_user" type="text" size="25" value="">
    </td>
  </tr>
  <tr>
    <td class="vncellreq">
      Password    </td>
    <td class="vtable">
      <input class="formfld" name="p_pass" id="p_pass" type="password" size="25" value="">
    </td>
  </tr>
  <tr>
    <td class="vncellreq">
      Tool    </td>
    <td class="vtable">
      <select name="login_mode" class="formfld">
        <option value="configuration" SELECTED>Network Storage Manager</option>
        <option value="downloader">Downloader</option>
				<option value="copymanager">Copy Manager</option>
        <option value="fpkmgr">FeaturePacks Manager</option>
      </select>
    </td>
  </tr>
  <tr>
    <td class="vncellreq">
      Language    </td>
    <td class="vtable">
      <select name="lang" id="lang" class="formfld">
        <option value="de" >Deutsch</option>
        <option value="en" SELECTED>English</option>
        <option value="es" >Español</option>
        <option value="fr" >Français</option>
        <option value="it" >Italiano</option>
        <option value="gb" >简体中文</option>
        <option value="zh" >繁體中文</option>
        <option value="ko" >한국어</option>
        <option value="jp" >日本語</option>
      </select>
    </td>
  </tr>
  <tr>
    <td class="vncellempty">&nbsp;</td>
    <td class="vtable" style="text-align:left;">
        <input type="submit" value="Login" class="formbtn">
    </td>
  </tr>
  <tr><td colspan="2" class="vncellempty">&nbsp;</td></tr>
  <tr><td colspan="2" class="vncellempty" style="width: 450px; font-weight: bold; color: #CC0000;">
    <noscript>Warning: Your browser does not support JavaScript now! It may cause the system to display abnormal Web GUI. As this reason, please check this browser's settings and turn on related options.</noscript>
  </td></tr>
</table>
<script>if(document.login) document.login.p_user.focus();</script>
<script>document.login.p_user.focus();</script>
</form>

procedure TForm1.Button2Click(Sender: TObject);
var
LoginInfo: TStringList;
Response: TStringStream;
begin
try
LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
LoginInfo.Add('p_user=Downloader');
LoginInfo.Add('p_pass=mypass');
LoginInfo.Add('login_mode=Downloade r');
LoginInfo.Add('lang=English');
IdHTTP1.Post('Что тут писать!',LoginInfo,Response);
finally
begin
Response.Free;
LoginInfo.Free;
end;

подскажите!