И снова JSON

[BLACK_RAIN]

function ExtractVideoIDFromURL(VidURL : string) : string;
var
  i : Integer;
begin
  if (Pos('http://www.twitch.tv/videos/', VidURL) = 1) or
     (Pos('https://www.twitch.tv/videos/', VidURL) = 1) then
  begin
    i := Pos('s/', VidURL);
    if i > 0 then
    begin
      Result := VidURL;
      Delete(Result, 1, i + 1);
      i := Pos('?', Result);
      if i > 0 then
      Result := Copy(Result, 1, i - 1);
    end else
    Result := '';
  end else
  Result := '';
end;

[tarakan1983]

И последняя константа TWITCH_VIDEO_INFO_URL

[BLACK_RAIN]

  TWITCH_VIDEO_INFO_URL = 'https://api.twitch.tv/kraken/videos/<video_id>';

[tarakan1983]

в функции Https_Get я после

RecvText := ResponseText;

вставил

RecvText := StringReplace(RecvText,'//thumb/','/thumb/',[rfReplaceAll, rfIgnoreCase]);

и у меня все отработало на ура.

function Https_Get(sURL : string; var RecvText : AnsiString) : Integer;
const
  sUserAgent = 'Mozilla/5.001 (windows; U; NT4.0; en-US; rv:1.0) Gecko/25250101';
var
  hInet, hConnect, hRequest : HINTERNET;
  lpdwBufferLength: DWORD;
  lpdwReserved    : DWORD;
  dwBytesRead     : DWORD;
  lpdwNumberOfBytesAvailable : DWORD;
  _pos : Cardinal;
  ServerName, Resource, Header : string;
  ResponseText : AnsiString;
  p : PChar;
begin
  Result := -1;
  _pos := Pos('://', sURL);
  Header := Copy(sURL, 1, _pos + 2);
  Delete(sURL, 1, _pos + 2);
  _pos := Pos('/', sURL);
  ServerName := Copy(sURL, 1, _pos - 1);
  Delete(sURL, 1, _pos - 1);
  Resource := sURL;
  hInet := InternetOpen(PChar(sUserAgent), INTERNET_OPEN_TYPE_PRECONFIG,
                        nil, nil, 0);
  if Assigned(hInet) then
  begin
    hConnect := InternetConnect(hInet, PChar(ServerName),
                  INTERNET_DEFAULT_HTTPS_PORT, nil, nil,
                  INTERNET_SERVICE_HTTP, 0, 0);
    if Assigned(hConnect) then
    begin
      p := PChar('Accept: ' + TWITCH_V5_ACCEPT + #0);
      hRequest := HttpOpenRequest(hConnect, 'GET', PChar(Resource),
                  HTTP_VERSION, '', @p, INTERNET_FLAG_SECURE, 0);
      if Assigned(hRequest) then
      begin
        Header := 'Client-ID: ' + TWITCH_CLIENT_ID;
        if not HttpSendRequest(hRequest, PChar(Header), Length(Header), nil, 0) then
        begin
          InternetCloseHandle(hRequest);
          InternetCloseHandle(hConnect);
          InternetCloseHandle(hInet);
          Exit;
        end;

        lpdwBufferLength := SizeOf(dword);
        lpdwReserved := 0;
        if not HttpQueryInfo(hRequest,
                             HTTP_QUERY_STATUS_CODE or HTTP_QUERY_FLAG_NUMBER,
                             @result, lpdwBufferLength, lpdwReserved) then
        begin
          InternetCloseHandle(hRequest);
          InternetCloseHandle(hConnect);
          InternetCloseHandle(hInet);
          Exit;
        end;

        if Result = 200 then
        begin
          _Pos := 1;
          ResponseText := '';
          repeat
            if not InternetQueryDataAvailable(hRequest,
                                lpdwNumberOfBytesAvailable, 0, 0) then
            begin
              InternetCloseHandle(hRequest);
              InternetCloseHandle(hConnect);
              InternetCloseHandle(hInet);
              Exit;
            end;
            SetLength(ResponseText, Length(ResponseText) +
                           Integer(lpdwNumberOfBytesAvailable));
            InternetReadFile(hRequest, @ResponseText[_pos],
                            lpdwNumberOfBytesAvailable, dwBytesRead);
            Inc(_Pos, dwBytesRead);
          until dwBytesRead = 0;
          RecvText := ResponseText;

          //*********************************
          //*********************************
          RecvText := StringReplace(RecvText,'//thumb/','/thumb/',[rfReplaceAll, rfIgnoreCase]);
          //*********************************
          //*********************************
          //if Pos('//thumb',RecvText) > 0 then
          //  ShowMessage('');


        end;
        InternetCloseHandle(hRequest);
      end;
      InternetCloseHandle(hConnect);
    end;
    InternetCloseHandle(hInet);
  end;
end;

А по сути у этой картинки и есть такой URL через два слеша.

[BLACK_RAIN]

Сообщение от tarakan1983

А по сути у этой картинки и есть такой URL через два слеша.

Прикольно. Первый раз такое вижу. Я думал это глюк.
Я по ошибке проверял на устаревшем JSON'е, по-этому получал ошибку 404. Там уже всё удалили, а я думал, что это из-за двух слешей. На новых JSON'ах всё работает.
Первый раз вижу в ссылке два слеша подряд.