Delphi Indy 로그인하여 파일을 다운로드하십시오.

Question

문제는 파일을 다운로드 할 수 없다는 것입니다 (로그인하지 않은 원인). 나는 로그인 할 수 있지만 더 이상 아무것도 할 수 없다. 델파이 버전 : XE2, 인디 버전 : 10.5.8.0 (최신 인디로 델파이 XE4에서도 테스트 됨). 1970r 날짜가있는 쿠키가 하나 있습니다. 도와 주셔서 감사합니다.

코드 :

var 
    IdHTTP: TIdHTTP; 
    Request: TStringList; 
    Response: TMemoryStream; 
    File: TMemoryStream; 
begin 
    try 
    Response := TMemoryStream.Create; 
    try 
     Request := TStringList.Create; 
     try 
     Request.Add('user[login]=1212test1212'); 
     Request.Add('user[password]=test1212'); 
     IdHTTP := TIdHTTP.Create; 
     File := TMemoryStream.Create; 
     try 
      IdHTTP.AllowCookies := True; 
      IdHTTP.CookieManager:=Form1.IdCookieManager1; 
      IdHTTP.HandleRedirects := True; 
      IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; 
      IdHTTP.Post('http://www.twitch.tv/login', Request, Response); 
      IdHTTP.Get('http://www.twitch.tv/broadcast/fmle3_config',File); 
      File.SaveToFile('C:\aaa.xml'); 
     finally 
      IdHTTP.Free; 
      MS.Free; 
     end; 
     finally 
     Request.Free; 
     end; 
    finally 
     Response.Free; 
    end; 
    except 
    on E: Exception do 
     ShowMessage(E.Message); 
    end; 
end; 

HTTP 분석기 로그 (로그인과 암호는 진짜) :

(Status-Line):HTTP/1.1 302 Moved Temporarily 
Cache-Control:no-cache, no-store, must-revalidate 
Pragma:no-cache 
Set-Cookie:feature_bucket=83; domain=.twitch.tv; path=/ 
Set-Cookie:name=1212test1212; domain=.twitch.tv; path=/; expires=Tue, 06-Aug-2013 19:20:52 GMT 
Set-Cookie:_twitch_session_id=16d9fc8368fe22701324c7ce39c9f668; domain=.twitch.tv; path=/; expires=Wed, 24-Jul-2013 07:20:52 GMT; HttpOnly 
Set-Cookie:unique_id=a5b16cf36861154f9dd118e673fd4aa0; domain=.twitch.tv; path=/ 
Set-Cookie:persistent=46516706_1212test1212_35ptd94szs8ysrpfcckrcx21t; domain=.twitch.tv; path=/; expires=Tue, 06-Aug-2013 19:20:52 GMT; HttpOnly 
Set-Cookie:login=1212test1212; domain=.twitch.tv; path=/; expires=Tue, 06-Aug-2013 19:20:52 GMT 
Set-Cookie:last_login=Tue+Jul+23+19%3A20%3A52+UTC+2013; domain=.twitch.tv; path=/; expires=Tue, 06-Aug-2013 19:20:52 GMT 
Set-Cookie:language=en; domain=.twitch.tv; path=/; expires=Sat, 23-Jul-2033 19:20:52 GMT 
Set-Cookie:api_token=daa32f51e6d015daf9c7a1949d1ef9e0; domain=.twitch.tv; path=/; expires=Tue, 06-Aug-2013 19:20:52 GMT 
Content-Length:144 
Content-Type:text/html 
Location:http://www.twitch.tv/ 
Server:nginx 
Front-End-Https:off 
P3P:CP="CAO PSA OUR" 
status:302 Found 
x-geo:PL 
x-rack-cache:invalidate, pass 
x-request-id:a829998aa94c51788ec9b504656639f3 
x-runtime:0.272887 
x-ua-compatible:IE=Edge,chrome=1 
Date:Tue, 23 Jul 2013 19:20:52 GMT 
Connection:close 

(Status-Line):HTTP/1.1 200 OK 
Cache-Control:no-cache, no-store, must-revalidate 
Pragma:no-cache 
Set-Cookie:_twitch_session_id=860dc07ccd1dd937f1cb6adfc84a7f14; domain=.twitch.tv; path=/; expires=Wed, 24-Jul-2013 07:20:53 GMT; HttpOnly 
Set-Cookie:persistent=; domain=.twitch.tv; path=/; expires=Thu, 01-Jan-1970 00:00:00 GMT 
Content-Length:59850 
Content-Type:text/html; charset=utf-8 
Server:nginx 
Front-End-Https:off 
status:200 OK 
x-geo:PL 
x-rack-cache:invalidate, pass 
x-request-id:2557352c302a3eddfe9080882aaa3028 
x-runtime:0.301446 
x-ua-compatible:IE=Edge,chrome=1 
Date:Tue, 23 Jul 2013 19:20:53 GMT 
Connection:close 

