Проблема с кодировкой

РоманР
Дата: 07.05.2011 14:29:35
Отправляю сообщение через IdHttp на русском языке На сайте знаки вопроса возникают. Если отловить данный запрос через браузер там должен быть текст вот в такой кодировке
автор
%C4%E5%F2%E8+%FD%F2%EE+%ED%E0%F8%E5+%E1%F3%E4%F3%F9%E5%E5+
Помогите как в Delphi обычную русскую строку перекодировать в ЭТО.
РоманР
Дата: 07.05.2011 14:56:35
РоманР,

Я знаю что то подобное можно сделать в php с помощью Htmlspecialchars
wellwell
Дата: 07.05.2011 15:15:09
РоманР
РоманР,

Я знаю что то подобное можно сделать в php с помощью Htmlspecialchars


HttpUtil.HTMLEscape
fd00ch
Дата: 07.05.2011 17:22:25
wellwell
HttpUtil.HTMLEscape
там по-другому кодируются символы
wellwell
Дата: 07.05.2011 17:35:01
fd00ch
wellwell
HttpUtil.HTMLEscape
там по-другому кодируются символы


Htmlspecialchars упомянутый выше делает именно так. В конце концов, автор должен собразить, как написать собсный аналог функции для кодировки URL.
CF-Kingston
Дата: 08.05.2011 10:59:52
function UrlEncode(const DecodedStr: String; Pluses: Boolean): String;
var
  I: Integer;
begin
  Result := '';
  if Length(DecodedStr) > 0 then
    for I := 1 to Length(DecodedStr) do
    begin
      if not (DecodedStr[I] in ['0'..'9', 'a'..'z',
                                       'A'..'Z', ' ']) then
        Result := Result + '%' + IntToHex(Ord(DecodedStr[I]), 2)
      else if not (DecodedStr[I] = ' ') then
        Result := Result + DecodedStr[I]
      else
        begin
          if not Pluses then
            Result := Result + '%20'
          else
            Result := Result + '+';
        end;
    end;
end;

http://www.torry.net/dpfl/dzurl.html