Logowanie na twitch.tv

0

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;
3

A ta spacja tu przed https Ci nie bruździ?

IdHTTP.Post(' https://passport.twitch.tv/authorize', para, stream, IndyTextEncoding_UTF8());

U mnie wprawdzie nie było błędu tylko nie logowało ale z tym "Connection Closed Gracefully" tak bywa że czasem się pojawi a czasem nie w każdym razie po usunięciu spacji u mnie ok.

0

no nie wierze:D tyle czasu probowalem znalezc blad, stackoverflow nawet nie pomogl a tutaj od razu dobra pomoc

1

Nieraz tak jest, że literówki czy takiego błędu na pierwszy rzut nie widać. Polecam wtedy używać edytora z FAR'a z załadowanym pluginem Highlight . Oczywiście FAR jeżeli jest uruchomiony pod ConEmu na pełnym ekranie, wszystko wyraźniej widać. Ja nieraz tak spoglądam na jakiś fragment kodu w zapisanym pliku *,pas. Bo wzrok nieraz szwankuje i czasami pod IDE Delphi czegoś dokładnie tam nie dojrzę.

1 użytkowników online, w tym zalogowanych: 0, gości: 1