VPF::UTF-8 - Форум программистов

Matematik

Дата 9.6.2006, 11:15 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Продолжение темы http://forum.vingrad.ru/index.php?showtopic=99817
Для отправки на сервер методом GET русского текста сначала надо его преобразовать в кодировку UTF-8.
делаю это так
sss := AnsiToUtf8(sss);
Потом преобразую в формат для get запроса методом из Indy9 TIdURI.ParamsEncode

Код


class function TIdURI.ParamsEncode(const ASrc: string): string;
var
  i: Integer;
const
  UnsafeChars = ['*', '#', '%', '<', '>', ' ','[',']'];  {do not localize}
begin
  Result := '';    {Do not Localize}
  for i := 1 to Length(ASrc) do
  begin
    if (ASrc[i] in UnsafeChars) or (not (ord(ASrc[i])in [33..128])) then
    begin {do not localize}
      Result := Result + '%' + IntToHex(Ord(ASrc[i]), 2);  {do not localize}
    end
    else
    begin
      Result := Result + ASrc[i];
    end;
  end;
end;

Вот тут то и возникает ошибка, если дать функции слово интернет, после преобразование в UTF в строке появляется символ с кодом 128, и в процедуре ParamsEncode условие ord(ASrc[i])in [33..128] дает TRUE
Как я понял в коде Indy ошибка, должно быть ord(ASrc[i])in [33..127]
http://ru.wikipedia.org/wiki/UTF-8

Цитата

... Текст, состоящий только из символов с номером меньше 128, при записи в UTF-8 превращается в обычный текст ASCII ...

Я прав или нет???

Это сообщение отредактировал(а) Matematik - 9.6.2006, 11:17

Romikgy

Дата 9.6.2006, 11:50 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(Matematik @ 9.6.2006, 10:15

)

с номером меньше 128

дык это и есть , что не равно 128!

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Matematik

Дата 9.6.2006, 12:23 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Да точно, перепутал понятия.
Но вопрос в силе, в инди ошибка?

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