Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
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;