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

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

• 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.

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

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