Проект VK API в Delphi. Модуль VK_API

3 минуты на чтение

Как и обещал выложить модуль, который получает такие переменные ВК, как

  • sid
  • mid
  • secret

Мы это уже делали с Вами, в этой статье, получали данные сессии, но мы получали обычным кодом, сейчас мы можем получить эти данные всего одной функцией. Да я буду дальше данный модуль поддерживать и добавлять все новые и новые функции, который перерастет может и в очень достойный модуль. Давайте по порядку, в данной модуле пока что 3 функции

  • function Pars(s1,s2,s3:String;count:Integer):String;

где s1 — строка, которую необходимо парсить, s2 — начало подстроки от которой надо начинать парсить, s3 — конец подстроки, до которой необходимо парсить, count — дополнительный параметр, который добавляет количество символов к парсингу, если пропарсилось плохо. Если его использовать ненадо, то его значение равно — 0. В итоге функция возвратит пропарсенную строку.

  • function GET_VKAPI_SESSION(email,pass,app_id:WideString):TStrings;

где email — логин от вашего аккаунта в ВК, pass — пароль от вашего аккаунта в ВК, app_id - id приложения, которое необходимо авторизировать в вашем аккаунте. В итоге функция возвратит 3 значения, 1 — mid, 2 — sid, 3 — secret, которые будут хранится соответсвенно в Strings[0], Strings[1], Strings[2].

  • function CLOSE_VK_API:boolean;

Данную функцию необходимо вызвать, для закрытия работы в ВК API. То есть она другими словами удаляет все созданные переменные и возвращает True если все сделалось нормально.

Чтобы получить mid с помощью данной функции, Вам на событие OnClick достаточно написать

ShowMessage(GET_VKAPI_SESSION('ваш логин','ваш пароль','1918788').Strings[0]);
   CLOSE_VK_API;

Соответственно мы получаем mid, если необходимо получить sid, то будет выглядеть так

ShowMessage(GET_VKAPI_SESSION('ваш логин','ваш пароль','1918788').Strings[1]);
   CLOSE_VK_API;

Если необходимо получить secret, то выглядеть будет примерно так

ShowMessage(GET_VKAPI_SESSION('ваш логин','ваш пароль','1918788').Strings[3]);
   CLOSE_VK_API;

Ах и да, не забываем подключить в Uses модуль VK_API.

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

Как видите получаем и закрываем, все очень просто, дальше рассмотрим как это все дело можно организовать в потоке.

Модуль качаем тут

Facebook Vk Ok LinkedIn Telegram

Похожие записи:

Вчера я показал как можно получить информацию о пользователе из его профиля из сети ВК, теперь я эту функцию добавил в модуль VK_API. Это следующая функция - function GET_VKAPI_PROFILES(app_id,sid,mid,secret,uids,format ,fields:string):WideString; Следующие фу...
Здравствуйте, вот на днях решил обновить модуль VK_API, на этот раз добавил функцию, которая получает список id ваших друзей, разделенные запятыми, Вам останется только лишь разобрать данный результат и получить список id. Функция для получения идентификаторов...
Здравствуйте, давненько я не писал про проект VK API в Delphi, на этот раз хочу продолжить серию статей про данный проект, тем более, что еще достаточно много не рассмотрено функций по работе с VK API. В последних статьях про VK API в Delphi мы рассмотрели фун...