» Indigo Rose AutoPlay Media Studio

dallas page
Спасибо за ответ, но уже решил сделать по другому.
Извените что не ответил сразу, но, почему то, "Яндекс почта" стала кидать письма от "forum.ru-board.com" в спам, причем я их не могу от туда достать, то есть, я их достаю, а они, в туже секунду, перемещаются обратно в спам.

Помогите плз еще.
Нужен plug-in аудио-плеера для "Autoplay Media Studio", с изменяемым или готовым лаконичным дизайном, тот что присутствует по умолчанию (по крайней мере у меня) "MediaPlayer" уж очень убог и бел (от слова белый).

В идеале, мне вполне подходит встроенный Video плеер, внешний вид которого можно менять, но он, почему-то, не понимает аудио-форматы, пишет: "Не удалось воспроизвести запись", если бы это можно было исправить, было б СУПЕР.

P.S.: Я знаю что можно самому нарисовать кнопки любого вида, и сделать плеер самому, но это "крайний" вариант, если не получится найти другого решения.

Pus21
Есть один пример on tavria-2. Можешь взять мой модифицированный вариант. По сравнению с оригиналом там добавлена кнопка открытия файла и слайдер громкости.
https://yadi.sk/d/DjWYD2TnheSQY


Только сейчас заметил что на всём сайте эта тема единственная где обсуждают lua.

KerberX
Спасибо большое, но мне нужен совсем лаконичный дизайн.

Сделал изврат, за который, Вы, наверно плюнете мне в харю.

- Создал видео нужной мне длинны с изображением черного квадрата 1х1;
- Прикрутил к нему мою дорожку;
- Перерисовал кнопки стандартного видео-плеера;
- Сунул в него данное видео.

Внешне получилось то что хотел, но... ...сами понимаете, в одном конц вселенной находится слово "элегантно", а на другом конце вселенной моё творение.

Плеер AMS прям зациклен на видео, даже avi без видео-ряда не берёт, нельзя как-то расширить его функционал или может есть модификация?

Есть плагин MediaPlayer который позволяет вставить окно Windows Media Player в AMS. Ну и для примера tavria-2 тоже можно перерисовать и передвинуть кнопки и слайдеры и получить "лаконичный дизайн".

KerberXНу да, но это получается то, чего я не хотел:
"P.S.: Я знаю что можно самому нарисовать кнопки любого вида, и сделать плеер самому, но это "крайний" вариант, если не получится найти другого решения."

Рисовать каждую кнопу отдельно в 3х вариантах минимум, в стандартном плеере, все кнопки это 1 png файл, эххх, жить тяжко

В любом случае спасибо еще раз.

KerberX
Взял из плеера всё мне нужное, кнопы перерисовал, но нашёл в нём небольшую но неприятную недоработку:

Если аудио файл стоит не на паузе, а на "Стоп", и я передвигаю слайдер прогресса аудио на любое время и нажимаю "Play", аудиофайл, все равно, играет с самого начала.

Pus21
Замени код на кнопке "Btn_Play" в "On Click" на этот.

Код: Audio.Play(CHANNEL_USER1);                -- воспроизведение
Button.SetVisible("Btn_Play", false);    -- скрыть кнопку "Play"
--
if SliderEx.GetSliderPos("Slider_Audio") ~= 0 then
    nHandPos = SliderEx.GetSliderPos("Slider_Audio");
    Page.StartTimer(nHandPos);                        -- запуск таймера для отслеживания текущей аудио-позиции
else
    Page.StartTimer(1);
end

О, спасибо, так гораздо... ...логичнее. Правда, когда перемещаешь слайдер и жмёшь на "Btn_Play", в начале проигрывается 0,5 секунды начала аудио, а уже потом, играет с того места, где стоит ползунок, но это я так, для справки, очередной раз спасибо за помощь.

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

LTJBukem, это переменная _TempFolder. В AMS очень хорошая справка, рекомендую её читать. Раздел "Variables/Global Variables".

KerberX, от я олень слепой. Спасибо.

Здравствуйте.

Подскажите как исправить следующее?

При использовании любых плагинов включая стандартных на скачивание файлов с http или ftp. Программа начинает тормозить...

Почему так? И как это исправить?

Мне наконец удалось скомпилировать и даже запустить LuaLanes. Если нужна dll, то вот: https://yadi.sk/d/hG-Xh0CrhqtKJ

Вот такой код работает как и должен. То есть выдаёт в сообщении "2".

Код: lanes = require("lanes").configure();
function abc(n, c)
    local c = c or 0;
    return 2*n+c;
end
--
local f = lanes.gen(abc);
local a = f(1);
Dialog.Message(type(a), a[1]);

function Download(sURL, DownloadCallback)
HTTP.Download(sURL, "Test.zip", MODE_BINARY, 20, 80, nil, nil, DownloadCallback);
end

Не так должно быть?

Что делает lanes.gen?
Это поможет в моей проблеме?

Я ещё не был дома чтобы проверить ваш скрипт... Поэтому спрашиваю

Есть такой файл https://yadi.sk/i/u9ZDiesOhrD2B

Нужно перестроить его, и на выходе получить ответ.

Пример:

Для папок:
Часть файла:
-----
/system:
drwxr-xr-x 0 0 2015-07-06 15:36 OdexerTool
drwxr-xr-x 0 0 2015-07-06 15:36 addon.d
-----

Получить: (Что-то вроде)
0, 0, 0755, 0755 - /system/OdexerTool
0, 0, 0755, 0755 - /system/addon.d

Для фалов:
Часть файла:
-----
/system/bin:
-rwxr-xr-x 0 2000 295216 2008-08-01 15:00 aapt
-rwxr-xr-x 0 2000 109024 2008-08-01 15:00 adb
-----

Получить: (Что-то вроде)
0, 2000, 0755, - /system/bin/aapt
0, 2000, 0755, - /system/bin/adb

Пожалуйста дайте ссылку на русский FAQ по AMS (интересует команда for), я так полагаю здесь нужно использовать именно ее.

Я сделал перебор в CMD. все почти работает =), хочу осуществить в AMS т.к. не нашел русскую справку прошу помощи.

Часть кода CMD:
----
echo Processing permissions...
if exist "%permissions_answer_file%" del "%permissions_answer_file%"
echo --- Permissions for folders: --->>"%permissions_answer_file%"
title=%title_m% [1/2]
for /f "tokens=1,2,3,6" %%a in ('type %permissions_system%') do (
if "%%c" == "" echo %%a>>"%permissions_answer_file%"
if "%%a" == "drwx------" echo %%b, %%c, 0755, 0700 /%%d>>"%permissions_answer_file%"
if "%%a" == "drwxr-x---" echo %%b, %%c, 0755, 0750 /%%d>>"%permissions_answer_file%"
if "%%a" == "drwxr-x--x" echo %%b, %%c, 0755, 0751 /%%d>>"%permissions_answer_file%"
if "%%a" == "drwxr-xr-x" echo %%b, %%c, 0755, 0755 /%%d>>"%permissions_answer_file%"
if "%%a" == "drwxrwx---" echo %%b, %%c, 0755, 0770 /%%d>>"%permissions_answer_file%"
if "%%a" == "drwxrwx--x" echo %%b, %%c, 0755, 0771 /%%d>>"%permissions_answer_file%"
if "%%a" == "drwxrwxr-x" echo %%b, %%c, 0755, 0775 /%%d>>"%permissions_answer_file%"
if "%%a" == "drwxrwxrwx" echo %%b, %%c, 0755, 0777 /%%d>>"%permissions_answer_file%"
if "%%a" == "drwxrwx--t" echo %%b, %%c, 1771, 0755 /%%d>>"%permissions_answer_file%"
)
echo --- Permissions for files: --->>"%permissions_answer_file%"
title=%title_m% [2/2]
for /f "tokens=1,2,3,7" %%a in ('type %permissions_system%') do (
if "%%c" == "" echo %%a>>"%permissions_answer_file%"
if "%%a" == "-r--------" echo %%b, %%c, 0400, /%%d>>"%permissions_answer_file%"
if "%%a" == "-r--r-----" echo %%b, %%c, 0440, /%%d>>"%permissions_answer_file%"
if "%%a" == "-r--r--r--" echo %%b, %%c, 0444, /%%d>>"%permissions_answer_file%"
if "%%a" == "-r-xr-x---" echo %%b, %%c, 0550, /%%d>>"%permissions_answer_file%"
if "%%a" == "-r-xr-xr-x" echo %%b, %%c, 0555, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rw-r-----" echo %%b, %%c, 0640, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rw-r--r--" echo %%b, %%c, 0644, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rw-rw----" echo %%b, %%c, 0660, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rw-rw-r--" echo %%b, %%c, 0664, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rw-rw-rw-" echo %%b, %%c, 0666, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rwx------" echo %%b, %%c, 0700, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rwxr-x---" echo %%b, %%c, 0750, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rwxr-xr-x" echo %%b, %%c, 0755, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rwxrwxr--" echo %%b, %%c, 0774, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rwxrwxr-x" echo %%b, %%c, 0775, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rwxrwxrwx" echo %%b, %%c, 0777, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rwxr-s---" echo %%b, %%c, 2750, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rwxr-sr-x" echo %%b, %%c, 2755, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rwsr-s---" echo %%b, %%c, 6750, /%%d>>"%permissions_answer_file%"
if "%%a" == "-rwsr-sr-x" echo %%b, %%c, 6755, /%%d>>"%permissions_answer_file%"
)
----

За ранее спасибо!

Русская справка по АМС
справка по ButtonMaker
справка по LuaCOM

А вот еще нашел хорошую книжку про Lua 5.2, правда еще не доработал до конца.

collagen спасибо! буду пробовать)

Добавлено:

Функция для определения символов в строке до пробела. Может такое уже есть (вероятней всего), но т.к. сам не нашел, пришлось писать самому 8)

в глобал: (Global)

Код: function StringCharts(sString, nStart)
stvalue = nStart
stvalue = stvalue - 1;
svalue = "0";
detect = "0";
detect_chars = "0";
repeat
svalue = svalue + 1;
stvalue = stvalue + 1;
get_char = String.Mid(sString, stvalue, 1);
if ""..get_char.."" == " " then
detect = "1";
svalue = svalue - 1;
detect_chars = svalue
end
until detect == "1";
return detect_chars
end

Floumen, теоретически LuaLanes может решить эту проблему, но я не могу заставить его видеть функции AMS, так что сейчас он относительно бесполезен. Функция lanes.gen() как раз из этой библиотеки. Инструкция в архиве в папке "Source/Docs/Index.html".

Octanium
Я написал функцию для перестройки списка. Было бы неплохо предупредить что "l" в "lrwxrwxrwx" также обозначает папку, как и "d".

[more=Функции]

Код: function RebuildPermissions(tData)
    if tData ~= nil then
        local function ToBitmap(sString)
            local tBitmap = {Directory = false, SymbolicLink = false};
            local sFirstChar = string.sub(sString, 1, 1);
            if sFirstChar == "d" then
                tBitmap.Directory = true;
            elseif sFirstChar == "l" then
                tBitmap.SymbolicLink = true;
            end
            --
            for sChar in string.gmatch(string.sub(sString, 2, -1), ".") do
                if sChar == "-" then
                    tBitmap[#tBitmap+1] = 0;
                else
                    tBitmap[#tBitmap+1] = 1;
                end
            end
            --
            return tBitmap, string.format("%04o", tonumber(table.concat(tBitmap, "", 1, #tBitmap), 2));
        end
        --
        local sCurrentFolder = "";
        local tOutput = {};
        --
        for x, sLine in ipairs(tData) do
            if string.sub(sLine, 1, 1) == "/" then
                sCurrentFolder = string.match(sLine, "(.-):")
            else
                local sAccessMode = string.match(sLine, "([dlrwx-]*)");
                local tData, sOctNum = ToBitmap(sAccessMode);
                if tData.Directory == true or tData.SymbolicLink == true then
                    local n1, _, n2, _, sDate, _, sTime, _, sFileName = string.match(string.sub(sLine, 11, -1), "([%d]+)([%s]*)([%d]+)([%s]*)([0-9-]*)([%s]*)([0-9:]*)([%s]*)(.*)");
                    --
                    tOutput[#tOutput+1] = string.format("%d, %d, %s, %s - %s/%s", n1, n2, sOctNum, sOctNum, sCurrentFolder, sFileName);
                else
                    local n1, _, n2, _, nSzie, _, sDate, _, sTime, _, sFileName = string.match(string.sub(sLine, 11, -1), "([%d]+)([%s]*)([%d]+)([%s]*)([%d]+)([%s]*)([0-9-]*)([%s]*)([0-9:]*)([%s]*)(.*)");
                    --
                    tOutput[#tOutput+1] = string.format("%d, %d, %s - %s/%s", n1, n2, sOctNum, sCurrentFolder, sFileName);
                end
            end
        end
        return tOutput;
    end
end
--
function TextFile.ToTable(sString)
    if sString ~= "" and type(sString) == "string" then
        local tString = {};
        tString[1] = {};
        local nIndex = 1;
        --
        for sChar in string.gmatch(sString, ".") do
            if sChar == "\r" or sChar == "\n" then
                nIndex = nIndex+1;
                tString[nIndex] = {};
            else
                tString[nIndex][#tString[nIndex]+1] = sChar;
            end
        end
        --
        local tData = {};
        for x, y in pairs(tString) do
            local sText = table.concat(y, "", 1, #y);
            if sText ~= "" then
                tData[#tData+1] = sText;
            end
        end
        if #tData ~= 0 then
            return tData;
        end
    end
end
function TextFile.Read(sPath)
    local hFile = io.open(sPath, "r");
    if hFile ~= nil then
        local sText = hFile:read("*a");
        io.close(hFile);
        return sText;
    end
end

На MindQuake лежит плагин multithread - он поможет? По прочитанному у них, я так понял что она для внешних приложений. Но мне надо для основного приложения AMS.

Floumen, нет, не поможет. Как там и написано он только для запуска другой программы.

KerberX, Огромное спасибо! попробую!. Принципе уже все и сам сделал но есть две проблем:
1) в текстовом файле он почему-то, там где должно быть все одной строкой, делает в 2 строки.
2) уперся в ограничения объекта input, просто не влазят все данные с полученного файла (нужно будет подсчитать сколько там строк\символов)
Это не важно т.к. у меня есть ваша функция! за что еще раз огромное спасибо!

Добавлено:
Вот может кому интересно будет, вот какое чудо удалось сделать на AMS - http://sourceforge.net/projects/androidscript/ даже без плагинов. Но думаю в новых версиях они могут появится.

Цитата:

1) в текстовом файле он почему-то, там где должно быть все одной строкой, делает в 2 строки.

Можно пример? А то я что-то не пойму как это могло случиться.

Цитата:

2) уперся в ограничения объекта input, просто не влазят все данные с полученного файла (нужно будет подсчитать сколько там строк\символов)

У меня в Input влезает и 1 000 000 символов безо всякой его модификации. Но если это беспокоит то можно использовать объект RichText.

По LuaThread нашёл вот это, но ещё не понял как это использовать

http://sourceforge.net/projects/luathread/files/?source=navbar

http://www.amsspecialist.com/viewtopic.php?f=2&t=2933

Цитата:

http://www.amsspecialist.com/viewtopic.php?f=2&t=2933

Обожаю сайт этого испанца. Всё выглядит красиво, но непонятно как с этим работать. Что ему мешало выложить пример проекта. Хотя я ещё поищу. Файл что по ссылке я скачал (owned.zip), как и ещё папку со всяким барахлом для AMS.
https://mega.co.nz/#F!tIVCAIIb!6lo1VecWVHtps6JWtkjD9A

Также я видел проект Lua-AIO. Там встроен именно нужный Thread. Вот сайт проекта. http://luaaio.luaforge.net/index.html
Упоминание нашёл здесь: http://mydc.ru/topic2938.html

На том же сайте есть полезная тема про Lua. Там люди делятся своими функциями. Из самого полезного могу назвать конвертирование текста из ANSI в UTF8 и обратно.
http://mydc.ru/topic334.html

Как в Autoplay Media Studio полностью перекодировать текст\файл в кодировку UTF-8 w/o BOM в UNIX формате. Без использования плагинов. (мне нужно было что-бы AMS выдал мне юникс файл на выходе)

Просто оставлю это здесь т.к. сам долго бился с этой проблемой. Добавлю комментарии.

Спасибо KerberX за ссылочку на http://mydc.ru/topic334.html (там есть хороший декодер в UTF-8) и за функции для смены переноса строк.

Записать в глобал:
[more]
:декодер

Код: ---utf8 decoder
function String.UnixToWindows(sText)
return String.Replace(sText, "\n", "\r\n", false);
end

function String.WindowsToUnix(sText)
return String.Replace(sText, "\r\n", "\n", false);
end

function TextFile.IsUnix(sString)
local sText = sString;
local nRet = String.Find(sText, "\r\n", 1, false);
if nRet == -1 then
return true;
else
return false;
end
end

function TextFile.UnixToWindows(sString)
local sText = sString;
if sText ~= "" then
local sConverted = String.UnixToWindows(sText);
return sConverted
else
return false;
end
end

function TextFile.WindowsToUnix(sString)
local sText = sString;
if sText ~= "" then
local sConverted = String.WindowsToUnix(sText);
return sConverted
else
return false;
end
end

local ansi_decode={
[128]='\208\130',[129]='\208\131',[130]='\226\128\154',[131]='\209\147',[132]='\226\128\158',[133]='\226\128\166',
[134]='\226\128\160',[135]='\226\128\161',[136]='\226\130\172',[137]='\226\128\176',[138]='\208\137',[139]='\226\128\185',
[140]='\208\138',[141]='\208\140',[142]='\208\139',[143]='\208\143',[144]='\209\146',[145]='\226\128\152',
[146]='\226\128\153',[147]='\226\128\156',[148]='\226\128\157',[149]='\226\128\162',[150]='\226\128\147',[151]='\226\128\148',
[152]='\194\152',[153]='\226\132\162',[154]='\209\153',[155]='\226\128\186',[156]='\209\154',[157]='\209\156',
[158]='\209\155',[159]='\209\159',[160]='\194\160',[161]='\209\142',[162]='\209\158',[163]='\208\136',
[164]='\194\164',[165]='\210\144',[166]='\194\166',[167]='\194\167',[168]='\208\129',[169]='\194\169',
[170]='\208\132',[171]='\194\171',[172]='\194\172',[173]='\194\173',[174]='\194\174',[175]='\208\135',
[176]='\194\176',[177]='\194\177',[178]='\208\134',[179]='\209\150',[180]='\210\145',[181]='\194\181',
[182]='\194\182',[183]='\194\183',[184]='\209\145',[185]='\226\132\150',[186]='\209\148',[187]='\194\187',
[188]='\209\152',[189]='\208\133',[190]='\209\149',[191]='\209\151'
}
local utf8_decode={
[128]={[147]='\150',[148]='\151',[152]='\145',[153]='\146',[154]='\130',[156]='\147',[157]='\148',[158]='\132',[160]='\134',[161]='\135',[162]='\149',[166]='\133',[176]='\137',[185]='\139',[186]='\155'},
[130]={[172]='\136'},
[132]={[150]='\185',[162]='\153'},
[194]={[152]='\152',[160]='\160',[164]='\164',[166]='\166',[167]='\167',[169]='\169',[171]='\171',[172]='\172',[173]='\173',[174]='\174',[176]='\176',[177]='\177',[181]='\181',[182]='\182',[183]='\183',[187]='\187'},
[208]={[129]='\168',[130]='\128',[131]='\129',[132]='\170',[133]='\189',[134]='\178',[135]='\175',[136]='\163',[137]='\138',[138]='\140',[139]='\142',[140]='\141',[143]='\143',[144]='\192',[145]='\193',[146]='\194',[147]='\195',[148]='\196',
[149]='\197',[150]='\198',[151]='\199',[152]='\200',[153]='\201',[154]='\202',[155]='\203',[156]='\204',[157]='\205',[158]='\206',[159]='\207',[160]='\208',[161]='\209',[162]='\210',[163]='\211',[164]='\212',[165]='\213',[166]='\214',
[167]='\215',[168]='\216',[169]='\217',[170]='\218',[171]='\219',[172]='\220',[173]='\221',[174]='\222',[175]='\223',[176]='\224',[177]='\225',[178]='\226',[179]='\227',[180]='\228',[181]='\229',[182]='\230',[183]='\231',[184]='\232',
[185]='\233',[186]='\234',[187]='\235',[188]='\236',[189]='\237',[190]='\238',[191]='\239'},
[209]={[128]='\240',[129]='\241',[130]='\242',[131]='\243',[132]='\244',[133]='\245',[134]='\246',[135]='\247',[136]='\248',[137]='\249',[138]='\250',[139]='\251',[140]='\252',[141]='\253',[142]='\254',[143]='\255',[144]='\161',[145]='\184',
[146]='\144',[147]='\131',[148]='\186',[149]='\190',[150]='\179',[151]='\191',[152]='\188',[153]='\154',[154]='\156',[155]='\158',[156]='\157',[158]='\162',[159]='\159'},[210]={[144]='\165',[145]='\180'}
}

local nmdc = {
[36] = '$',
[124] = '|'
}

function AnsiToUtf8(s)
local r, b = ''
for i = 1, s and s:len() or 0 do
b = s:byte(i)
if b < 128 then
r = r..string.char(b)
else
if b > 239 then
r = r..'\209'..string.char(b - 112)
elseif b > 191 then
r = r..'\208'..string.char(b - 48)
elseif ansi_decode[b] then
r = r..ansi_decode[b]
else
r = r..'_'
end
end
end
return r
end

function Utf8ToAnsi(s)
local a, j, r, b = 0, 0, ''
for i = 1, s and s:len() or 0 do
b = s:byte(i)
if b < 128 then
if nmdc[b] then
r = r..nmdc[b]
else
r = r..string.char(b)
end
elseif a == 2 then
a, j = a - 1, b
elseif a == 1 then
a, r = a - 1, r..utf8_decode[j][b]
elseif b == 226 then
a = 2
elseif b == 194 or b == 208 or b == 209 or b == 210 then
j, a = b, 1
else
r = r..'_'
end
end
return r
end

Octanium, спрячь код в тег [no][more][/more][/no].

И зачем делать так, какой смысл?

Код:
""..svalueTCL..""

KerberX, спрятал, спасибо.


Цитата:

И зачем делать так, какой смысл?

Если вы про if мне показалось что там создается дополнительная строка. А вообще да без смысла). Спасибо попробую.

Просто сам конкретного ответа или хоть намеков не нашел.

как раз нужно решение для Unix в windows. Еще раз спасибо огромное.

Добавлено:
KerberX, как вашу функцию использовать? можно пример.

У меня ошибка, 'WondowsTo Unix' (a nil value)

Спасибо.

Добавлено:
а стоп, у меня нет плагина String, пробовал искать (для кодировки utf-8) не нашел. У вас есть ссылка?

Чёрт, забыл что они используют функции из другого модуля. Все три функции для файлов принимают в качестве аргумента путь к файлу. Эти принимают в качестве аргумента строку и возвращают строку с изменённым переводом строки.

Код: function String.UnixToWindows(sText)
    return String.Replace(sText, "\n", "\r\n", false);
end
function String.WindowsToUnix(sText)
    return String.Replace(sText, "\r\n", "\n", false);
end

KerberX, Спасибо все работает)

KerberX, еще раз спасибо.

Подправил свое сообщение, сделал все по нормальному - http://forum.ru-board.com/topic.cgi?forum=5&topic=39341&start=1960#21

Все действия происходят в оперативной памяти.