Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 16.12.2015, 22:17   #1
PaHaNjkee
Delphi 10 Seattle
Форумчанин
 
Аватар для PaHaNjkee
 
Регистрация: 01.11.2010
Сообщений: 90
Репутация: 16

skype: pahanjkee
По умолчанию Как преобразовать ссылку VK чтобы извлечь type, owner_id, item_id?

Например, есть такие ссылки:
https://vk.com/photo123456_364525240
http://vk.com/wall12345678_572
https://vk.com/user?z=photo13256123_390365372%2Falbum22077894_0

Как можно получить эти значения для VK Api? Т.е. преобразовать ссылку с десктопной версии в версию VK Api.

Код:

procedure GetTaskType(url: string; out task_type, owner_id, item_id,
  reply: string);
begin
  if Pos('photo', url) <> 0 then
  begin
    task_type := 'photo';
    owner_id := Pars('photo', url, '_');
  end else if Pos('wall', url) <> 0 then
  begin
    task_type := 'post';
    owner_id := Pars('wall', url, '_');
  end else if Pos('video', url) <> 0 then
  begin
    task_type := 'video';
    owner_id := Pars('video', url, '_');
  end;
  item_id := Pars('_', url, '\');
  if item_id = '' then
    item_id := Pars('_', url, '?');
  if item_id = '' then
    item_id := Copy(url, Pos('_', url)+1, Length(url));
  if Pos('&amp;', item_id) <> 0 then
    Delete(item_id, Pos('&amp;', item_id), 5);
  reply := '';
  if Pos('reply', url) <> 0 then
  begin
    task_type := 'comment';
    reply := Copy(url, Pos('reply=', url)+6, Length(url));
  end;

Понимаю, что так не разумно.. Может быть есть какие нибудь предложения?
PaHaNjkee вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Преобразовать ссылку на картинку в html код bahakifo PHP 9 05.11.2015 08:44
Извлечь ссылку из html-кода Aleksandr_59 Работа с сетью в Delphi 3 14.04.2012 14:43
Преобразовать ссылку через PHP fezilk25 PHP 16 21.08.2010 19:02
Как правильно указать ссылку формат ячейки чтобы функция работала? Brucebelg Microsoft Office Excel 7 21.05.2010 10:19
Преобразовать форму в ссылку Pekc HTML и CSS 1 06.12.2007 21:10


05:45.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru