Проблема в кодировке сообщений ВКОНТАКТЕ

[temchik2004]

Пользуюсь vk api
Происходит отправка сообщений но человек получает знаки вопросов вместо русского текста
использую indy10 и delphi2010

procedure TForm4.Button2Click(Sender: TObject);
begin
Memo1.Text:=idhttp1.Get('https://api.vkontakte.ru/method/messages.send.xml?uid='+Form1.id+'&message='+mess.Text+'&access_token='+Form1.accesstoken);
end;

Пробовал и

procedure TForm4.Button2Click(Sender: TObject);
begin
Memo1.Text:=idhttp1.Get('https://api.vkontakte.ru/method/messages.send.xml?uid='+ansitoutf8(Form1.id)+'&message='+ansitoutf8(mess.Text)+'&access_token='+Form1.accesstoken);
end;

не помогает!
В чем может быть проблема?

[-=Virus=-]

Попробуй переводить в кодировку из utf8 в ansi
Что то типа этого

Попробуй так

Memo1.Text:=Utf8ToAnsi(idhttp1.Get('https://api.vkontakte.ru/method/messages.send.xml?uid='+Form1.id+'&message='+mess.Text+'&access_token='+Form1.accesstoken));

или так

Memo1.Text:=AnsiToUtf8(idhttp1.Get('https://api.vkontakte.ru/method/messages.send.xml?uid='+Form1.id+'&message='+mess.Text+'&access_token='+Form1.accesstoken));

[temchik2004]

Сообщение от -=Virus=-

Попробуй переводить в кодировку из utf8 в ansi
Что то типа этого

Попробуй так

Memo1.Text:=Utf8ToAnsi(idhttp1.Get('https://api.vkontakte.ru/method/messages.send.xml?uid='+Form1.id+'&message='+mess.Text+'&access_token='+Form1.accesstoken));

или так

Memo1.Text:=AnsiToUtf8(idhttp1.Get('https://api.vkontakte.ru/method/messages.send.xml?uid='+Form1.id+'&message='+mess.Text+'&access_token='+Form1.accesstoken));

Не помогло!

[Stilet]

но человек получает знаки вопросов вместо русского текста
использую indy10 и delphi2010

Тоже попался на подобном... Так и не понял таки как проблему решить. Юникодизация делфи не пошла на пользу.

[kangreon]

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  mess: string;
begin
  mess := IdHTTP1.URL.ParamsEncode('Проверка', TEncoding.UTF8);
  s := 'https://api.vkontakte.ru/method/wall.post.xml?uid=&access_token=&message=' + mess;
  ShowMessage(IdHTTP1.Get(s));
end;

Сообщение приходит нормальное.

[temchik2004]

 
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;

idhttp1.Get('https://api.vkontakte.ru/method/messages.send.xml?uid='+form1.id+'&message='+URLEncode(ansitoutf8(mess.Text))+'&access_token='+Form1.accesstoken);

Решило проблему! Всем спасибо!

[GrabbeR]

Спасибо, помогло)