Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Indigo Rose AutoPlay Media Studio (часть 5)

Модерирует : gyra, Maz

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191

Открыть новую тему     Написать ответ в эту тему

Cheery



.:МордератоР:.		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AutoPlay Media Studio




  AutoPlay Media Studio - мощная программа для создания меню автозагрузки CD/DVD. Эта программа создаст все необходимые файлы для автозапуска и его графическую оболочку, и даже сама встроит в нее использованные в проекте нестандартные шрифты. Пользователю останется лишь записать готовый проект на свой CD/DVD.
  AutoPlay Media Studio не требует от пользователя никаких особых знаний и очень прост в освоении, имеет дружественный и интуитивно понятный интерфейс. Приложение, которое будет создано AutoPlay Media Studio в конце работы, представлено в виде объектной модели. Эта модель состоит из группы отдельных страниц. На этих страницах можно размещать объекты, которые могут представлять собой графику, музыку, текст, видео, Flash, HTML и пр. Любому элементу можно назначить определенное действие. Например, при наведении на рисунок курсора мыши, может возникать текст с комментариями, при нажатии на кнопку "Play" начнет проигрываться фильм и т.д. Программа предоставляет сотни различных действий, которые можно связать с объектами. В AutoPlay Media Studio присутствует большое количество уже готовых шаблонов.
  AutoPlay Media Studio имеет широкие возможности и богатый набор инструментов для разработки мультимедийных проектов. Использовать программу можно не только для создания файлов автозапуска, но и, например, для разработки интерактивного обучающего софта или мультимедийной презентации.

Язык интерфейса: Английский
Страница загрузки: AutoPlay Media Studio Commerical Trial 8.6

Скриптовый язык LUA:
на Lua.Org (Official) - на Lua.Ru

Ресурсы, посвященные AMS (содержат коллекции примеров, дополнений, уроков):
  • icynorth.com
  • imagine-programming.com
  • mindquake.com.br

    Инструменты:
  • ScriptOMatic Tool - создает скрипт обращения ко всем свойствам выбранного WMI-класса

    Ответы на наиболее часто задаваемые вопросы

    Раскраска AMS-кода для публикации на форуме от UModeL: версия 1 и версия 2.
    • Всего записей: 52737 | Зарегистр. 04-04-2002 | Отправлено: 06:17 05-08-2012 | Исправлено: Komandor, 12:11 30-03-2024
    Robby

    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    sjdb45
    Можно одной строкой

    Код:
    Window.SetText(Application.GetWndHandle(), INIFile.GetValue(_SourceFolder .."\\config.ini", "windows", "title"));
    Всего записей: 879 | Зарегистр. 28-09-2003 | Отправлено: 23:55 14-10-2012
    chymax3m



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    Проверьте кому не лень.. просмотр DjVu-файлов в проекте.  
    http://yadi.sk/d/pGeKAOgz07YoS  
     Обертку для всех действий я не делал, только для некоторых. Все возможные события и методы перечислены в справке к DjVuCntl.dll (справка идет в комплекте).

    Попробовал, и это круто, единственное что не могу понять как реализовать переход на следующую(предидущую) старницу документа и зум.В справке, вроде, идет реч о том что можна включать не полную панель управления а отдельные кнопки,но как это прописать не пойму(((. Может подскажите?
    Всего записей: 126 | Зарегистр. 28-02-2012 | Отправлено: 13:48 17-10-2012
    Zloy_Gelud



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    chymax3m

    Цитата:
    не могу понять как реализовать переход на следующую(предидущую) старницу документа


    Код:
    -- отображаем страницу №3
    DjVu.Ctrl.Page = 3;


    Цитата:
    и зум


    Код:
    -- ЗУМ
    DjVu.Ctrl.Zoom = "150";                -- 150%
    --DjVu.Ctrl.Zoom = "one2one";        -- 1:1 or original size
    --DjVu.Ctrl.Zoom = "width";            -- fit width
    --DjVu.Ctrl.Zoom = "page";            -- fit page
    --DjVu.Ctrl.Zoom = "stretch";        -- stretch to fit – distorts image

     

    Цитата:
    В справке, вроде, идет реч о том что можна включать не полную панель управления а отдельные кнопки,но как это прописать не пойму(((.


    Код:
    -- верхний тулбар из кнопок doublepage,thumbnail,pagecombo
    -- другие кнопки перечислены в справке
    DjVu.Ctrl.Toolbar = "top+doublepage,thumbnail,pagecombo"

    Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 14:36 17-10-2012
    chymax3m



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    Код:-- отображаем страницу №3  
     DjVu.Ctrl.Page = 3;

    Спасибо, но я имел в виду переход на следующую страницу (текущая+1, неопределенная) не создавать же кнопки для каждой страницы отдельно.
    Всего записей: 126 | Зарегистр. 28-02-2012 | Отправлено: 22:48 17-10-2012
    Zloy_Gelud



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    chymax3m

    Цитата:
    но я имел в виду переход на следующую страницу (текущая+1, неопределенная) не создавать же кнопки для каждой страницы отдельно.  

    Ну так создай переменную, присвой ей первоначальное значение равное номеру страницы DJVU-документа открытого при запуске проекта. Ну а дальше уменьшай или увеличивай переменную на единицу и получишь следующую или предыдущую страницу соотвественно.
    Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 23:41 17-10-2012
    chymax3m



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    Ну так создай переменную, присвой ей первоначальное значение равное номеру страницы DJVU-документа открытого при запуске проекта. Ну а дальше уменьшай или увеличивай переменную на единицу и получишь следующую или предыдущую страницу соотвественно.

    Я бы рад, но как я уже говорил я не программист(((...идею я понял, но никак не найду как определить текущую страницу документа.
    Всего записей: 126 | Зарегистр. 28-02-2012 | Отправлено: 00:16 18-10-2012
    Zloy_Gelud



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    chymax3m
     
  • OnContCreate объекта:

    Код:
    -- глоб. перем. - номер текущей страницы
    DjVu.CurrentPage = -1;
     
    -- таблица регистрируемых событий
    DjVu.Events = {};
    function DjVu.Events:PageChange(newpage)
        DjVu.CurrentPage = newpage;
    end
     
    -- навигация по страницам
    DjVu_PAGE_NEXT     = 0;
    DjVu_PAGE_PREVIOUS = 1;
    function DjVu.Navigate (nNavigateType)
        local nPages = DjVu.Ctrl:GetDocPagesCount();
        if (nNavigateType == 0) and (DjVu.CurrentPage < nPages) then
            DjVu.Ctrl.Page = DjVu.CurrentPage + 1;
        elseif (nNavigateType == 1) and (DjVu.CurrentPage > 1) then
            DjVu.Ctrl.Page = DjVu.CurrentPage - 1;
        end
    end
     
    local bDjVu = DjVu.CreateCtrl("Plugin1");
    if bDjVu then
        ActiveX.JoinEvents("Plugin1", DjVu.Ctrl, DjVu.Events);
        DjVu.LoadFile("AutoPlay\\Docs\\realview.djvu");
        local nBut = Dialog.Message("", "Перейти на следующую страницу?", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
        if nBut == 6 then
            DjVu.Navigate(DjVu_PAGE_NEXT);
        end
    end
    • Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 00:48 18-10-2012
    chymax3m



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    chymax3m  
       
     OnContCreate объекта:

    Добавил к общему коду, но что прописовать для кнопок в раздел OnClick?

    Цитата:
    Код:-- верхний тулбар из кнопок doublepage,thumbnail,pagecombo  
    -- другие кнопки перечислены в справке  
     DjVu.Ctrl.Toolbar = "top+doublepage,thumbnail,pagecombo"

    Добавил firstlastpage (first and last page) и prevnextpage (previous and next page) и получилось включить в тулбаре стандартные кнопки переключения страниц. Но все ровно хотелось бы попробовать реализировать через кнопки в AMS.
     
     
    Всего записей: 126 | Зарегистр. 28-02-2012 | Отправлено: 23:02 18-10-2012 | Исправлено: chymax3m, 23:48 18-10-2012
    Zloy_Gelud



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    chymax3m -- думал сам из примера разберешься, но раз нет то..
     
  • Добавить в Глобальные функции:

    Код:
    -- глоб. перем. - номер текущей страницы
    DjVu.CurrentPage = -1;
     
    -- таблица регистрируемых событий
    DjVu.Events = {};
    function DjVu.Events:PageChange(newpage)
        DjVu.CurrentPage = newpage;
    end
     
    -- навигация по страницам
    DjVu_PAGE_NEXT     = 0;
    DjVu_PAGE_PREVIOUS = 1;
    function DjVu.Navigate (nNavigateType)
        local nPages = DjVu.Ctrl:GetDocPagesCount();
        if (nNavigateType == 0) and (DjVu.CurrentPage < nPages) then
            DjVu.Ctrl.Page = DjVu.CurrentPage + 1;
        elseif (nNavigateType == 1) and (DjVu.CurrentPage > 1) then
            DjVu.Ctrl.Page = DjVu.CurrentPage - 1;
        end
    end

     
  • Добавить после действия создания объекта (DjVu.CreateCtrl):

    Код:
    ActiveX.JoinEvents("Plugin1", DjVu.Ctrl, DjVu.Events);

     
  • On Click кнопки "Next Page":

    Код:
    DjVu.Navigate(DjVu_PAGE_NEXT);

     
  • On Click кнопки "Previous Page":

    Код:
    DjVu.Navigate(DjVu_PAGE_PREVIOUS);
    • Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 14:19 19-10-2012 | Исправлено: Zloy_Gelud, 14:21 19-10-2012
    chymax3m



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Zloy_Gelud извините за невнимательность, не заметил вкладки Global Functions и не туда добавлял код. Спасибо большое все работает!!!
    Всего записей: 126 | Зарегистр. 28-02-2012 | Отправлено: 16:13 19-10-2012
    dallas page



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Добрый день. Подскажите, возможно ли через AMS определять тип диска, Hard Drive или SSD? К сожалению в интернете не нашел ответа.
    Всего записей: 200 | Зарегистр. 28-03-2010 | Отправлено: 11:13 21-10-2012
    Zloy_Gelud



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    dallas page
     
    Попробуй:

    Код:
    Drive.IsSSD = function (sDriveLetter)
        assert(type(luacom) == 'table')
        sDriveLetter = String.Upper(String.Left(sDriveLetter, 1));
        nDriveNumber = -1;
        Ret = false;
        local objWMIService = luacom.GetObject("winmgmts:\\\\.\\root\\CIMV2");
        local objColItems = objWMIService:ExecQuery("SELECT * FROM Win32_LogicalDiskToPartition", "WQL", 48);
        if (objColItems) then
            local oEnum = luacom.GetEnumerator(objColItems);
            local objItem = oEnum:Next();
            while (objItem) do
                if sDriveLetter == string.match(objItem:Dependent(), 'Win32_LogicalDisk.DeviceID="(.):"') then
                    nDriveNumber = tonumber(string.match(objItem:Antecedent(), 'Disk #(.), Partition'));
                    break;
                end
                objItem = oEnum:Next();
            end
        end
        if (nDriveNumber ~= -1) then
            objColItems = objWMIService:ExecQuery('SELECT * FROM Win32_DiskDrive', "WQL", 48);
            if (objColItems) then
                oEnum = luacom.GetEnumerator(objColItems);
                objItem = oEnum:Next();
                while (objItem) do
                    if (objItem:DeviceID() == "\\\\.\\PHYSICALDRIVE"..nDriveNumber) then
                        Ret = (String.Find(objItem:PNPDeviceID(), "SSD") ~= -1) and true or false;
                    end
                    objItem = oEnum:Next();
                end
            end
        end
        return Ret;
    end
     
    local IsSSD = Drive.IsSSD('C:');
    Dialog.Message("",tostring(IsSSD));

    PS. Необходим плагин LuaCom.
    Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 21:07 21-10-2012 | Исправлено: Zloy_Gelud, 10:28 22-10-2012
    dallas page



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Zloy_Gelud работает, спасибо.
    Всего записей: 200 | Зарегистр. 28-03-2010 | Отправлено: 10:02 22-10-2012
    Zloy_Gelud



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    dallas page -- чуть исправил код выше (закрался небольшой косячок с названием переменной).
    Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 10:30 22-10-2012
    dallas page



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Zloy_Gelud спасибо
    Всего записей: 200 | Зарегистр. 28-03-2010 | Отправлено: 11:22 22-10-2012
    FaritMatygullin

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Доброго дня.
    Подскажите, пожалуйста, возможно ли сделать так, чтобы при установке программы (к примеру, антивирус Доктор Веб), не нужно было нажимать кнопку далее каждый раз? Т.е. чтобы программа в фоновом режиме сама это делала.
    Заранее спасибо.
     
    Часа три искал ответа в данной теме. Не нашел.
    Всего записей: 2 | Зарегистр. 22-10-2012 | Отправлено: 15:40 22-10-2012
    Robby

    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    FaritMatygullin
    можно и больше искать и ничего не найти потому, что это тема не об этом. То, что ты хочешь - это тихая установка приложения и, как правило, реализуется она за счет самого инсталлятора с использованием специальных ключей, либо с использованием других технологий. В общем тебе сюда:
    Таблица автоустановки
    Типы инсталляторов
    Приложения
    Ключи для приложений (основы)
    ...
    ну Google тебе в помощь
    А если ты хочешь сделать оболочку на основе AutoPlay Media Studio, то ключи тихой установки нужно просто прописать в команду запуска.
    Всего записей: 879 | Зарегистр. 28-09-2003 | Отправлено: 17:13 22-10-2012
    FaritMatygullin

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Robby спасибо огромное, буду изучать
     
    Добавлено:
    А кто может помочь создать образ в данной программе и прописать в нем автозапуск 40 программ(кол-во может стать немного больше или меньше). Т.е. программы должны устанавливаться фоном. Естественно не бесплатно. Телефон для связи 8 925 006 51 57 Фарит.  
    Всего записей: 2 | Зарегистр. 22-10-2012 | Отправлено: 17:33 22-10-2012
    dallas page



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Добрый день. Подскажите пожалуйста где я ошибся? Мне нужно, чтобы функция повторялась столько раз, сколько позиций в listbox. Но она выполняется только один раз.
     

    Код:
    k = 0
     
    function escapeme()
       unch = ListBox.GetCount("ListBox1");
     
       Progress.SetRange("Progress1", 0, unch);
       Progress.SetStep("Progress1", 1);
     
       k = k + 1
     
       name = ListBox.GetItemText("ListBox1", k);
       if (name ~= "") then
          ListBox.SelectItem("ListBox1", k);
          setup()
          ListBox.SetItemCheck("ListBox1", k, BST_CHECKED);
          Progress.StepIt("Progress1");
       end
     
       if k > unch then
          return false;
       else
          return true;
       end
     
    end
    Всего записей: 200 | Зарегистр. 28-03-2010 | Отправлено: 12:17 24-10-2012 | Исправлено: dallas page, 12:19 24-10-2012
    Robby

    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    dallas page
    возможно тебе следует вызывать ее рекурсивно

    Код:
    if k < unch then  
          escapeme();  
       end

    Это неплохо бы вынести за пределы функции

    Код:
    unch = ListBox.GetCount("ListBox1");

    Если кол-во позиций не меняется в процесе выполнения, зачем каждый раз получать их количество?
     
    Добавлено:
    начальные установки Progress тоже нужно вынести за пределы функции если она будет у тебя зацикленна. Иначе он каждый раз будет устанваливаться в первоначальное положение.
    Всего записей: 879 | Зарегистр. 28-09-2003 | Отправлено: 13:03 24-10-2012
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191

    Компьютерный форум Ru.Board » Компьютеры » Программы » Indigo Rose AutoPlay Media Studio (часть 5)


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru