Ru-Board.club
← Вернуться в раздел «Программы»

» Autoplay Media Studio

Автор: popovvb
Дата сообщения: 08.07.2009 22:19
Zloy_Gelud У тебя Аська работает или ты сменил имя?
Автор: saavaage
Дата сообщения: 03.11.2009 17:40
tavria2, спасибо за подсказку. Все работает! а то мои мозги уже начали подкипать...
Не радует только одно - плохо пока понимаю, что вставляю. Вернее сказать, что скорее вообще не понимаю...

Добавлено:
tavria2
есть еще один вопрос - можно ли как-нить сделать фон в listbox прозрачным (ну или на худой конец, более тюнингованным что ли)?
Я сейчас рою в сторону listboxEx, это верный путь?

Добавлено:
Djon1970, спасибо, скачал уже видео-уроки. Правда sql для меня пока рановато, но "запас карман не тянет"..


Добавлено:
tavria2
посмотрите, пожалуйста мое решение по работе с listbox + вывод инфо о файле в paragraph (Output) и image2. Все работает, но возможно коряво сделал. Главный напряг был - сделать так, чтобы если по какому-то документу нет текстового файла (с описанием) и картинки, то в Output и Image2 не оставалось предыдущей информации (или показывалась типовая картинка)

-- Get the selected items
tSelected = ListBox.GetSelected("Docs");
if tSelected then -- получаем путь к файлу
    pData = ListBox.GetItemData("Docs", tSelected[1]);
    -- получаем 4 последних значения этого пути
    eData = String.Right(pData, 4);
    -- заменяем 4 последних на расширение картинки и текста
    InfoT = String.Replace(pData, eData, ".txt", false);
    InfoI = String.Replace(pData, eData, ".jpg", false);
    -- проверяем, есть ли файлы с такими путями
    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", "AutoPlay\\Images\\LOGO111.png");
end
end
Автор: tavria2
Дата сообщения: 08.07.2009 22:37
Lexua
Сорри, это я заработался, я имел ввиду объекты AMS...

Цитата:
A через DLL.CallFunction можно получить цвет системного шрифта?...
Думаю это возможно, но основная проблема получить имя системного шрифта. В принципе есть вариант подцепить "MS Sans Serif", который почему-то отсутствует в диалоге выбора шрифтов... Если такой вариант устраивает, то можно будет поизвращатся.
Автор: popovvb
Дата сообщения: 08.07.2009 22:51
tavria2
Подскажи, пожалуйста:
1. есть текстовый файл
2. необходимо запустить поиск по первому символу в абзаце
3. если первый символ соответствует искомому перенести в один объект если нет - в другой
пример:
? Как тебя зовут
+Вася
-Петя
-Ира
? Как твоя фамилия
-Иванов
+Петров

ПС необходимо обработать весь текст
Автор: solo5911
Дата сообщения: 03.11.2009 20:04
<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
Автор: Lexua
Дата сообщения: 08.07.2009 22:54

Цитата:
Если такой вариант устраивает, то можно будет поизвращатся.
Конечно устраивает
Автор: saavaage
Дата сообщения: 03.11.2009 20:19
solo5911 чет какая-то абракадабра... У меня, правда, и так стоит 4.1...
Автор: Gans123
Дата сообщения: 09.07.2009 11:25
люди мне ктонибудь поможет плз
Автор: GOOSE
Дата сообщения: 10.07.2009 12:10
Gans123
Знаю я далеко не все
Теперь уже на форуме ребята значительно лучше меня разбираются Я ведь не программист.
А на твою просьбу вряд ли ответят, так как:
- лично мне непонятно, что ты хочешь
- вопрос сформулирован расплывчато
- примеры ты не смотрел, судя по всему
- я плеерами не занимался, но знаю, что минимум несколько штук имеются... что мешает их разобрать?
Автор: tavria2
Дата сообщения: 03.11.2009 21:11
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
Автор: Gans123
Дата сообщения: 10.07.2009 16:18

Цитата:
Gans123


Мне нада следующее:
1)У меня есть фоновая музыка. ТАм песен 20. Я сделал кнопку, пауза фоновой музыки. Но мне нада сделать кнопку при нажатие на которую играла следующая фоновая музыка. Какой скрипт прописать.

2) Мне нужно чтоб где нибудь внизу авторана. Когда заходишь на ту или иную страницу бегала бесконечно строка с определенной надписью. Чтоб бегущая строка сама запускалась и бегала бесконечно. У меня есть бегущая строка, н она работает только, если ее включить кнопкой, и она просто один раз пробежит и останется.

И все, больше ничего не нада, помоги плз. Спасибо.
Автор: saavaage
Дата сообщения: 03.11.2009 21:31
tavria2
спасибо большое. Насчет справки - это я понимаю, но иногда (как в последнем случае) не знаешь даже куда залезть...
Я, наверно, уже Вас заколебал немного?... просто пока не слишком хорошо ориентируюсь. Спасибо хоть Djon1970 хелп по скриптам на русском подкинул, а то совсем плохо с английской справкаой. Слава богу, хоть многое интуитивно понятно, да и мир не без добрых людей...
Автор: Djon1970
Дата сообщения: 04.11.2009 06:00
saavaage
Примеры-проекты
Еще надо? У меня есть еще подборка из 460 проектов, собранных на просторах интернета.
Автор: Lexua
Дата сообщения: 11.07.2009 12:35
Gans123 По бегущей строке в шапке смотрел? Пример бегущей строки (более красивый способ) от tavria2


Цитата:
У меня есть фоновая музыка. ТАм песен 20. Я сделал кнопку, пауза фоновой музыки. Но мне нада сделать кнопку при нажатие на которую играла следующая фоновая музыка. Какой скрипт прописать.


Создавай плейлист в виде текстового файла, читай его в таблицу и потом использу Audio.Load для загрузки следующей песни из списка.

в OnShow

Цитата:
playlist = TextFile.ReadToTable("AutoPlay\\Docs\\playlist.txt");
result = Table.Count(playlist);
a =1;
Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\"..playlist[a], true, false);


на кнопку смены композиции

Цитата:

if a < result then
a = a +1
Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\"..playlist[a], true, false);
else
a = 1;
Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\"..playlist[a], true, false);
end


Что-то типа так должно работать.
Автор: saavaage
Дата сообщения: 04.11.2009 08:31
Djon1970, конечно. Если есть возможность - заливайте, пожалуйста.
Автор: Yakim777
Дата сообщения: 11.07.2009 18:32

Цитата:
Gans123 По бегущей строке в шапке смотрел? Пример бегущей строки (более красивый способ) от tavria2

Перезалить надо бы
Автор: lorents
Дата сообщения: 04.11.2009 10:18
Помогите, пожалуйста, решить следующие проблемы с плагином MediaPlayer:
есть видео и мне надо, чтобы я мог указывать например, чтобы видео воспроизводилось с 5-ой минуты, возможно ли это сделать?
Автор: tavria2
Дата сообщения: 11.07.2009 20:40
popovvb
Извени, но сейчас я не смогу тебе помочь - нехватка времени. Как правильно заметил GOOSE, обращаясь к конкретному лицу, ты можешь остаться без ответа...
Yakim777

Цитата:
Перезалить надо бы
Этот пример - есть на сайте GOOSE, кажется называется RunString.apz.
Автор: saavaage
Дата сообщения: 04.11.2009 10:37
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

Прошу посмотреть, не корявое ли решение...
Автор: Yakim777
Дата сообщения: 12.07.2009 09:37
Пример бегущей строки (более красивый способ) от tavria2: http://www.gooseweb.ru/component/option,com_vfm/Itemid,4/do,view/file,rus_examples|tavria2|RunString4.apz/
Автор: tavria2
Дата сообщения: 04.11.2009 11:11
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");
Автор: NickOnToluca
Дата сообщения: 12.07.2009 22:26
В варезнике выкладывал ссылку на портативную версию.
К ней может понадобиться BUGFIX.
Автор: Gans123
Дата сообщения: 15.07.2009 18:35



2)Как можно сдлать текст в Label, чтоб он постояно мигал рзными цветами, хотябы тремя цветами.


Добавлено:

Цитата:
Lexua


спасибо тебе огромнейшее за подсказку насчет музыки, очень тебе благодрен, все получилось. Вот мнеб еще насчет мигания Label разными цветами. И еще немогу разобраться с бегающей строкой. Мне просто нада, чтоб Label текст бегал по кругу и все.
Еще раз спасибо.


Добавлено:
и еще хотел спросить, а вот нельзя, чтоб когда на кнопку наводишь показывалось, какая следующая песня пойдет.
Автор: lorents
Дата сообщения: 04.11.2009 14:47
tavria2

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

Я ни как не мог понять как работает MediaPlayer.Seek, спасибо тебе, как всегда выручаешь
Автор: Gans123
Дата сообщения: 16.07.2009 06:56
Возникли некоторые сложности с музыкой. 1) Когда кончается песня, следующая не играет. 2) Музыка начинает играть когда запускается авторан (т.е. на главной странице) потом когда я перехожу на другую страницу тоже все норм, а когда обратно на главную, то Плейлист начинает заного играть. Помогите плз.

Добавлено:
вот так я сделал плей лист
[more]1.Oceana_-_Cry_Cry.mp3
2.K-maro_-_Good_old_days.mp3
3.Basic_Element_-_Touch_You_Right_Now.mp3
4.Jay_Sean_-_Tonight.mp3
5.Akcent_-_On_And_On.mp3
6.Arash_feat._Helena_-_Pure_love1.mp3
7.sunrider_-_fable_(dave_darell_radio_edit).mp3
8.Lady_Gaga_-_Poker_Face.mp3
9.Pussycat_Dolls_-_Jai_Ho.mp3
10.Gregoire_-_Rue_Des_Etoiles.mp3
11.Enrique_Iglesias_and_Ciara_-_Takin_Back_My_Love.mp3
12.Denis_The_Menace_-_Show_Me_A_Reason.mp3
13.Dr_Kucho_-_Holy_Spirit(Old_School_Radio_Mix).mp3
14.Sasha_Dith_-_I_Love_Dance.mp3
15.Whizzkids_feat._Inusa_Dawuda_-_Rumours.mp3
16.Guru_Josh_Project_-_Infinity.mp3
17.Sam_Obernik_-_Stereo_Flo.mp3
18.flo_rida_-_right_round.mp3
19.Sunlounger_-_Lost.mp3
20.Akon_-_Beautiful.mp3
21.t.i._feat._justin_timberlake_-_dead_and_gone.mp3
22.inna_-_hot__(radio_edit).mp3
23.danny_-_tokyo.mp3
24.freemasons_feat._sophie_ellis-bextor_-_heartbreak_make_me_a_dancer.mp3
25.Beyonce_-_Halo.mp3
26.Vintazh_-_Eva.mp3
27.Madonna_-_Beat_Goes_On.mp3
28.Dino_MC_feat._Irakli_-_Sdelay_Shag.mp3
29.Antoine_Clamaran_-_Gold.mp3
30.The Rasmus - Living In A World Without You.mp3
31.Laurent_Wolf_-_Wash_My_World.mp3
32.Timati_feat._Mario_Winans_-_Forever.mp3
33.Alesha_Dixon_-_Breath_Slow.mp3
34.Mylene_Farmer_-_Appelle_mon_numero.mp3
35.Sergey_Lazarev_-_Stereo.mp3
36.hi-fi_-_nam_pora.mp3
37.Katy_Perry_-_Hot_n_Cold.mp3
38.Serebro_-_Skazhi_Ne_Molchi.mp3
39.venus_kaly_-_myself_(radio_edit).mp3
40.Ian_Carey_feat._Michelle_Shellers_-_Redlight.mp3
003 Basshunter - Now you`re gone.mp3
[/more]

Добавлено:
вот тут мб исправить для моего случай какнибудь

"Свойства страницы>OnAudio"
if e_State == "Finish" and ind < ListBox.GetCount("ListBox1") then
ind = ind + 1;
ListBox.SelectItem("ListBox1", ind);
Audio.Load(CHANNEL_USER1, ListBox.GetItemData("ListBox1", ind), true, false);
end
--ind - индекс воспроизводимой песни

Добавлено:
если очень сложно сделать, чтоб музыка не воспроизводилась заного при возвращение на главную страницу, то просто поомгите чтоб песня когда кончалась и начиналась следующая.
Автор: solo5911
Дата сообщения: 04.11.2009 15:00
Правильно, наверное так http://solidfiles.com/d/ewn1
Автор: Djon1970
Дата сообщения: 04.11.2009 17:11
saavaage
460 проектов в одном флаконе
Завтра еще чтонить подкину.
Автор: Lexua
Дата сообщения: 16.07.2009 10:45

Цитата:
Вот мнеб еще насчет мигания Label разными цветами.

Zloy_Gelud на предидущей странице выкладывал пример http://solidfiles.com/d/C063 Посмотри.


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

В чем показывалась? конкретнее.
Автор: saavaage
Дата сообщения: 04.11.2009 19:15
Djon1970 Вельми дзякуй! (как говорят у нас на Беларуси...)


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


Цитата:
В чем показывалась? конкретнее.

в сплывающей подсказке. Но это не так важно как это:

Возникли некоторые сложности с музыкой. 1) Когда кончается песня, следующая не играет. 2) Музыка начинает играть когда запускается авторан (т.е. на главной странице) потом когда я перехожу на другую страницу тоже все норм, а когда обратно на главную, то Плейлист начинает заного играть. Помогите плз.

если очень сложно сделать, чтоб музыка не воспроизводилась заного при возвращение на главную страницу, то просто поомгите чтоб песня когда кончалась и начиналась следующая.


мне очень нада это сделать.

Добавлено:

Цитата:
Zloy_Gelud на предидущей странице выкладывал пример http://solidfiles.com/d/C063 Посмотри.


спасибо, очень понравилось и получилось

Добавлено:

Цитата:
Lexua


мб нам по аське связаться? быстрее будет... или тебе тут лучше?

IcQ: 261265570

Страницы: 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132

Предыдущая тема: PHP RapidGet Pro V


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.