VK api и Delphi

[Vlad2891]

Доброго времени суток!

Подскажите пожалуйста, возникла проблема при отправке запроса wall.post. Ругается на неверный токен, хотя до этого отправляются другие запросы и все в порядке.

Собственно, сам запрос:

sendpost:=send('GET', 'https://api.vk.com/method/wall.post?owner_id='+group_id+'&from_group=1&guid=0&message='+URLEncode(AnsiToUtf8(Form1.memo4.text))+'&attachment='+board+'&access_token='+token);

Возвращает:

{"error":{"error_code":5,"error_msg":"User authorization failed: no access_token passed.","request_params":[{"key":"oauth","value":"1"},{"key":"method","value":"wall.post"},{"key":"owner_id","value":"-123171043"},{"key":"from_group","value":"1"},{"key":"guid","value":"0"},{"key":"message","value":"текст сообщения:\r\n\r\n1&"}]}}

Сам думаю, что сообщение которое отправляю, слишком длинное, но тогда как его отправить?
Выяснил, что проблема в неправильно кодировке, но как кодировать иначе если не с URLEncode?

[PaHaNjkee]

sendpost:=send('GET', 'https://api.vk.com/method/wall.post?owner_id='+group_id+'&from_group=1&guid=0&access_token='+token+'&message='+URLEncode(AnsiToUtf8(Form1.memo4.text))+'&attachment='+board);

Попробуй так