» Autoplay Media Studio

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

saavaage

Цитата:

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

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

---

lorents

Цитата:

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

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

Ребята, а можно сделать так, чтобы программа высчитывала размер пикселей ширину и высоту каждого символа в графическом изображение к примеру в bmp.
Вот есть bmp файл, а на нем есть фон черного цвета и буквы допустим белого цвета, вот программа должна высчитывать размер буквы белого цвета, такое реально замутить?
И еще чтобы высчитывала координаты этого символа относительно файла изображения в процентах!

tavria2

Цитата:

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

точно, через MediaPlayer.GetLength, чета сам не додумался, спасибо

Цитата:

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

"Свойства страницы>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 - индекс воспроизводимой песни

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


Цитата:

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

Попробуй перенести этот код из OnShow


Цитата:

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

в Project -> Actions -> On Startup

tavria2
Подскажите, plis, ответы.
Примеры только для примера или их как-то
можно использовать в своих проектах и если это разрешено, то как?

вот как мне сделать такое же окно в AutoPlay тока чтоб и на XP норм было. Чтоб по бокам прозрачность была а в центре нет

solo5911
А ты сам понял че спроcил?

Цитата:

Попробуй перенести этот код из OnShow

if e_State == "Finish" and a < result then
a = a +1
Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\"..playlist[a], true, false);
elseif e_State == "Finish" and a >= result then
a = 1;
Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\"..playlist[a], true, false);
end
[/q]

Блин все работает, спс биг, как я тебе благодарен. еще раз Спасибо...


Добавлено:
мб кто подскажет, можно реализовать вот это:

У меня есть папка с картинками. Я хочу, чтобы был слайд шоу на определенной странице, картинки крутились по 5 сек и если мне понравилась картинка которая проходит в слайд шоу, я жму на нее и она мне на весь экран открывается и я могу ее на рабочий стол поставить.

Добавлено:
и еще. Мне нада вставить на страницу видеоролик, и чтоб как бы он в плеере был и обложка была, какойнибдуь скрин из ролика. Ну вот скрин ниже, чтоб вместо черных окон была другая картинка или еще какнить сделать красиво.



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

saavaage
На этом пока все, но не безвозмездно, как изучишь программу с тебя - мне подсказки.

подскажите пожалуйста как можно изменить название файла autorun.cdd?

Здравствуйте, подскажите, как сделать так, как в этом примере http://ru-board.com/new/article.php?sid=168 только с изображениями? Чет не получается...

Подскажите как получить модель и производителя компа в параграф. Я тут подсмотрел в одной програмке, но она на жабе. А я в жабе нуль...

Выглядит так

Цитата:

<tr>
                    <td><script>l(system_comp)</script></td>
           <td><a href="#"><script>document.write(wpi('Manufacturer','Win32_ComputerSystem') + " " + wpi('Model','Win32_ComputerSystem'));</script></a></td>
    </tr>

Zhakazaz

Цитата:

Здравствуйте, подскажите, как сделать так, как в этом примере http://ru-board.com/new/article.php?sid=168 только с изображениями? Чет не получается...

что именно не получается?

Lexua
Ты VBS-скрипт кажется не полностью привел... По-крайне мере в таком виде он у меня он не работает.
Также классWin32_ComputerSystem не содержит вроде как значений Manufacturer и Model.
_______________________________
Немного пищи для размышлений..

Код: Script.SetLanguage(Script_VBScript);

--*** Наш vbs-скрипт
strScript=[[Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
result=""
For Each objOS In objService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
Exit For
Next
result=result & objOS.Caption & vbCrLf    'короткое описание версии операционной системы'
result=result & objOS.SerialNumber    'серийный номер' ]];    --> конец vbs-скрипта

Script.AddCode(strScript, Script_InternalCode);
strInfo = Script.GetResultAsString("result");    -- инфа из vbs-скрипта

function String.ToTable(str, delimiter)    -- функция перевода строки в таблицу
local result = {};
for line in string.gfind(str, "[^"..delimiter.."]+") do
table.insert(result, line);
end    
return (table.getn(result) > 0) and result or nil
end


if (strInfo ~= "") then
tblInfo = String.ToTable(strInfo, "\r\n");
if tblInfo then
Dialog.Message("", "Операционная система: "..tblInfo[1].."\r\nСерийный номер: "..tblInfo[2], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end

Нужно сделать чтобы кроме описания ещё выводился скриншот, т.е. при нажатии в listbox*е на нужную программу выводился в "Paragraph2" (или где-то ещё) скриншот этой программы.

Djon1970, заметано, только до первых внятных результатов пока еще далеко. Занимаюсь, главным образом, компиляцией и пытаюсь понять принципы... Ну и параллельно делаю свой авторан. В чем Ваши материалы оказывают неоценимую помощь. Спасибо, дружище!

tavria2, вопрос:
есть кнопка, к ней привязаны такие команды (при нажатии):

Код:
--- очистка Output от предыдущего значения и внесение нового текста
Paragraph.SetText("Output", "");
Paragraph.SetText("Output", "Маленькие, но необходимые для снятия стресса, игрули. Вобщем, Релакс, и еще раз, Релакс!!!");
-- задание рабочей папки
fPath = String.SplitPath("SOFTWARE\\games");
g_strDefaultFolder = fPath.Folder..fPath.Filename;

-- определение функций по обработке файлов и каталогов папки...
function RefillFilesList()
    -- очистка listbox Soft
    ListBox.DeleteItem("Soft",LB_ALLITEMS);
    
    StatusDlg.Show();
    tblFiles = File.Find(g_strDefaultFolder,"*.exe",false,true);--отбирать только ехе-файлы
    StatusDlg.Hide();
    -- добавление для каталогов в листбоксе значения UP и его заполнение (listbox)
    ListBox.AddItem("Soft","[..]","UP");
    if(tblFiles)then
        for i, filename in tblFiles do
            tblFileParts = String.SplitPath(filename);
            tblAttributes = File.GetAttributes(filename);
            if(tblAttributes)then
                if(tblAttributes.Directory)then
                    ListBox.AddItem("Soft","["..tblFileParts.Filename.."]",filename);
                else
                    ListBox.AddItem("Soft",tblFileParts.Filename..tblFileParts.Extension,filename);
                end
            end
        end
    end
end    
RefillFilesList();

Цитата:

Ты VBS-скрипт кажется не полностью привел... По-крайне мере в таком виде он у меня он не работает.

Ну не знаю, но программа написана на Java. Мини версию можно скачать здесь http://drp.su/download/DRPSu9Pro_mini.zip

Однако за инфу спасибо, попробую переварить

saavaage
Во первых, если в пост вставляется код, то его нужно брать в соответствующие тэги [no]
Код: ...

Lexua
Исправлено

Код: Script.SetLanguage(Script_VBScript);

--*** Наш vbs-скрипт
strScript=[[Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
result=""

For Each objOS In objService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
Exit For
Next

result=result & objOS.Manufacturer & vbCrLf
result=result & objOS.Model ]]; --> конец vbs-скрипта

Script.AddCode(strScript, Script_InternalCode);
strInfo = Script.GetResultAsString("result"); -- инфа из vbs-скрипта

function String.ToTable(str, delimiter) -- функция перевода строки в таблицу
local result = {};
for line in string.gfind(str, "[^"..delimiter.."]+") do
table.insert(result, line);
end
return (table.getn(result) > 0) and result or nil
end


if (strInfo ~= "") then
tblInfo = String.ToTable(strInfo, "\r\n");
if tblInfo then
Dialog.Message("", "Manufacturer: "..tblInfo[1].."\r\nModel: "..tblInfo[2], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end

Подскажите пожалуйста, как сделать, чтобы autorun.ехе скомпилировав только картинки, запускал приложение из рядом лежащей папки?

Меня вопрос Neronk'a тоже интересует

tavria2
хорошо выложу, только он еще не доделанный.. Эта проблема пока обкатывается на 2-ой странице и кнопка "Games" (остальные пока просто как кнопки). Выкладывать можно на обменниках или есть какой-то внутри-форумный способ?
Вот на letit кинул:
http://letitbit.net/download/4517.d455e5d78f8c6c4a69ba5a716/SAVAGE_Soft.apz.html

Neronkkk

Цитата:

вот как мне сделать такое же окно в AutoPlay тока чтоб и на XP норм было. Чтоб по бокам прозрачность была а в центре нет

Стандартными средствами AMS - этого не сделать. Возможно только с использованием соответствующего плагина, которого я пока не встречал.

Как сделать чтобы кроме описания ещё выводился скриншот, т.е. при нажатии в listbox*е на нужную программу выводился в "Paragraph2" (или где-то ещё) скриншот этой программы. http://ru-board.com/new/article.php?sid=168 как в этом примере только ещё чтобы скриншот с описанием был. Заранее спасибо

tavria2 Я со скриптами VBS раньше не работал.
1. При попытке вставки кода в пустой проект ошибка

Цитата:

Line 12: unexpected symbol near `&'

2. Что я должен добавить в проект, чтобы это заработало. Код, который привел Zloy_Gelud вставляется без ошибок, но при запуске

Цитата:

On Show, Line 1: attempt to index global `Script' (a nil value)

Я так полагаю, что нет какого-то плагина, отвечающего за Script

Zhakazaz, создай image и грузи в него рисунок

Lexua

Цитата:

При попытке вставки кода в пустой проект ошибка

Убери закоментированные строчки - они нарушают синтаксис VBScript, я оставил их для сравнения...
Скрипт исправил - удалил эти строчки, чтобы никто больше не наступал на эти грабли.

Цитата:

Я так полагаю, что нет какого-то плагина, отвечающего за Script

Да, нужен плагин AMSWScript - он есть в KindlyPluginPowerPack v3.2

saavaage
Можно по подробней?

Цитата:

objOS.Manufacturer

Цитата:

objOS.Model

Когда я у себя такое тестировал - скрипт выдал:

Цитата:

System Manufacturer
System Name

Мне показалось это бредом, вот и не стал на форум постить. А оказалось правдой..