(Status-Line):HTTP/1.1 302 Moved Temporarily 
Cache-Control:must-revalidate, no-cache, no-store, private 
Pragma:no-cache 
Set-Cookie:_twitch_session_id=860dc07ccd1dd937f1cb6adfc84a7f14; domain=.twitch.tv; path=/; expires=Wed, 24-Jul-2013 07:20:54 GMT; HttpOnly 
Content-Length:150 
Content-Type:text/html 
Location:http://www.twitch.tv/signup 
Server:nginx 
Front-End-Https:off 
status:302 Found 
x-geo:PL 
x-rack-cache:miss 
x-request-id:b35e5b998a633b80cfb1f53373e5627a 
x-runtime:0.029409 
X-UA-Compatible:IE=Edge,chrome=1 
Date:Tue, 23 Jul 2013 19:20:54 GMT 
Connection:keep-alive 

http://img197.imageshack.us/img197/7007/xgyf.jpg

Answer 1

는 올바른 URL에 로그인되지 않습니다. http://www.twitch.tv/login은 사용자가 웹 브라우저에서 작성한 다음 실제 로그인 URL 인 https://secure.twitch.tv/user/login에 대신 제출하는 HTML 로그인 양식입니다. 해당 로그인 양식의 HTML을 보면 제출해야하지만 현재 제출하지 않고있는 숨겨진 양식 필드를 볼 수 있습니다.

또한 실제 로그인 URL은 HTTPS를 사용하므로 TIdSSLIOHandlerSocketOpenSSL과 같이 TIdHTTP에 SSL IOHandler를 연결해야합니다. 을 요청하면 authenticity_token 값이 동적으로 생성되므로 로그인 양식에 HTML을 다운로드하고 수동으로 토큰 값을 구문 분석 한 다음 로그인 제출을 완료해야합니다.

이 시도 :

: 상기와

var 
    IdHTTP: TIdHTTP; 
    IdSSL: TIdSSLIOHandlerSocketOpenSSL; 
    HTML, AuthToken: string; 
    Request: TStringList; 
    File: TMemoryStream; 
begin 
    try 
    IdHTTP := TIdHTTP.Create; 
    try 
     IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP); 
     IdHTTP.IOHandler := IdSSL; 

     IdHTTP.AllowCookies := True; 
     IdHTTP.CookieManager := Form1.IdCookieManager1; 
     IdHTTP.HandleRedirects := True; 

     HTML := IdHTTP.Get('http://www.twitch.tv/login'); 
     AuthToken := ...; // parse the HTML to extract the authenticity_token value... 

     Request := TStringList.Create; 
     try 
     Request.Add('utf8=✓'); 
     Request.Add('authenticity_token=' + AuthToken); 
     Request.Add('redirect_on_login=http://www.twitch.tv/'); 
     Request.Add('embed_form=false'); 
     Request.Add('user[login]=1212test1212'); 
     Request.Add('user[password]=test1212'); 

     IdHTTP.Post('https://secure.twitch.tv/user/login', Request, nil, IndyUTF8Encoding); 
     finally 
     Request.Free; 
     end; 

     File := TMemoryStream.Create; 
     try 
     IdHTTP.Get('http://www.twitch.tv/broadcast/fmle3_config', File); 
     File.SaveToFile('C:\aaa.xml'); 
     finally 
     File.Free; 
     end; 
    finally 
     IdHTTP.Free; 
    end; 
    except 
    on E: Exception do 
     ShowMessage(E.Message); 
    end; 
end; 

, 로그인 폼은 로그인이 성공 지정된 URL로 리디렉션을 수행하기 때문에, 당신은 하나의 왕복을 방지하기 위해이 약간 짧은 접근 방법을 시도 할 수 있습니다

var 
    IdHTTP: TIdHTTP; 
    IdSSL: TIdSSLIOHandlerSocketOpenSSL; 
    HTML, AuthToken: string; 
    Request: TStringList; 
    File: TMemoryStream; 
begin 
    try 
    IdHTTP := TIdHTTP.Create; 
    try 
     IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP); 
     IdHTTP.IOHandler := IdSSL; 

     IdHTTP.AllowCookies := True; 
     IdHTTP.CookieManager := Form1.IdCookieManager1; 
     IdHTTP.HandleRedirects := True; 

     HTML := IdHTTP.Get('http://www.twitch.tv/login'); 
     AuthToken := ...; // parse the HTML to extract the authenticity_token value... 

     Request := TStringList.Create; 
     try 
     Request.Add('utf8=✓'); 
     Request.Add('authenticity_token=' + AuthToken); 
     Request.Add('redirect_on_login=http://www.twitch.tv/broadcast/fmle3_config'); 
     Request.Add('embed_form=false'); 
     Request.Add('user[login]=1212test1212'); 
     Request.Add('user[password]=test1212'); 

     File := TMemoryStream.Create; 
     try 
      IdHTTP.Post('https://secure.twitch.tv/user/login', Request, File, IndyUTF8Encoding); 
      File.SaveToFile('C:\aaa.xml'); 
     finally 
      File.Free; 
     end; 
     finally 
     Request.Free; 
     end; 
    finally 
     IdHTTP.Free; 
    end; 
    except 
    on E: Exception do 
     ShowMessage(E.Message); 
    end; 
end;