[Taemin]

Успешно авторизировался на сайте с помощью следующей процедуры:

Код:

procedure TForm1.btn1Click(Sender: TObject);
var
stream: TStringStream;
httpsend: THTTPSend;

KSlink,TOKEN:string;

begin
  KSlink:=idhtp1.Get('https://my.kyivstar.ua/tbmb/login/perform.do');
  TOKEN:=Copy(KSlink, Pos('org.apache.struts.taglib.html.TOKEN', KSlink)+44, 32);

  stream:=TStringStream.Create('');
  stream.WriteString('org.apache.struts.taglib.html.TOKEN='+TOKEN+'&isSubmitted=true&USERNAME=&USER_NAME=&ORIG_URL=&isInetUser=null&buser=&bpath=&user=%2B38'+edt2.Text+'&password='+edt1.Text+'&Submit=%C2%F5%B3%E4+%E2+%F1%E8%F1%F2%E5%EC%F3&value%28jumpTo%29=&value%28jumpToUrl%29=');
  httpsend:=THTTPSend.Create;
  httpsend.MimeType:='application/x-www-form-urlencoded';
  httpsend.Document.LoadFromStream(stream);
  if httpsend.HTTPMethod('post','https://my.kyivstar.ua/tbmb/login/perform.do') then
    begin
      mmo1.Lines.Add('Отправка запроса. Ответ сервера.');
      mmo1.Lines.Add('-----Cokies-----');
      mmo1.Lines.Add(httpsend.Cookies.Text);
      mmo1.Lines.Add('-----Headers-----');
      mmo1.Lines.Add(httpsend.Headers.Text);
      mmo1.Lines.Add('http.ResultCode='+IntToStr(httpsend.ResultCode));
    end;
end;

В Memo записался следующий текст:

Код:

-----Cokies-----
USER_SEGMENT=ACE_BASE
JSESSIONID=G7kJQ1qG4kwyjv9nQj2G9KSp2CVp1Lntvr5wpRBzWHycC7F0SQjq!240871948

-----Headers-----
HTTP/1.1 302 Moved Temporarily
Date: Wed, 28 Nov 2012 10:42:23 GMT
Server: Apache
Location: http://my.kyivstar.ua:443/tbmb/disclaimer/show.do;jsessionid=G7kJQ1qG4kwyjv9nQj2G9KSp2CVp1Lntvr5wpRBzWHycC7F0SQjq!240871948
Set-Cookie: USER_SEGMENT=default; path=/tbmb
Set-Cookie: JSESSIONID=G7kJQ1qG4kwyjv9nQj2G9KSp2CVp1Lntvr5wpRBzWHycC7F0SQjq!240871948; path=/; HttpOnly=
Set-Cookie: USER_SEGMENT=ACE_BASE; path=/tbmb
X-Powered-By: Servlet/2.4 JSP/2.0
Connection: close
Content-Type: text/html


http.ResultCode=302

То есть после успешной авторизации произошел редирект в кабинет абонента на страницу
Location: http://my.kyivstar.ua:443/tbmb/disclaimer/show.do;jsessionid=G7kJQ1qG4kwyjv9nQj2G9KSp2CVp1Ln tvr5wpRBzWHycC7F0SQjq!240871948
Как мне в тот же Memo вывести html код этой страницы?