» Autoplay Media Studio

sp3d

Цитата:

А можно изначально настроить чтоб у проекта небыло привязаности к папке AutoPlay и звуку

Папка AutoPlay обязательна, т.к. в ней хранятся необходимые ресурсы для работы проекта. Если убрать звуковые эффекты (при наведении и клике) на всех объектах (имеющих такую возможность), то теоретически эти звуковые файлы как и саму папку Audio можно будет удалить.

Zloy_Gelud
Я неиспользую звук, но при удалении папки Audio выскакивет та же ошибка.
Походу легально это нерешается.
Ладно, пусть будет эта папка, это не смертельно )))

sp3d
а ты отключил звук при наведении и нажатии на кнопках?

Код:
ttDat = INIFile.GetValueNames("data\\contxMn.ini", "subDataD");
Dialog.Message("Notice", ttDat, MB_OK);

Правильно ругается
Потому как справку читаем, и видим, что данный скрипт возвращает ТАБЛИЦУ
А выводить ее пытаешься в строку


Код: Dialog.Message("Notice", ttDat[1], MB_OK);--выведешь первое значение из таблицы

GOOSE

Точно! я просто хелп перевожу через словарь, и порой он так переводит, что приходится ловить только суть.

Спасибо!

Посмотри webhelp у меня в подписи, там кое что переведено
И вообще, принято переменным присваивать префикс, соответствующий ее типу:
строка s-
число n-
таблица t-
Так будет проще потом ориентироваться в коде

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

sp3d можно... в событии OnClick кнопки
сворачивания: Window.Minimize(Application.GetWndHandle());
закрытия: Application.Exit(0);

А какой прогой хелп переводиш... советую ABBY Lingvo + PROMT (в редких случаях)

слушайте я сейчас видел такую вещь, сделали на Multimedia Builder (я просто еще работаю и с этой программой) вот зацените
если кому-то понравилось то я могу объяснить как сделано, просто сам я это буду делать много много времени (если еще смогу сделать)

lorents хмм... интересно, а можно такое же сделать в AMS?

Cmaster2K
я могу только сказать как, что, но сам не смогу
так что если у тебя знание AMS на высоком уровне то можно попробовать

lorents
я юзал
Цитата:

Multimedia Builder

мне не понравилась, там используешь только готовые шаблоны, и никакого программинга. Он удобен когда надо сделать, что то быстро.
Может, вновых версиях, что то добавили, но в той что я юзал, впечатления осталось, будто связанный по рукам, невозможно реализовать задуманное.
А какую версию юзаешь?

sp3d

Цитата:

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

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

Добавлено:
и программирование тоже есть

____________________________________

УПС!! ИЗВЕНЯЙТЕ!
Не ту прогу обсудил, я говорил о "AutoPlay MenuBuilder"


Добавлено:
lorents
Да я не внимательно название прочитал, поспешил людей насмешил
наверное пост надо удалить.

Добавлено:
А какой в Multimedia Builder язык программинга?



Добавлено:
Cmaster2K
Мне надо не просто свернуть, а свернуть в одном случае в трей, а вдругом в стандарт. А в проекте поставлен чебокс в системный трей

Уважаемые, а не сталкивался ли кто-нибудь из вас
с необходимостью перекодировки текста из UTF-8 в ANSI ?
Поиск по форуму результатов не дал, а сам я способен только на [more=это]
function ConvertUTA(string_utf) ----------------- UTF-8 to ANSI
    string_ansi = "";
    for t = 1, String.Length(string_utf) do
        simbol_temp = String.Mid(string_utf, t, 1);
        temp_code = String.Asc(simbol_temp);
        if temp_code == 209 then
            t = t + 1;
            simbol_temp = String.Mid(string_utf, t, 1);
            temp_code = String.Asc(simbol_temp);
            if temp_code == 145 then
                temp_code = 184;
            else
                temp_code = temp_code + 112;
            end
            simbol_temp = String.Char(temp_code);
        end
        if temp_code == 208 then
            t = t + 1;
            simbol_temp = String.Mid(string_utf, t, 1);
            temp_code = String.Asc(simbol_temp);
            if temp_code == 129 then
                temp_code = 168;
            else
                temp_code = temp_code + 48;
            end
            simbol_temp = String.Char(temp_code);
        end
        string_ansi = string_ansi..simbol_temp;
    end
    return string_ansi
end

function ConvertATU(string_ansi) ------------------- ANSI to UTF-8
    string_utf = "";
    for t = 1, String.Length(string_ansi) do
        simbol_temp = String.Mid(string_ansi, t, 1);
        temp_code = String.Asc(simbol_temp);
        if (temp_code <= 239) and (temp_code >= 192) then
            simbol_temp = String.Char(208)..String.Char(temp_code - 48);
        end
        if (temp_code <= 255) and (temp_code >= 240) then
            simbol_temp = String.Char(209)..String.Char(temp_code - 112);
        end
        if temp_code == 168 then
            temp_code = 129;
            simbol_temp = String.Char(208)..String.Char(temp_code);
        end
        if temp_code == 184 then
            temp_code = 145;
            simbol_temp = String.Char(209)..String.Char(temp_code);
        end
        string_utf = string_utf..simbol_temp;
    end
    return string_utf
