Проект VK API в Delphi. Добавляем комментарий к видеозаписи

VK API предоставляет мощные возможности для автоматизации работы с социальной сетью ВКонтакте. В этой статье мы рассмотрим, как с помощью Delphi добавить комментарий к видеозаписи, используя VK API.

Подготовка к работе

Перед тем как начать, вам потребуется:

1. Зарегистрировать приложение в VK Developers.
2. Получить access_token с правами video, wall.
3. Настроить среду разработки Delphi.

Получение access_token

Чтобы получить токен доступа, выполните следующие шаги:

1. Откройте OAuth-авторизацию и получите ключ с необходимыми правами.
2. Сохраните access_token, так как он потребуется для API-запросов.

Отправка комментария к видео

Метод video.createComment позволяет добавлять комментарии к видеозаписям. Запрос выполняется по следующему URL:

1
2
3
4
5
6

https://api.vk.com/method/video.createComment
?owner_id={OWNER_ID}
&video_id={VIDEO_ID}
&message={MESSAGE}
&access_token={ACCESS_TOKEN}
&v=5.131

Где:

• {OWNER_ID} — ID владельца видео;
• {VIDEO_ID} — ID видеозаписи;
• {MESSAGE} — текст комментария;
• {ACCESS_TOKEN} — токен доступа;
• v=5.131 — версия API.

Реализация в Delphi

Используем TIdHTTP из библиотеки Indy для отправки запроса:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

uses
  IdHTTP, System.SysUtils;


function AddVideoComment(OwnerID, VideoID: string; MessageText: string; Token: string): string;
var
  HTTP: TIdHTTP;
  URL, Response: string;
begin
  HTTP := TIdHTTP.Create;
  try
    URL := Format(
      'https://api.vk.com/method/video.createComment?' +
      'owner_id=%s&video_id=%s&message=%s&access_token=%s&v=5.131',
      [OwnerID, VideoID, MessageText, Token]);
    Response := HTTP.Get(URL);
    Result := Response;
  finally
    HTTP.Free;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(AddVideoComment('-123456', '7890123', 'Отличное видео!', 'YOUR_ACCESS_TOKEN'));
end;

Заключение

Теперь ваш проект на Delphi может автоматически добавлять комментарии к видеозаписям во ВКонтакте. Используйте полученные знания для интеграции VK API в свои приложения и автоматизации взаимодействия с соцсетью!