VPF::Get запрос с кириллицей - Форум программистов

gonzales

Дата 5.2.2014, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 241
Регистрация: 13.3.2006

Репутация: нет
Всего: 2

Доброе время суток!
Столкнулся с неожиданной траблой. Ни один из советов этого и других форумов не помог.

Передаю в Get запросе название папки кириллицей.
Ответ сервера - NotFound, подозреваю, что проблема с кодировкой, так как с латинскими названиями нет никаких проблем.

Вот код

Код


s:string;
s:='/Photos/Тест';
IdHTTP1.Get('https://api.dropbox.com/1/metadata/dropbox'+s+'access_token='+access_token+'&oauth_consumer_key=neoyzmg2xfq6n',memstream);

Аналогичный запрос в браузере дает положительный результат.

Подскажите куда копать?

Delphi XE5 Indy10

--------------------

- мастер, мастер, запорол..., все четыре запорол!!!- я ж тебе только три давал!!!???- да я и образец запорол!!!!

Akella

Дата 5.2.2014, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329

Так кодируй

Добавлено @ 17:26
URLEncode вроде есть или в тырнете, или у инди

это из D2007

Код


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: PChar;
begin
  Result := '';
  Len := Length(Str);
  P := PChar(@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;

Добавлено через 4 минуты и 33 секунды
https://www.google.com/search?q=delphi+urle...mp;channel=fflb

и первая же ссылка
http://stackoverflow.com/questions/776302/...encode-function

gonzales

Дата 5.2.2014, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 241
Регистрация: 13.3.2006

Репутация: нет
Всего: 2

Спасибо тебе, мил человек!!!!

Я уже как только не кодировал, не получается.

Вот рабочий код оказался

Код


uses
  IdURI;

..
begin
  S := TIdURI.URLEncode(str);
//
  S := TIdURI.URLDecode(str);
end;

--------------------

- мастер, мастер, запорол..., все четыре запорол!!!- я ж тебе только три давал!!!???- да я и образец запорол!!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »