WendyH

///////////////////////////////////////////////////////////////////////////////
//               Г Л О Б А Л Ь Н Ы Е   П Е Р Е М Е Н Н Ы Е                   //
THmsScriptMediaItem goRoot = FolderItem;    // Корневая папка настроек
string    gsRootPath   = '-SettingsFolder', // Значение поля путь (ссылка) корневой папки настроек
          gsKey        = '',                // Ключ (определяется ниже)
          gsValue      = '';                // Значение ключа (устанавливается ниже)
TDateTime gTimeStart   = Now;    // Время запуска скрипта
TStrings  SETTINGS;              // Объект TStrings для хранения описания настроек
int
  gnTotalItems         = 0,      // Глобальный счетчик

WendyH

void GetLink_Moonwalk(string sLink) {
  string sHtml, sData,sLinks, sJsData, sPost, sVer, sQual, sVal, sServ, sVar, sUrlBase, sJSONParams;
  int i, n; float f; TRegExpr RE; bool bHdsDump, bQualLog;
  TJsonObject JSON, OPTIONS;
  
  string sUserAgent = 'Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/71.0.3578.98 Safari/537.36';
  string sHeaders = sLink+'\r\n'+
                    'User-Agent: '+sUserAgent+'\r\n';
  // Для Windows XP - отключаем сжатие страниц. Ибо автоматом ответы не распаковываются.
  if (StrToFloatDef(RegistryRead("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\CurrentVersion"), 0) < 6) {