Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.12.2015, 21:17   #1
PaHaNjkee
Delphi 10 Seattle
Пользователь
 
Аватар для PaHaNjkee
 
Регистрация: 01.11.2010
Сообщений: 90
По умолчанию Как преобразовать ссылку 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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Преобразовать ссылку на картинку в html код bahakifo PHP 9 05.11.2015 07: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 20:10