Я всегда мечтал о том, чтобы моим компьютером можно было пользоваться так же легко, как телефоном; моя мечта сбылась: я уже не могу разобраться, как пользоваться моим телефоном. - Bjarne Stroustrup


Сегодня: 25.07.2017
Яндекс.Метрика

Добавил admin | Категория Наши материалы | 07 Ноября 2014


Доброго времени суток уважаемые читатели! Как вы наверное уже успели догадаться по иконке данного поста речь у нас сегодня пойдет вновь пойдет разговор про API VK. Сегодня я предлагаю вам разобрать такую замечательную функцию как wall.post. Данная функция как сказано на официальной старице вконтакте «Публикует новую запись на своей или чужой стене.»
Данный метод позволяет создать новую запись на стене, а также опубликовать предложенную новость или отложенную запись.
Основные параметры данного метода:

owner_id идентификатор пользователя или сообщества, на стене которого должна быть опубликована запись.
friends_only 1 — запись будет доступна только друзьям, 0 — всем пользователям. По умолчанию публикуемые записи доступны всем пользователям.
флаг, может принимать значения 1 или 0
from_group данный параметр учитывается, если owner_id < 0 (запись публикуется на стене группы). 1 — запись будет опубликована от имени группы, 0 — запись будет опубликована от имени пользователя (по умолчанию).
флаг, может принимать значения 1 или 0
message текст сообщения (является обязательным, если не задан параметрattachments)
строка
attachments список объектов, приложенных к записи и разделённых символом ",".

Ну и так далее, полное описание все параметров вы сможете найти на официальной старице
Использовать мы будем сегодня не все параметры данного метода а только основные. И так начнем. Начинать с нуля понятное дело мы не будем, мы откроем код из предыдущего урока.

Из процедуры Button1Click(Sender: TObject); которую мы писали в первом посте. Мы переопределили две переменные Token, IdUser : string


var
  Form1: TForm1;

  Token, IdUser : string ;

implementation

{$R *.dfm}

Добавим на форму:

  • Tmemo
  • TButton
  • TLabel
  • И Statusbar для отображения результата выполнения запроса.

И напишем вот такой вот код для кнопки «отправить».


procedure TForm1.Button2Click(Sender: TObject);
  var
    Param : TStringList ;
    Url   : string   ;
    I     : Integer  ;
begin
  Param := TStringList.Create ;
  Param.Add('owner_id=' + IdUser);
  Param.Add('message=' + Memo1.Lines.Text);
  Url := Format('https://api.vk.com/method/wall.post?access_token=%s', [Token]);
  for I := 0 to Param.Count - 1 do
    Param.ValueFromIndex[I] := IdHTTP.Url.ParamsEncode(Param.ValueFromIndex[I]);
  try
    IdHTTP.Post(Url, Param);
    if IdHTTP.ResponseCode = 200 then
      StatusBar1.Panels[0].Text := 'Пост добавлен'
    else
      StatusBar1.Panels[0].Text := 'Ошибка'

  except on E : Exception do
  begin
    MessageBox(Application.Handle, PChar(Format('Ошибка: %s',[e.Message])), 'Error', MB_ICONHAND);
    exit ;
  end;
  end;
  FreeAndNil(Param);
end;

вот такой вот не хитрый код :)
много видел ошибочного кода в интернете, у всех примерно одна ошибка, вместо POST люди почему то используют GET. Но мы то с вами знаем что запросом POST мы передаем данные а вот GET запросом мы их получаем. Следовательно мы в Param : TStringList ; определяем список параметров и их значений для того что бы потом передать эти значения POST запросом на URL адрес который мы сформировали в переменной URL.
Ну вот наверное и все на сегодня. Статья как всегда получилось без лишних слов :)
исходники программы тут, Пароль, как обычно qwerty.

Вы можете сохранить данную статью себе вконтакте:


Поделить статьей в социальных медиа

Информация была полезной? Поделись ей
Поделить статьей в социальных медиа


comments powered by Disqus