Przy POST jest ""Connection Closed Gracefully". Ma ktos jakis pomysl? Login i haslo sa prawdzie. Uzywam Delphi XE 8. Z gory dzieki za pomoc.
var
IdHTTP: TIdHTTP;
IdSSL: TIdSSLIOHandlerSocketOpenSSL;
HTML: string;
para: TStringList;
start, ends: integer;
stream: TMemoryStream;
state, nonce: string;
begin
IdHTTP := TIdHTTP.Create;
para := TStringList.Create;
stream := TMemoryStream.Create;
try
IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
IdHTTP.IOHandler := IdSSL;
IdHTTP.AllowCookies := True;
IdHTTP.CookieManager := Form1.IdCookieManager1;
Form1.IdCookieManager1.CookieCollection.Clear;
IdHTTP.HandleRedirects := True;
HTML := IdHTTP.Get('http://www.twitch.tv/login');
start := Pos('<input type="hidden" name="state" value="', HTML) + Length('<input type="hidden" name="state" value="');
ends := PosEx('"', HTML, start);
state := copy(HTML, start, ends - start);
start := Pos('<input type="hidden" name="nonce" value="', HTML) + Length('<input type="hidden" name="nonce" value="');
ends := PosEx('"', HTML, start);
nonce := copy(HTML, start, ends - start);
para.Add('scope=openid');
para.Add('client_id=36926892495301a63b2e9350a38d3d6dbf72ad81e571a3ebba4687250ec8f352c70b3e91229602f73e1335528f3caa00a5cf513f484d7003784e722f2ce7a216');
para.Add('redirect_uri=https://secure.twitch.tv/passport/callback');
para.Add('response_type=code');
para.Add('state=' + state);
para.Add('nonce=' + nonce);
para.Add('login=1a64');
para.Add('password=1a641a641a64');
try
IdHTTP.Post(' https://passport.twitch.tv/authorize', para, stream, IndyTextEncoding_UTF8());
except
end;
try
Form1.Memo1.text := para.text;
HTML := IdHTTP.Get('http://www.twitch.tv/settings');
except
end;
showmessage(HTML);
finally
IdHTTP.Free;
para.Free;
stream.Free;
end;
end;