end[/more]
Может быть есть решение покороче и побыстрее?
Например какая-нибудь API функция?

UMode
Сталкивались конечно. Но я на этот счет особо не парился, а просто прикрутил утилитку
http://zpostbox.narod.ru/u2w.zip Попросил автора и он сделал консольную версию, за что ему отдельное спасибо. Правда перекодировать из ANSI в UTF небыло необходимости.

Lexua
Большое спасибо, конечно.
Ещё бы знать как прикрутить

я пишу как правило фильмы, вместе с ними на диск кидаю Portable KMPlayer, чтоб воспроизводить на любом компе, тк одним положительным свойством этого плеера является то, что регистрация внутренних фильтров в операционной системе не производится, а это позволяет использовать KMPlayer для распространения совместно с контентом.
вопрос в том, как сделать так, чтобы из под оболочки автозапуска фильм запускался только в кмплеере на любом компе, т.е. что надо прописать в свойствах кнопки или какие скрипты использовать?

GeneralZ
Попробуй так:

Код: strMoviePath = _SourceFolder.."\\Video\\Movie.avi";
result = File.Run(_SourceFolder.."\\KMP\\kmp.exe", strMoviePath, "", SW_SHOWNORMAL, false);

UMode
Да просто

Цитата:

File.Run("AutoPlay\\Docs\\u2w.exe", "Диск:\\Путь\\*.txt", "", SW_MINIMIZE, true);

Zloy_Gelud
Спасибо, но при предпросмотре винда ругается:


Цитата:

Runtime Error!

...\...\...\CD_Root\autorun.exe

abnormal program termination

Чтобы это значило?

lorents как это сделать я приблизительно знаю, но для реализации этого в Lua знаний пока маловато...

sp3d
В Multimedia Builder'е используестся язык программирования MMB, разработанный авторами этой программы.
Ну а на счет сворачивания, тогда не знаю...

Lexua

Цитата:

File.Run("AutoPlay\\Docs\\u2w.exe", "Диск:\\Путь\\*.txt", "", SW_MINIMIZE, true);

То есть прога перезаписывает оригинальный файл с другой кодировкой? Если так, то не совсем подходит...
Хотелось бы в проекте, как функцию для перевода отдельных строк.
Хотя можно конечно копировать текстовый файл и работать уже с копией.

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

Не удаётся запустить фильм нужным плеером, используя код


Цитата:

strMoviePath = _SourceFolder.."\\Video\\Movie.avi";
result = File.Run(_SourceFolder.."\\KMP\\kmp.exe", strMoviePath, "", SW_SHOWNORMAL, false);

Может другие идеи есть?

Цитата:

Не удаётся запустить фильм нужным плеером

А где именно лежит kmp.exe?

GeneralZ
Укажи рабочую папку плеера:
Код: result = File.Run(_SourceFolder.."\\KMP\\kmp.exe", strMoviePath, _SourceFolder.."\\KMP", SW_SHOWNORMAL, false);

UMode & ToAll [исправлено]

Код: --[[ Recode
Преобразует кодировку строки в указанную
strText - строка для перекодировки
strCharsetIn - исходная кодировка строки
strCharsetOut - требуемая кодировка
]]
function Recode(strText, strCharsetIn, strCharsetOut)
    strText = String.Replace(strText, "\r\n", "%10%13", false);
-- Java-скрипт
local strJSCode =[[
var fso = new ActiveXObject("Scripting.FileSystemObject");
var stream = new ActiveXObject("ADODB.Stream");
function Recode(text_in, charset_in, charset_out){
        stream.Open();
stream.Type = 2;
stream.Charset = charset_out;
stream.WriteText(text_in);
stream.Flush();
stream.Position = 0;
stream.Charset = charset_in;
var text_out = stream.ReadText(-1);
stream.Close();
return (text_out);
}
        var text = "]]..strText..[[";
        var out = Recode(text, "]]..strCharsetIn..[[", "]]..strCharsetOut..[[");
]]
Script.SetLanguage(Script_JScript);
Script.AddCode(strJSCode, Script_InternalCode);
    strResult = String.Replace(Script.GetResultAsString("out"), "%10%13", "\r\n", false);
return strResult;
end

-- тест 1
TextFile.WriteFromString(_TempFolder.."\\test.bat", "tree > C:\\test.txt\r\ndel /F /Q %0", false)
result = Shell.Execute(_TempFolder.."\\test.bat", "open", "", "", SW_HIDE, true);
strRecode = Recode(TextFile.ReadToString("C:\\test.txt"), "cp866", "windows-1251");
Paragraph.SetText("Paragraph1", strRecode);

--[[
-- тест 2
strRecode = Recode("Тест\r\nтест", "windows-1251", "utf-8");
Paragraph.SetText("Paragraph1", strRecode);
]]

GOOSE

_SourceFolder.."\\Scripts\\The_KMPlayer\\KMPlayer.exe