Да, теоретически. По крайней мере ID элементов, в котором обновлена ссылка, не будут меняться.

Класс! Спасибо вам большое.

Извините, если правильно понял, то сейчас в подкасте TTV-VIP playlist реализовано именно то о чём я спрашивал в этом сообщение? И, сейчас можно будет сварганить плейлист в котором ссылки будут "вечно живыми"?

Да, теоретически. По крайней мере ID элементов, в котором обновлена ссылка, не будут меняться.

WendyH
Какие то вы нам фокусы показываете.
Проверил как и раньше : ломаю ссылки на один и тот же канал в избранном и в папке - при обновлении подкаста так же как и раньше, в папке ссылка восстанавливается а в избранном нет, только раньше канал в избранном переставал работать, а сейчас показывает.

Извините, если правильно понял, то сейчас в подкасте TTV-VIP playlist реализовано именно то о чём я спрашивал в этом сообщение? И, сейчас можно будет сварганить плейлист в котором ссылки будут "вечно живыми"?

WendyH
Ну и чудеса творятся.
Оказывается ничего не работает чего мы тут напридумывали, т.е. при закидывании избранных каналов в корень подкаста и при изменении ссылок на сервере в плейлисте, при обновлении подкаста ссылки на каналах обновляются только в папках, а в корне избранные каналы не меняются.
Даже странно как я и другие люди им пользовались, когда избранные каналы перестают работать, а в папках показывают.
Уже около 1000 человек скачали и все молчат и всем нравится.
Жесть какая.

Да-да. Теперь и вы знаете это чувство.
Отчасти, так и появился этот форум. Потому как я тоже зависал с непонимающим выражением лица, когда узнавал, что одна из заявленных фич  или вообще весь подкаст  не работает как надо, а он уже пол года как выложен и около тыс скачиваний.
Или когда я подкаст Youtube выложил с сохранённым внутри ключом доступа именно к своему акку и скачавшие люди могли смотреть мои фото с googlephotos и проч. И только более чем через месяц и сотен скачиваний добрый человек мне написал письмо, что там такая фингя возможна была. Я тоже задавал вопросы - почему люди об этом молчат. И говорил "Жесть какая". И даже успел обидеться на Евгения и оф. форум, потому как считал, что из-за его политики до меня сообщения не доходят.
Однако, такое бывает. В общем, я брат той сестры, которая знает, что тут не всё так однозначно...

Короче, прикрепляю изменённый подкаст. Где все ссылки будут обрабатываться, и в корне, и во вложенных папках, даже в папках в папках и их подпапках.

  if (sGrp!='') 
    Item = FolderItem.FindItemByProperty(mpiTitle, sGrp).FindItemByProperty(mpiTitle, sName);
  else
    Item = FolderItem.FindItemByProperty(mpiTitle, sName);

Могут крыть в себе угрозу. Item может быть не только nil, но и null. Просто я привык и толком ни разу не видел, чтобы значения приобретали значение null. А тут оказывается вон оно что.

Короче, чтобы исправить положение, достаточно строку:

  if (Item == nil) Item = HmsCreateMediaItem(sLink, FolderItem.ItemID, sGrp);

заменить на:

  if ((Item == nil) || (Item == null)) Item = HmsCreateMediaItem(sLink, FolderItem.ItemID, sGrp);

Непонятно, что именно вам не нравится. Скачал TTV Autoplaylist test 4.hdf, загрузил, работает. Не ругается.

А у меня даже папки не создаёт, а скрипт ругается. Возможно из-за того что я его сохранял закинув в корень подкаста избранные каналы из разделов и теперь HMS чего то не нравится.
Как нам это дело исправить ?

Видимо, нечаянно удалили часть кода главной процедуры.

Честно сказать я этот блок удалил специально, поскольку почему то решил что он тоже в 2 вариантах получается как и создание ссылки на канал, а вот почему я так решил - мне самому интересно.
Ну кажись всё получилось, будем тестить.
Благодарю за науку !

// ----------------------------------------------------------------------------
{
  // Помечаем все созданные ранее ссылки для удаления
  for(int i=0; i<FolderItem.ChildCount; i++) {
    for(int n=0; n<FolderItem.ChildItems[i].ChildCount; n++) {
      FolderItem.ChildItems[i].ChildItems[n].Properties[4001] = '1';
    }
  }
  LoadPlaylist();
  // Удаляем помеченные для удаления ссылки начиная с текущей папки
  DeleteOldLinks(FolderItem); 
 
  // Если в параметрах указан файл m3u8 - то запускаем функцию его создания
  if (HmsRegExMatch('--m3u8="([^"]+)"', mpPodcastParameters, mpFilePath)) CreateM3U8_playlist(FolderItem, mpFilePath);

}

А у вас сразу начинается команда

  LoadPlaylist();

Видимо, нечаянно удалили часть кода главной процедуры.

на функции CreateLink постоянно высвечивается что не хватает (;)
Вроде всё сделал по инструкции

Редактор скриптов не понимает, как так началось объявление функции

void CreateLink(string sLink, string sName, string sGrp) {

когда как перед этим код явно не завершен.
Проблема в том, что до функции CreateLink.
У вас там во всю функция LoadPlaylist не завершена (не закрыта), да и ещё несколько блоков.
Да и вообще, функция CreateLink вставлена посреди кода функции LoadPlaylist. А она должна быть после.

P.S. Я специально не делаю код скрипта за вас. Нужно чтобы вы сами с ним разобрались. Иначе мои объяснения будут напрасны.
Посмотрел внимательно, там у вас ещё и функция DeleteOldLinks вставлена также посреди функции CreateLink и LoadPlaylist.
И ещё не удалена старая функция CreateLink выше. Такая функция должна быть только одна. Я выше говорил про переделку этой функции, т.е. замену одного кода на другой, более большой.

В общем,

///////////////////////////////////////////////////////////////////////////////
// ---- Создание ссылки на канал ----------------------------------------------
void CreateLink(string sLink, string sName, string sGrp) {
  THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, FolderItem.ItemID, sGrp);
  Item[mpiTitle    ] = Trim(sName);
  Item[mpiThumbnail] = 'http://wonky.lostcut.net/tvim/'+ru2Lat(sName)+'.png';
  gnTotal++;
}

// ----------------------------------------------------------------------------
void LoadPlaylist() {
  string sData, sLink, sName, sGrp, sFile, sImg, sVal, sReplaceWhat='', sReplaceWith='';
  THmsScriptMediaItem Item;
  
  sFile = mpFilePath; if (Trim(mpComment)!='') sFile = mpComment;  
  HmsRegExMatch('--playlist="(.*?)"'   , mpPodcastParameters, sFile);
  HmsRegExMatch('--replaceWhat="(.*?)"', mpPodcastParameters, sReplaceWhat);
  HmsRegExMatch('--replaceWith="(.*?)"', mpPodcastParameters, sReplaceWith);
  
  if (HmsRegExMatch('^http', sFile, ''))
    sData = HmsDownloadUrl(sFile, '', true);
  else
    sData = HmsStringFromFile(sFile);
  
  sData = HmsUtf8Decode(sData);

  if (sReplaceWhat!='') sData = ReplaceStr(sData, sReplaceWhat, sReplaceWith);
  
  TRegExpr RE = TRegExpr.Create('#EXTINF:-?\\d?,?(.*?)[\\r\\n]([^\\r\\n]+)[\\r\\n$]', PCRE_SINGLELINE);
  try {
    if (RE.Search(sData)) do {
      sName = RE.Match(1);
      sLink = RE.Match(2);
      
      sGrp = '';
      if (HmsRegExMatch('.*\\((.*?)\\)', sName, sGrp)) sName = ReplaceStr(sName, '('+sGrp+')', '');
      
      CreateLink(sLink, sName, sGrp);
      
      if (HmsRegExMatch('\\b(HD)\\b', sName, sGrp)) {
        CreateLink(sLink, sName, sGrp);
      }

    } while (RE.SearchAgain());

  } finally { RE.Free(); }  
  HmsLogMessage(1, 'Всего каналов: '+IntToStr(gnTotal));
}

///////////////////////////////////////////////////////////////////////////////
// ---- Создание ссылки на канал с проверкой, не создана ли уже с таким именем
void CreateLink(string sLink, string sName, string sGrp) {
  THmsScriptMediaItem Item, Folder = FolderItem; // Folder - текущая папка
  
  sName = Trim(sName);

  // Если указана группа - находим сначала её и делаем текущей папкой
  if (sGrp!='') Folder = Folder.FindItemByProperty(mpiTitle, sGrp);
  
   // Пытаемся найти элемент по наименованию в папке 
  if (sGrp!='') 
    Item = FolderItem.FindItemByProperty(mpiTitle, sGrp).FindItemByProperty(mpiTitle, sName);
  else
    Item = FolderItem.FindItemByProperty(mpiTitle, sName);
  
  // Если не найден - создаём
  if (Item == nil) Item = HmsCreateMediaItem(sLink, FolderItem.ItemID, sGrp);
  // Обновляем всю информацию
  Item[mpiFilePath      ] = sLink;
  Item[mpiTitle         ] = sName;
  Item[mpiThumbnail     ] = 'http://wonky.lostcut.net/tvim/'+ru2Lat(sName)+'.png';
  Item[mpiTimeLength    ] = '11:40:00.000'; // длинная длительность 
  Item[mpiInternetItem  ] = '1';
  Item[mpiDVDAspectRatio] = '16:9';
  Item[4001             ] = ''; // Снимаем пометку удаления
  gnTotal++;
}

///////////////////////////////////////////////////////////////////////////////
// ---- Рекурсивное удаление старых помеченных на удаление ссылок -------------
void DeleteOldLinks(THmsScriptMediaItem CurrentFolder) {
  int q; THmsScriptMediaItem Item;

  // Проверяем пометку для удаления у всех вложенных элементов (начиная с последней)
  for(q=CurrentFolder.ChildCount-1; q>=0; q--) {
    Item = CurrentFolder.ChildItems[q];
    if (Item.IsFolder) 
      DeleteOldLinks(Item); // Если это папка - удаляем ссылки в ней
    else if(Item[4001]=='1') 
      Item.Delete();        // Иначе, если эта ссылка помечена на удаление - конец ей
  }
}

Заметье, вот так в C++Script открывается блок - {
А вот так закрывается - }

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

Блин, я думаю, что такое? Мелькает иногда окошко. Пока не увидел в логах ссобщения об обновлении TTV Autoplaylist. Каждую минуту.
Оказывается, у вашего подкаста включена "Обновление списка медиа-ресурсов" и эта функция загружается вместе с подкастом в программу.

Кто успел загрузить - знайте, в свойствах подкаста нужно отключить.

Да вроде отключено у меня обновление подкаста по расписанию, по крайней мере на том что экспериментирую сейчас.
Никак не пойму что за ошибка синтаксиса постоянно в строчке         ///////////////////////////////////////////////////////////////////////////////
// ---- Создание ссылки на канал с проверкой, не создана ли уже с таким именем
void CreateLink(string sLink, string sName, string sGrp) {
  THmsScriptMediaItem Item, Folder = FolderItem; // Folder - текущая папка
 
  sName = Trim(sName);
на функции CreateLink постоянно высвечивается что не хватает (;)
Вроде всё сделал по инструкции