Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > idhttp с авторизацией

Автор: AlexeyShestchenko 10.2.2008, 07:01

читал топики на по этой теме но ничего не выходит :(
есть страничка на login.asp

вот код страницы

Код



           <FORM METHOD="post">
  <table border="0" cellpadding="0" cellspacing="0" width="422"
style="font-family: Arial, MS Sans Serif; font-size: 8pt">
    <TR>
        <TD ALIGN="right" valign="top"><b>User Name:</b></TD>
        <TD>&nbsp<INPUT TYPE="text" NAME="txtUserName" size="20" value=""><p></INPUT></TD>
    </TR>
   
    <TR>
        <TD ALIGN="right" valign="top"><b>Password:</b></TD>
        <TD>&nbsp<INPUT TYPE="password" NAME="txtpassword" size="20" value=""><p></INPUT></TD>
    </TR>
    <TR>
        <TD ALIGN="right"></TD>
        <TD>
<input type="hidden" name="Flag" value=2><INPUT TYPE="submit" VALUE="Login!!" name="cmdLogin"></INPUT>
            </INPUT>
        </TD>
    </TR>
</TABLE>
</FORM>

Код


procedure TForm1.Button1Click(Sender: TObject);
var lData: TStringList;
begin
  lData := TStringList.Create;
  http := TIdHTTP.Create(nil);
  HTTP.Request.BasicAuthentication:=True;
  try
    lData.Add('txtUserName=12');
    lData.Add('txtpassword=12');
   HTTP.Post('http://www.mysite.ru/panel/login.asp', lData);
   AdvMemo1.Lines.Text := http.Get('http://www.mysite.ru/panel/main.asp');
  finally
    lData.Free;
  end;
  http.Free;
  AdvMemo1.Lines.SaveToFile('c:\xz.html');
end;

возращает просто страницу http://www.mysite.ru/panel/login.asp

у вас много опыта, подскажите че делать.

Автор: MetalFan 10.2.2008, 10:16

посмотри с пом.какого-нибудь софта, что реально отсылает браузер при авторизации. я для этих целей испjльзую бесплатный и мощны й http://www.fiddlertool.com/Fiddler2/version.asp

Автор: tratata 10.2.2008, 11:16

    lData.Add('txtUserName=MyName');
    lData.Add('txtpassword=MyPass');
    lData.Add('Flag=2');
    lData.Add('cmdLogin=Login!!');

Вродь так должно ехать -)

Автор: AlexeyShestchenko 10.2.2008, 14:44

не фурычит, например если ввести пароль не правильно,то редиректа не будет,он показывает ошибку на той же  login.asp,но я и ее получить не могу.
var lData: TStringList;
begin
  lData := TStringList.Create;
  http := TIdHTTP.Create(nil);
    HTTP.HandleRedirects := True;
  HTTP.ProtocolVersion := pv1_0;
  HTTP.ProtocolVersion := pv1_0;
  HTTP.Request.BasicAuthentication:=True;

  try
    lData.Add('txtUserName=anн');
    lData.Add('txtpassword=any');
    lData.Add('Flag=2');
    lData.Add('cmdLogin=Login!!');
    HTTP.Post('http://www.site.ru/login.asp', lData);
   AdvMemo1.Lines.Text := http.Get('http://www.site.ru/login.asp');

  finally
    lData.Free;
  end;
  http.Free;
  AdvMemo1.Lines.SaveToFile('c:\xz.html');

Автор: MetalFan 10.2.2008, 14:52

попробуй вместо TStringList запользовать индийски TIdMultipartFormData

Автор: AlexeyShestchenko 10.2.2008, 15:12

txtUserName=123&txtpassword=fff&Flag=2&cmdLogin=Login%21%21

вот что передает

Автор: bagos 10.2.2008, 16:37

подсобите люди!
мне тоже это интересно)

Автор: MetalFan 10.2.2008, 16:41

а теперь проверь, что передает твоя программа (есть у idHTTP возможность настройки прокси)
и добейся идентичности

Автор: bagos 10.2.2008, 17:00

из IE
txtUserName=f&txtpassword=d&Flag=2&cmdLogin=Login%21%21

из программы
----------021008170015796
Content-Disposition: form-data; name="txtUserName"

f
----------021008170015796
Content-Disposition: form-data; name="txtpassword"

d
----------021008170015796
Content-Disposition: form-data; name="Flag"

2
----------021008170015796
Content-Disposition: form-data; name="cmdLogin"

Login!!

----------021008170015796--

не фурычит :(

Добавлено через 12 минут и 32 секунды
все получилось наконец таки smile

спасибо за ответы!

Автор: AlexeyShestchenko 11.2.2008, 03:01

настранице есть кнопка, по нажатию которой открывается новое маленькое окошко с данными
<form>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="middle">
<INPUT TYPE="button" NAME="butt1" VALUE="OK" onClick="OK()" class="button">
</td><td valign="middle"><b>Put me</b>
<td>
</tr>
</table>
</form>

как мне нажать на нее и получить данные из того окошка не пойму :(

Автор: AlexeyShestchenko 11.2.2008, 03:20

+функция OK() содержится в самой странице,но она кривая не понятная...

Код


function ip_port()
{ 
  NW = window.open('','newwin','location=0,status=0,toolbar=0,menubar=0,resizable=1,scrollbars=1, width=200, height=500');
  NW.document.write('<html>');
  NW.document.write('<head>');
  NW.document.write('<meta http-equiv="Content-Type" content="text/html; charset="windows-1251">');
  NW.document.write('<title>info page</title>');
  NW.document.write('</head>');
  NW.document.write('<body>');
  for (i=0; i < X4oV7z.length; i++){
      kfMoG0R = X4oV7z[i].split("|");
        NW.document.write(kfMoG0R[0]+'<br>');
  }
  NW.document.write('</body>');
  NW.document.write('</html>');
  NW.document.close;
}