» Autoplay Media Studio

<a href="http://solidfiles.com/d/ewn1"><img src="http://solidfiles.com/info_imgs/ewn1.jpg" alt="amsppp 4.1.zip" /></a>
Вот нашел новую версию AMS PluginPowerPack by Kindly v4.1

lorents
немного не понял что точно так!?если проект запущен то остается только дождаться имя окна!если запускаеться с bat... что ты в этом файле пишешь?

solo5911 чет какая-то абракадабра... У меня, правда, и так стоит 4.1...

lerik2703

Цитата:

немного не понял что точно так!?если проект запущен то остается только дождаться имя окна!если запускаеться с bat... что ты в этом файле пишешь?

хочу сделать следующее, запускаешь проект, нажимаешь на кнопку и видишь всю работу батника, через окно проекта
мой батник

Код: chcp 1251
for /f "delims=" %%i in ('dir /b /s /a-d Images\*.png') do (
    optipng.exe -o7 "%%~fi"
    pngout.exe "%%~fi"
    deflopt.exe "%%~fi"
)
for /f "delims=" %%i in ('dir /b /s /a-d Images\*.jpg Images\*.jpeg') do (
    jpegtran -optimize -perfect "%%~fi" "%%~fi"
    jhead -purejpg "%%~fi"
)

saavaage

Цитата:

Не радует только одно - плохо пока понимаю, что вставляю. Вернее сказать, что скорее вообще не понимаю...

Для этого открывают справку и разбираются с каждым действием...

Цитата:

Я сейчас рою в сторону listboxEx, это верный путь?

Если тебя устраивает, то почему-бы и нет.

Цитата:

посмотрите, пожалуйста мое решение...

В принципе правильно. Код немного поправил:
Код: local LogoI = _SourceFolder.."\\AutoPlay\\Images\\LOGO111.png";
-- Get the selected items
tSelected = ListBox.GetSelected("Docs");
if tSelected then -- получаем путь к файлу
pData = ListBox.GetItemData("Docs", tSelected[1]);
tPath = String.SplitPath(pData); -- таблица компонентов пути (Drive, Folder, Filename, Extension)
InfoT = tPath.Drive..tPath.Folder..tPath.Filename..".txt";
InfoI = tPath.Drive..tPath.Folder..tPath.Filename..".jpg";
-- проверяем, есть ли файлы с такими путями
putT = File.DoesExist(InfoT);
putI = File.DoesExist(InfoI);
if putT then
result = TextFile.ReadToString(InfoT);
Paragraph.SetText("Output", result);
else
Paragraph.SetText("Output", "");
end
if putI then
Image.Load("Image2", InfoI);
else
Image.Load("Image2", LogoI);
end
end

Здравствуйте!
Я новичок данного форума и новичок в использовании AMS.
Скажите пожалуйста, если кто знает:
1. Возможно ли в слайд-шоу (в автоматическом режиме) повесить кнопку, которая бы ставила на паузу просмотр?
2. Как сделать ручной режим слайд-шоу? Ну, грубо говоря стрелочками.
3. Как в слайд-шоу "повесить" аннотацию (подпись) к картинке. Я понимаю, что надо картинку и текст обьеденить, но как это сделать в автоматическом режиме слайд-шоу?

Заранее спасибо тем, кто хоть как-то поможет мне советом )))

tavria2
спасибо большое. Насчет справки - это я понимаю, но иногда (как в последнем случае) не знаешь даже куда залезть...
Я, наверно, уже Вас заколебал немного?... просто пока не слишком хорошо ориентируюсь. Спасибо хоть Djon1970 хелп по скриптам на русском подкинул, а то совсем плохо с английской справкаой. Слава богу, хоть многое интуитивно понятно, да и мир не без добрых людей...

lorents

это с плагином LuaCom?я что-то не нашел как создать окно MS-Dos!?

как тебе вот этот пример(пишу как есть из готового проекта) по крайней мере окно захватывает!


Код: local nPatch = "C:\\Images Optimization Suite\\Images Optimization Suite.bat"
local nForder = "C:\\Images Optimization Suite"
local nName = "cmd"
local n =0
hand=filerun(nPatch,nForder,nName,n)


function filerun(nPatch,nForder,nName,n)
File.Run(nPatch, "", nForder, SW_SHOWNORMAL, false)
nEmbedded=false;
while (nEmbedded==false) do
window_name =nName;
windows = Window.EnumerateTitles();
    for handle, title in windows do
    result = String.Find(title, window_name, 1, false);
    if (result ~= -1) then
     nEmbedded=true;
         result = DLL.CallFunction(_SystemFolder .. "\\User32.dll", "SetParent", handle..","..Application.GetWndHandle(), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
         app_size = Window.GetSize(handle);
         Window.SetSize(handle, app_size.Width-(n), app_size.Height)
            Window.SetPos(handle,1,10)
            WinApi.SetCaptionButtons(handle, "Minimize", false)
            WinApi.SetWindowText(handle, "Images Optimization Suite")
            Page.Redraw()
            Window.Show(handle)
            return handle
     end
    end
end

end

saavaage
Примеры-проекты
Еще надо? У меня есть еще подборка из 460 проектов, собранных на просторах интернета.

lerik2703

Цитата:

как тебе вот этот пример(пишу как есть из готового проекта) по крайней мере окно захватывает!

сделал, у меня проект зависает при запуске батника
теперь я понимаю почему tavria2 сказал, что лучше этого не делать

Цитата:

в файле Images Optimization Suite.ba добавить вверху title=cmd кстати а что кодовая страница не 866?

экзешки не понимают кириллицу

Цитата:

это с плагином LuaCom?я что-то не нашел как создать окно MS-Dos!?

чем мне понравился этот проект, что он не разу не завис, а нельзя его к cmd прикрутить?

Djon1970, конечно. Если есть возможность - заливайте, пожалуйста.

lerik2703
так и есть, у меня 7-ая версия... Ну вот я сделал слайд-шоу.... ну так кроме изменения интервала ничего поменять и не могу. Поэтому все сплошником и идет... Неужели все это скриптовать нужно? Дык я не умею((((

Помогите, пожалуйста, решить следующие проблемы с плагином MediaPlayer:
есть видео и мне надо, чтобы я мог указывать например, чтобы видео воспроизводилось с 5-ой минуты, возможно ли это сделать?

lorents


Цитата:

сделал, у меня проект зависает при запуске батника
теперь я понимаю почему tavria2 сказал, что лучше этого не делать

у меня нормально окно принимаеться (правда я на к конце останавливаю выполнение)!единственное что сценарий батника не работает даже если запускаю напрямую(не видет файлы картинок)!ты точно такой пример использовал как я привел?

Herbit

Slideshow Maker ну на сколько я помню то этот пример удолетворяет двум первым требованием!

Цитата:

Неужели все это скриптовать нужно?

естественно набор быстрых действий ограничен!

tavria2

небольшая модификация вашего скрипта из расчета, что listbox выводится на отдельную страницу и при возвращении на главную и обратно происходит добавление старых записей по новой в listbox.
Решил так:

-- проверка наличя таблицы и ее очистка от предыдущих значений
if tFiles then
n = Table.Count(tFiles);
for x = 1, n do
Table.Remove(tFiles, x);
end
end
-- функция заполнения таблицы на основании критерия строки 11
function CB(FoundPath)
local sExt = String.SplitPath(FoundPath).Extension;
if (sExt == ".doc") or (sExt == ".pdf") or (sExt == ".mht") or (sExt == ".chm") then
if not tFiles then
tFiles = {};
end
Table.Insert(tFiles, Table.Count(tFiles) + 1, FoundPath);
end
return true
end
-- отчистка listbox от предыдущих значений
ListBox.DeleteItem("Docs", LB_ALLITEMS);
-- заполнение таблицы для listbox на основании данных каталога DOCS и функции CB
File.Find("DOCS", "*", false, false, nil, CB);
-- заполнение listbox значениями таблицы
if (tFiles) then
for i,sFilePath in tFiles do
        tFileParts = String.SplitPath(sFilePath); -- this breaks everypart of the filepath
        sFileName = tFileParts.Filename; -- this one is the Filename only
        sFileExtension = tFileParts.Extension; -- this one is File Extension only
        sFullFileName = sFileName..sFileExtension;
        ListBox.AddItem("Docs", sFullFileName, sFilePath); -- add to the ListBox
        end
end

Прошу посмотреть, не корявое ли решение...

lerik2703

Цитата:

у меня нормально окно принимаеться (правда я на к конце останавливаю выполнение)!единственное что сценарий батника не работает даже если запускаю напрямую(не видет файлы картинок)!ты точно такой пример использовал как я привел?

сделал так как ты сказал, висит проект и все
если не трудно скинь свой проект, может я чего не сделал, хотя вряд ли
а ты кидал картинки в папку Images? С png все в порядке, но вот jpg бывают случаи увеличения размера картинки, уже выяснил почему, предпринимаю меры для их устраниения

saavaage

Цитата:

Прошу посмотреть, не корявое ли решение...

Пойдет, только для очистки таблицы tFiles - не нужен весь этот "огород" с циклом, достаточно указать: tFiles = nil;.

---

lorents

Цитата:

есть видео и мне надо, чтобы я мог указывать например, чтобы видео воспроизводилось с 5-ой минуты, возможно ли это сделать?

Для установки позиции обычно используется Seek, но для MediaPlayer он реализован немного странно, работает только после запуска воспроизведения и то необходимо перед Seek делать довольно большой Sleep. Создается впечатление, что загрузка видео в объект происходит не с помощью действия MediaPlayer.Load, а в действии MediaPlayer.Play.

Можно поступить так:
Код: -- запуск видео
nStart = 300; -- позиция 5 мин.
MediaPlayer.Load("Plugin1", "film1.mpg");
MediaPlayer.Play("Plugin1");

Цитата:

lerik2703

Ок.. а как активировать этот Slideshow Maker?

З.Ы. Аааа... разобрался...)))) а с подписями никак, да?

lorents

тогда лучше ты скинь свой проект т.к. я тупо работаю с файлом Images Optimization Suite.bat и картинки соответстено в папке с этим файлом!

Herbit

Путь по умолчанию для строки выполнить"C:\Program Files\AutoPlay Media Studio 7.0\Templates\Slideshow Maker.apt"
и какие подписи?

tavria2

Цитата:

Можно поступить так:

Я ни как не мог понять как работает MediaPlayer.Seek, спасибо тебе, как всегда выручаешь

lerik2703

Цитата:

тогда лучше ты скинь свой проект т.к. я тупо работаю с файлом Images Optimization Suite.bat и картинки соответстено в папке с этим файлом!

http://webfile.ru/4316609

Правильно, наверное так http://solidfiles.com/d/ewn1

lerik2703
Ну... я делаю слайд-шоу живописи и графики.... поэтому рядом с каждой работой хотелось бы видеть её название и технику исполнения. С кнопками прокрутки разобрался... Интервал выставил больше и повесил кнопочки))) Не пауза, конечно, но всё-равно гораздо лучше нежели нонстопное исполнение страницы. Спасибо)

