Авг
9

Проект 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.

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

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

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

Автор статьи - Andrey53

Метки: , , , ,

Автор: Admin Мои работы, Сеть и интернет Подписаться на RSS ленту



К записи “Проект VK API в Delphi. Модуль VK_API” оставлено комментариев: 5.

  1. FeanaR:
    15.10.2010 в 10:12 дп

    Я так понимаю, что логин и пароль от аккаунта передаются на сервер в нешифрованном виде?

    Ответить
  2. FeanaR:
    15.10.2010 в 10:29 дп

    При ошибке в строке «Result:=AnsiLowerCase(AsHex(HashValue(values)));»
    меняем её на «Result:=LowerCase(HashStringAsHex(values));»

    Ответить
  3. YYYezi:
    20.05.2011 в 11:46 дп

    desktop приложение не создать теперь…ЕСли просто нажать создать приложение!НУжно переходить именно по ссылке http://vkontakte.ru/editapp?act=create&site=1

    исправьте в статье

    Ответить
  4. dru:
    11.09.2013 в 6:41 дп

    неработает

    Ответить

Оставить комментарий на dru

Нажмите, чтобы отменить ответ.

Вы можете использовать следующие теги:

CAPTCHA изображение
*