Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
26th
Июн
Авторизация на mail.ru с помощью indy
Posted by Chas under Пост-обзор
Не пойму в чем трабла, написал свой код, вчера сидел весь день, так ничего и не добился
webber9989:
Да, так и знал, нашел готовое решение на ачате, дело было в куках, как я и предполагал. Всем спасибо.
Решение:
procedure TForm1.Button3Click(Sender: TObject);
var
p1,p2: Integer;
cook: String;
begin
Memo1.Text:= IdHTTP1.Get('http://games.mail.ru/mru/auth/login?login=lerchik24.11@mail.ru&password=lerik1&foreign=');
if Pos('Mpop', IdHTTP1.Response.RawHeaders.Text) > 0 then
begin
p1:= Pos('Mpop', IdHTTP1.Response.RawHeaders.Text);
p2:= Pos('.ru:', IdHTTP1.Response.RawHeaders.Text)+5;
cook:= Copy(IdHTTP1.Response.RawHeaders.Text, p1, p2-p1);
ShowMessage(cook);
IdHTTP1.Request.CustomHeaders.Add('Cookie: ' + cook);
end;
Memo2.Text:= IdHTTP1.Get('http://mail.ru');
end;Похожие статьи