Ещё вопрос назрел... AMS на DVD болванку запишет проект? Просто внизу проги шкала только для CD. Или она дальше сдвинется, когда привысится лимит?

saavaage
460 проектов в одном флаконе
Завтра еще чтонить подкину.

lorents

по сути ты мне прислал то что я тебе и написал единственно что ты не подключил плагин Win.Api но это мелочь(как я уже писал что это из готового проекта не стал ничего убирать)! у меня опять же работает!у тебя из проводника Windows файл Images Optimization Suite.bat запускаеться и нормально работает(т.е. действие for находит картинки у меня пишет что файлы не найдены )поэтому я изменил файл на


Код: @echo off
cls
title= cmd
color f0

optipng.exe -o7 "Images.png"
pngout.exe "Images.png"
deflopt.exe "Images.png"

jpegtran.exe -optimize "Images.jpeg" "Images.jpeg"
jhead.exe -purejpg "Images.jpeg"


pause

Djon1970 Вельми дзякуй! (как говорят у нас на Беларуси...)


Добавлено:
tavria2/ спасибо за подсказку. Таки значит и правильно терзали меня сомнения...
Кстати, воспользовался вашим "велосипедом" ( ) насчет подсказок. Все хорошо, но есть один вопрос:
можно ли сделать прикрепление мульти-подсказки к конкретному объекту ( или на худой конец, листу) и как расположить ее не внизу объекта, а над ним?

lerik2703
а как название "проявить" на экране?

tavria2
еще один вопрос на счет плагина MediaPlayer
как сделать, чтобы например при воспроизведении 5-ой минуты происходило какое-то действие?

saavaage

Цитата:

можно ли сделать прикрепление мульти-подсказки к конкретному объекту ( или на худой конец, листу) и как расположить ее не внизу объекта, а над ним?

Нет, это нужно устанавливать хук на подсказку, а это возможно только из dll.

---

lorents

Цитата:

как сделать, чтобы например при воспроизведении 5-ой минуты происходило какое-то действие?

В таймере проверяй позицию и выполняй нужное действие.

lerik2703
Все это очень странно, а какая у тебя ос?
У меня Windows XP SP3