» Autoplay Media Studio

mak21ss (22:21 24-11-2010)
Цитата:

ребят! как прописать  момент времени воспроизведения видео с помощью MPC плеера  кто сталкивался?

Код: strMPCPath = _ProgramFilesFolder.."\\K-Lite Codec Pack\\Media Player Classic\\mplayerc.exe";
strMoviePath = "D:\\фильмы\\Red.2010.XviD.DVDRip.avi";
strTimePos = "00:31:20";    -- HH:MM:SS
result = File.Run(strMPCPath, strMoviePath .. " /startpos "..strTimePos, "", SW_SHOWNORMAL, false)

Zloy_Gelud Спасибо!!!будем пробывать

Помогите чайнику!
Впроекте 3 комбокса и listbox. Впервом комбоксе несколько выпадающих записией. При выборе одной из них, во втором открывается список записей содержащихся вней. А при выборе записи во втором комбоксе, открывается список записей в третьем комбоксе. Кликнув на выбранной записи в третьем, открывается файл в listbox.

Здравствуйте ... у меня проблема ... создал WEB интерфейс с помощью AutoPlay 8 все работает замечательно ... но когда открываешь ссылки которые на сайте прописаны через _blank он подгружает интеренет експлорер ... как сделать так чтобы он загружад эти ссылки в том же броузере который я создал в AutoPlay ...

Проект сортировщика файлов для AMS 8.0
FileSorter.rar (2.7 МБ) скачать
Назначение сортировка файлов по папкам. Что может:

исходная папка C:\Downloads при наличи ее в системе выбирается при старте
создавать папки согласно имени исходного файла
копировать/перемещать файлы раскладывая все по созданным индивидуальным папкам (файл+описание в одной папке);
распаковывать архивы (опционально);
работает с запароленными и многотомными архивами (перебор паролей по редактируемому списку);
переименовать логи формата *.log созданные качалками файлов в файлы описания info.txt;
очитска папок от мусора который был в исходных архивах (маски настраиваються)
очистить файл описания от различного мусора (используется внешняя утилита TextPipe, фильты можно настраивать и менять);
переименовать папки взяв информацию из файла описания info.txt (внешняя утилита Renamer (в комплекте), передача параметров через ком. строку);

Используется два архиватора на выбор FreeArc (идет в комплекте) или WinRar (должен быть установлен в системе). Путь к WinRar и TextPipe, при наличии их в системе, определяется автоматически. При отсутсвии TextPipe недоступны следующие возможности:

очиститка файла описания от различного мусора;
переименование папки согласно информацию из файла описания info.txt

У FreeArc имеется глюк с шифрованными rar-архивами старых версий ниже 3.0, он не может их распаковать.
TextPipe требуется версии не ниже 8.4.9.1 (можно младше, но потребуется переделка фильтра очистки), можно взять здесь

Просьба для всех желающих - протестировать. Предложения и замечания просьба в ПМ.
Будьте осторожны со своими файлами тестируйте на копии исходной папки. Вроде как все работает, но мало ли. Предупреждение актуально для включеных опций Перемещать файлы и удалять распакованные архивы.

Robby
Ошибка в вызове функции FolderSize папка Downloads сушествует но она пустая!

lerik2703
да есть такое дело, надо поправить

Robby
В строке 15 объекта SelIn_Button1 поменяй код на
Код: if String.Replace(String.ToNumber(nInsize), " MB", "", false)+0 > nDriveFreeSpace then

Кое-что подправил в проекте сортировщика файлов для AMS 8.0
Новая версия скачать
- исправлена ошибка возникающая при выборе пустой папки
- изменен запуск TextPipe - теперь запускается в фоновом режиме
- подправлены фильтры для переименования в Renamer
- косметические улучшения

пробовал вчера на папке с более 4 000 файлов (12 Гбайт), результатом доволен (жаль не замерял время, примерно минут 20-30), из ручной работы было нужно только просмотреть новые имена для папок. Вручную привести в порядок такое количество файлов просто нереально
Доп. информация: Renamer использует для переименоавния папок первую строку из файла info.txt с дополнительной обработкой (удаление "плохих" символов, обрезку до определенной длины и др.)

Добавлено:
lerik2703

Код: String.Replace(sInsize, " MB", "", false)+0

Robby
Я не с проста это написал!

Всё, решил свою проблему. А какой параметр в скриптовом языке отвечает за то чтобы файл не повторялся при проигрывании.
Т.Е у меня флеш файл проигрывается плеером нормально, но проигрывание само не останавливается а продолжается опять сначала.

ArtomU -- Loop в настройках флешки.

---

broono -- Неправда.

lerik2703

Спасибо за помощь!
Вставил Ваши коды. Теперь при выборе записи(папки)- "Pop" в ComboBox1, открывается список записей (папок) в ComboBox2, которые находятся в "\\Autoplay\\Docs\\Pop... , при выборе записи(папки)- "Rok" в ComboBox1,открывается список записей (папок) в ComboBox2, которые находятся в "\\Autoplay\\Docs\\Rok... и так далее.
Теперь нужно чтобы при выборе одной из записи(папки) в ComboBox2, в ListBox открывалось содержимое этой папки в формате pdf.- которые находятся например в "\\Autoplay\\Docs\\Pop\\korni\\
Зарание благадарю!

lerik2703

Цитата:

Я не с проста это написал!

При каких условиях это появляется? У меня такой ошибки не возникает.

Цитата:

У меня такой ошибки не возникает.

Видимо потому что у тебя английская версия просто глюк русика!
при том твой пример работает а вот со строкой String.Replace уже ошибка!


Цитата:

ListBox открывалось содержимое этой папки в формате pdf.-

Код: sDate = ComboBox.GetItemData("ComboBox2", e_Selection);
if sDate == "korni" then
sFilePatch=_SourceFolder.."\\Autoplay\\Docs\\Pop\\Корни"
elseif sDate == "ddt" then
sFilePatch=_SourceFolder.."\\Autoplay\\Docs\\Rok\\Ддт"
else
sFilePatch=""
end
if sFilePatch ~= "" then
file = File.Find(sFilePatch, "*.pdf", false, false, nil);
if file ~= nil then
ListBox.DeleteItem("ListBox1", -1);
for j,strFilePatch in pairs (file) do
title = strFilePatch;
title = String.Right(title, (String.Length(title) - String.ReverseFind(title, "\\", true)));
ListBox.AddItem("ListBox1", title , strFilePatch);
end
else
Dialog.Message("", "Не найдено ни одного Файла ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end

А как сделать так, чтобы если рядом с автораном, лежит, например, файл example.ams, то кнопка buttonX была активной, а если его рядом нету, то неактивной?

Цитата:

А как сделать так, чтобы если рядом с автораном, лежит, например, файл example.ams, то кнопка buttonX была активной, а если его рядом нету, то неактивной?

Код:
if File.DoesExist(_SourceFolder.."\\example.ams") then
Button.SetEnabled("ButtonX", true);
else
Button.SetEnabled("ButtonX", false);
end

Robby
Благодарю.

а для ленивых так

Код: Button.SetEnabled("ButtonX", File.DoesExist(_SourceFolder.."\\example.ams"));

lerik2703
И вам спасибо

---

Можно, кстати, добавть в шапку, в

Цитата:

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

lerik2703
Большое Вам спасибо!

Привет всем!
У меня есть следующий вопрос вопрос: хочу создать дерево, при двойном клике по объекту которого, выполнялось какое-либо действие. Не получается у меня написать скрипт, а скрипт от GOOSE-а почему-то не хочет работать Можете выложить пример рабочего скрипта?
Заранее спасибо!

torkea

Цитата:

скрипт от GOOSE-а почему-то не хочет работать

Работаем с объектом дерева от GOOSE этот скрипт? он работает видимо ты что-то не так делаешь!

отписал тебе в личку

Напишите, пожайлуста, какой скрипт нужно написать, чтобы можно было переключать музыку (background) на предыдущую и следующую (на две отдельные кнопки).
Заранее спасибо.

KRAUSER0993
Если муз. загружаешь через "On Preload", то в кнопке "Следующая" в "On Click" пишешь:

Код: if Start == 3 then
Start=0
End=0
end
Start=Start+1
End=End+1
tTable_string = Table.Concat(tTable, "", Start, End)
Audio.Load(CHANNEL_BACKGROUND, tTable_string, true, false);

XITMAH

Цитата:

Более подробно я описал тут

код в событие on Check объекта Tree

Код: if e_NodeIndex == "1" then
nGetChild = Tree.GetChildCount("Tree1", "1")
for n=1,nGetChild do
Tree.SetNode("Tree1", "1."..n, {Checked=e_Checked});
end
Image.SetVisible("Image1", e_Checked);
Button.SetVisible("Button1", e_Checked)
end
if e_NodeIndex == "1.1" then
Image.SetVisible("Image1", e_Checked);
elseif e_NodeIndex == "1.2" then
Button.SetVisible("Button1", e_Checked);
end

lerik2703
Спасибо!)