Как Обращаться К Api_vk С Помощью Post Запроса?

[Polya]

Не могу отправить сообщение вконтакте другу.
Get запрос работает, только нельзя отправлять более ??? символов. Потому что иначе сообщения будут ограничены максимальной длиной Get запроса - 256 символов где-то.
В таком случае нужно обязательно отправлять данные на сервер с помощью Post запроса.

В коде переменная SendMessage1 типа string в ней строка сообщения в формате Utf8
Если у меня все не правильно, покажите пожалуйста пример. Только на сайте вк. В поиске нет примеров с Post запросами авторизации и отправки запросов к api через приложение вк с помощью библиотеки Synapse через приложение для Вконтакте.

var
  temp:string;
  S1, S2, S3:string;
  POST:TStringStream;
begin
  HTTP:= thttpsend.Create;

  POST:=TStringStream.Create;
  POST.WriteString('user_id='+Edit6.Text+'message='+SendMessage1+'access_token='+token);
  HTTP.Document.LoadFromStream(POST);

  if HTTP.HTTPMethod('POST', 'https://api.vk.com/method/messages.send?') then
  begin
    if Pos('response', HTTP.Headers.Text)<>0 then
    begin
    Memo1.Lines.Add('Good' + #13 + SendMessage1);
    Edit5.Text:=SendMessage1;
    end
    else
    Memo1.Lines.Add('Error' + HTTP.Headers.Text);
  end;
end;

 

[Sascha]

У тебя не проходит русский текст?? тогда поставь правильную кодировку

 

[Polya]

У тебя не проходит русский текст?? тогда поставь правильную кодировку

С кодировкой все правильно, я сообщения на стену отправляю нормально. А в лс могу отправить слово "привет" не более. Это с Get запросом.
А у меня не правильный Post запрос, я не знаю как составить правильно Post запрос с Synapse вк.

 

[Lomanu4]

Пробуй отправить,черезмемо

 

[Polya]

Пробуй отправить,черезмемо

GET запрос не может отправлять более 256 символов.
А POST запрос, я не знаю как сделать с Synapse.

 

[Polya]

Ну вы чего, забыли про меня что ли? =(

 

[triamera977]

Ну вы чего, забыли про меня что ли? =(

наверно размышляют над твоим вопросом :)

 

[Lomanu4]

Ну вы чего, забыли про меня что ли? =(

1. response:=send('GET', 'https://api.vk.com/method/wall.post...ge='+AnsiToUtf8('Edit3.Text')+'&access_token=' + form1.token); msg:=Utf8ToAnsi(response); Memo1.Lines.Add(msg);

response - переменная
Send- синапс,я так понял,что работаете с синапсом,не забудьте поставить обновленную версию тут
Если еще будет проблема с 256 символами пишите,решим.

 

[Polya]

1. response:=send('GET', 'https://api.vk.com/method/wall.post...ge='+AnsiToUtf8('Edit3.Text')+'&access_token=' + form1.token); msg:=Utf8ToAnsi(response); Memo1.Lines.Add(msg);

response - переменная
Send- синапс,я так понял,что работаете с синапсом,не забудьте поставить обновленную версию тут
Если еще будет проблема с 256 символами пишите,решим.

С wall.post и проблем нет, в личные сообщения нельзя отправить сообщение с помощью GET запроса, метод Messages а wall.post меня не интересует.

 

[Lomanu4]

значит вы запрос составляете не правельно,у меня все работает.

 

[Polya]

значит вы запрос составляете не правельно,у меня все работает.

Я уже поняла как, спасибо)

 

[Lomanu4]

Я уже поняла как, спасибо)

Ошибка была в запросе?