POST idHTTP

[Pasha_Sh]

Когда отправляю сообщение, вместо русского текста знаки вопросов.

[Пепел Феникса]

1)попробуйте в HTTPOptions отключить ForceEncodeParams
2)попробуйте кодировать самостоятельно, я обычно брал параметры(кодированные) со сниффера

[Виталий Желтяков]

Delphi какая? Если 2009 и выше, то это проблема с кодировками. Обновите indy, а ещё лучше перейдите на Delphi 7.

[Пепел Феникса]

Виталий Желтяков, к сожалению Д7 не выход.
самое лучшее это забить на автокодирование от компонента и кодировать самому.
принципы кодирования есть на википедии по запросу URL

[AquaKlaster]

function UrlEncode(const s: AnsiString): string;
var
  I: integer;
begin
  Result := '';
  for i := 1 to Length(S) do
    case S[i] of
      '%', ' ', '&', '=', '@', '.', #13, #10, #128..#255: Result := Result + '%'
        + IntToHex(Ord(S[i]), 2);
    else
      Result := Result + S[i];
    end;
end;

[Пепел Феникса]

она рабочая разве?
поидее по правилам URL кодирования, не так должно идти кодирование.

[AquaKlaster]

Феникс я не даю функций которых сам не юзаю

вот немного другая. с поддержкой утф

function UrlEncode1(const s: string; NeedUTF8: Boolean = False): string;
var
  I: integer;
  W: UTF8String;
begin
  Result := '';
  if NeedUTF8 then
    W := UTF8Encode(S)
  else
    W := S;
  for i := 1 to Length(W) do
    case W[i] of
      '%', ' ', '&', '=', '@', '.', #13, #10, #128..#255: Result := Result + '%'
        + IntToHex(Ord(W[i]), 2);
    else
      Result := Result + W[i];
    end;
end;

[Pasha_Sh]

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

вот немного другая. с поддержкой утф

function UrlEncode1(const s: string; NeedUTF8: Boolean = False): string;
var
  I: integer;
  W: UTF8String;
begin
  Result := '';
  if NeedUTF8 then
    W := UTF8Encode(S)
  else
    W := S;
  for i := 1 to Length(W) do
    case W[i] of
      '%', ' ', '&', '=', '@', '.', #13, #10, #128..#255: Result := Result + '%'
        + IntToHex(Ord(W[i]), 2);
    else
      Result := Result + W[i];
    end;
end;

Спасибо, работает!
Но при GET запросе тоже абра кадабра. Как её убрать?