Руский POST

[bulldog5293]

Знаю что тема заезжена, но всё же у меня ни чего не выходит, вод код

sec.Add('submit='+AnsitoUTF8('Войти в аккаунт'));

я уже и UTF8toAnsi, и все encoding'и что я нашёл перепробывал, и ansistring, уже не знаю как отправить что бы получилось
submit=Войти в аккаунт. Может это связанно с тем что у меня Delphi XE, но прост нет возможности на ранюю версию перейти, в чём может быть ошибка? А то выходят знаки вопроса только в место русского текста

[Usov]

Подобные вещи делал с помощью UTF8Encode и отключением в TIdHTTP помоему в свойсва HTTPOptions отключал ForceEndodeParams (может в синтаксисе ошибся), чтоб некоторые символы не сам компонент не конвертил.

[bulldog5293]

А где этот HTTPOptions искачть, что бы отключить ForceEndodeParams, просто впервые про такое читаю, да и работаю в потоке

А есть ли ещё способы, просто этот не помог

Раз INDY в Delphi XE не побароть, я решил пойти другим путём и посматрев в снифере узнал что 'Войти в аккаунт' выглядит как '%C2%EE%E9%F2%E8+%E2+%E0%EA%EA%E0%F 3%ED%F2' и хотелось уточнить как мне такое в poste передать

[Usov]

конвертишь в утф8, потом оборачиваешь в шестнадцатеричный код

[bulldog5293]

А как в шестнадцатеричный код оборачивать, просто первый раз о таком слышу

[Usov]

в библиотеке Indy есть подобный метод, или вот:

function UrlEncode(S : String) : String;
var
    I : Integer;
begin
    Result := '';
    for I := 1 to Length(S) do begin
        if AnsiChar(S[I]) in ['0'..'9', 'A'..'Z', 'a'..'z'] then
            Result := Result + S[I]
        else
            Result := Result + '%' + IntToHex(Ord(S[I]), 2);
    end;
end;