Загрузить изображение по ссылке с кириллицей

[igrok111]

Знаю несколько способов скачать изображение с интернета по средствам Delphi. Но, как скачать по такой ссылке?
http://homeandinteriors.ru/wp-conten...нтерьера-3.jpg
Не знаю в чем проблема, в кириллице или в черточках(-–-), но ошибка:

HTTP/1.1 404 Not Found

[Shouldercannon]

Delphi XE 10.1. Без проблем

procedure TForm2.Button1Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  FS: TFileStream;
begin
  try
    HTTP := TIdHTTP.Create(nil);
    HTTP.ConnectTimeout := 5000;
    FS := TFileStream.Create(ExtractFilePath(Application.ExeName) + '3.jpg', fmCreate);
    try
      HTTP.Get('http://homeandinteriors.ru/wp-content/uploads/2012/11/Brabbu-%E2%80%93-%D0%BF%D0%BE%D1%80%D1%82%D1%83%D0%B3%D0%B0%D0%BB%D1%8C%D1%81%D0%BA%D0%B8%D0%B9' +
      '-%D0%B4%D0%B8%D0%B7%D0%B0%D0%B9%D0%BD%D0%B5%D1%80%D1%81%D0%BA%D0%B8%D0%B9-%D0%B1%D1%80%D0%B5%D0%BD%D0%B4-%D0%B2%D1%8B%D0%BF%D1%83%D1%81%D0%BA%D0%B0%D1%8E%D1%89' +
      '%D0%B8%D0%B9-%D1%8D%D0%BA%D1%81%D0%BA%D0%BB%D1%8E%D0%B7%D0%B8%D0%B2%D0%BD%D1%8B%D0%B5-%D0%BF%D1%80%D0%B5%D0%B4%D0%BC%D0%B5%D1%82%D1%8B-%D0%B8%D0%BD%D1%82%D0%B5%D1%80%D1%8C%D0%B5%D1%80%D0%B0-3.jpg', FS);
    except
      on E: Exception do
      begin
        ShowMessage(E.Message);
      end;
    end;
  finally
    FreeAndNil(HTTP);
    FreeAndNil(FS);
  end;
end;

[Heneken87]

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

Delphi XE 10.1. Без проблем

Кирилицу тож хавает? Если да, то я честно <censored> ваш код, мне пригодится=))
Или все таки лучше сделать так?

HTTP.Get(URL_LIST.Strings[i], TIdTextEncoding.UTF8)

[Shouldercannon]

Скачивая по ссылке имеющей кириллицу такую же ошибку получил. Значит ссылку надо перекодировать

Или все таки лучше сделать так?

HTTP.Get(URL_LIST.Strings[i], TIdTextEncoding.UTF8)

Нет контейнера для приёма файла и врятли третий параметр тут прикрутишь

[Aliens_wolfs]

В каком Delphi пытаетесь реализовать?
Можно кодировать из вашей ссылки "португальский-дизайнерский-бренд-выпускающий-эксклюзивные-предметы-интерьера-3.jpg" в
"-%D0%B8%D0%BD%D1%82%D0%B5%D1%80%D1%8 C%D0%B5%D1%80%D0%B0-3.jpg"


Вот рабочий кодировщик

Function UrlEncode(Str: string): string;

  function CharToHex(Ch: Char): Integer;
  asm
    and eax, 0FFh
    mov ah, al
    shr al, 4
    and ah, 00fh
    cmp al, 00ah
    jl @@10
    sub al, 00ah
    add al, 041h
    jmp @@20
@@10:
    add al, 030h
@@20:
    cmp ah, 00ah
    jl @@30
    sub ah, 00ah
    add ah, 041h
    jmp @@40
@@30:
    add ah, 030h
@@40:
    shl eax, 8
    mov al, '%'
  end;

var
  i, Len: Integer;
  Ch: Char;
  N: Integer;
  P: PAnsiChar;
begin
  Result := '';
  Len := Length(Str);
  P := PAnsiChar(@N);
  for i := 1 to Len do
  begin
    Ch := Str[i];
 // здесь исключения символов которые не кодируются
   if Ch in ['0'..'9', 'A'..'Z', 'a'..'z', '_', ':', '/', '.'] then
      Result := Result + Ch
    else
    begin
      if Ch = ' ' then
        Result := Result + '+'
      else
      begin
        N := CharToHex(Ch);
        Result := Result + P;
      end;
    end;
  end;
end;

Использовать с кодом Shouldercannon

sUrl:= UrlEncode(AnsiToUTF8('http://homeandinteriors.ru/wp-content/uploads/2012/11/Brabbu' + 
'-–-португальский-дизайнерский-бренд-выпускающий-эксклюзивные-предметы-интерьера-3.jpg'));
HTTP.Get(sUrl, FS)

[igrok111]

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

Delphi XE 10.1. Без проблем

('http://homeandinteriors.ru/wp-content/uploads/2012/11/Brabbu-%E2%80%93-%D0%BF%D0%BE%D1%80%D1%82%D1%83%D0%B3%D0%B0%D0%BB%D1%8C%D1%81%D0%BA%D0%B8%D0%B9' +
      '-%D0%B4%D0%B8%D0%B7%D0%B0%D0%B9%D0%BD%D0%B5%D1%80%D1%81%D0%BA%D0%B8%D0%B9-%D0%B1%D1%80%D0%B5%D0%BD%D0%B4-%D0%B2%D1%8B%D0%BF%D1%83%D1%81%D0%BA%D0%B0%D1%8E%D1%89' +
      '%D0%B8%D0%B9-%D1%8D%D0%BA%D1%81%D0%BA%D0%BB%D1%8E%D0%B7%D0%B8%D0%B2%D0%BD%D1%8B%D0%B5-%D0%BF%D1%80%D0%B5%D0%B4%D0%BC%D0%B5%D1%82%D1%8B-%D0%B8%D0%BD%D1%82%D0%B5%D1%80%D1%8C%D0%B5%D1%80%D0%B0-3.jpg', FS);

А как преобразовать ссылку в такой вид? Код, предоставленный Aliens_wolfs не работает, по прежнему 404.

[Aliens_wolfs]

Так мой код в такой вид и делает. Что то неправильно делаете