Idhttp.get и русские символы в запросе

[Pter]

Здравствуйте!
Сейчас я разрабатываю небольшую программку, которая использует api vk.com.
Необходимо послать гет запрос такого типа: https://api.vk.com/method/wall.post?...екст_сообщения
Собственно, запрос проходит, но если в сообщении присутствуют русские символы, оно принимает вид "?????".
Что можно сделать в такой ситуации?
Заранее спасибо.

[Voody]

держите:

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;

использовать: URLEncode(ansitoutf8('текст'))

[Pter]

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

держите:

использовать: URLEncode(ansitoutf8('текст'))

Огромнейшее спасибо Вам, все прекрасно работает

[Pter]

Немного рано обрадовался: текст, который надо отправить на стенку, парсится со странички с кодировкой utf-8. И если отправлять спарсенный текст, то в результате получается что-то типа "Купонгид в отрыве! Оплаченный отпуск за ". А работает Ваш вариант при условии, что строку, которая будет отправляться, будут заполнять в программе.
Буду благодарен за помощь.

[BDA]

Попробуйте убрать ansitoutf8().

[Pter]

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

Попробуйте убрать ansitoutf8().

Это было первое, что я попробовал
Проблема оказалась немного не там, где я ее искал. Idhttp получает страничку, но у него как всегда проблемы с распознаванием русского текста. Тут я описывал ее, тогда у меня получилось решить ее, но сейчас то решение не подходит.

[Voody]

del...........

[Voody]

Что за страница?
Попробуйте это же решение (получение русского текста) в конце обернуть еще в utf8decode, т.е.

setLength(c, length(s));
  IdHTTP1.Response.ContentStream.Read(c[1], length(s));
  //
  Memo1.Lines.Add(utf8decode(c));