» Autoplay Media Studio

Zloy_Gelud
Спасибо!
А почему все-таки не все фон меняют?

Crazy_Snake

Цитата:

А почему все-таки не все фон меняют?

Для чистоты эксперемента можно проделать следующее - просто создать новый проект с одной функой SetPageProp в Глоб. функциях, кнопкой изменения свойств страниц и кнопками навигации по страницам. Если опять будут проблемы - либо глюк, либо баг AMS.
З.Ы. У меня проект из 5 страниц - все норм работает.

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

Модно однозначно здесь.
У меня стоит AutoPlay Media Studio 7.5.1004.0 Trial + Crack.

Добавлено:
Crazy_Snake -- Вот пример. Вроде такое тебе надо было.

Zloy_Gelud
У меня так-же всё написано в коде, как и в этом примере. А фон на других страницах меняется то через раз, то сразу, то вообще не меняется....

Добавлено:
А можно ли фон ListBox поменять на бесцветный? И уголки у рамки закруглить?

Добавлено:
А можно ли фон ListBox поменять на бесцветный? И уголки у рамки закруглить?

Добавлено:
Глоб. функции:


Код:
function Fon1()
local tPages = Application.GetPages();
for n, strPageName in tPages do
tblPageProperties = {};
tblPageProperties.BackgroundType = 2;
tblPageProperties.ImageFilename = "AutoPlay\\Images\\Background\\BG1jpg";
Application.SetPageProperties(strPageName, tblPageProperties);
end
end
--------------------------------------------------------------------------------------
function Fon2()
local tPages = Application.GetPages();
for n, strPageName in tPages do
tblPageProperties = {};
tblPageProperties.BackgroundType = 2;
tblPageProperties.ImageFilename = "AutoPlay\\Images\\Background\\BG2.jpg";
Application.SetPageProperties(strPageName, tblPageProperties);
end
end
--------------------------------------------------------------------------------------
function Fon3()
local tPages = Application.GetPages();
for n, strPageName in tPages do
tblPageProperties = {};
tblPageProperties.BackgroundType = 2;
tblPageProperties.ImageFilename = "AutoPlay\\Images\\Background\\BG3.jpg";
Application.SetPageProperties(strPageName, tblPageProperties);
end
end

Подскажите, пожалуйста, есть ли у кого качественный шаблон autoplay для сборника Mp3? Нужно, чтобы при проигрывании песен показывалась информация из тегов, включая картинку и, по возможности, тексты песен. Если есть коммерческие предложения, пишите в ПМ.

Код: function Callback(strSource, strDestination, nCopied, nTotal, nFileCopied, nFileTotal)
nPercent = Math.Round(nCopied / nTotal * 100, 0);
StatusDlg.SetMeterRange(0, 100);
StatusDlg.SetTitle("");
StatusDlg.SetMessage("Копирование");
StatusDlg.SetStatusText(strDestination);
StatusDlg.SetMeterPos(nPercent);
StatusDlg.ShowCancelButton(true, "Cancel");
if (StatusDlg.IsCancelled()) then
    return false;
else
    return true;
end
end

1nasty1

Для просмотра тегов есть пару плагинов:
1. MP3Tag:
[+] Понимает ID3v1
[+] Вытягивает достаточно большую инфу из тегов
[-] Долго думает над считыванием инфы (~ 1c у меня)
[-] Не может вытянуть картинку из тега
2. MP3 Info:
[+] Вытягивает картинку из тега
[+] Работает по шустрее
[-] Не работает с ID3v1
[-] Получает мало инфы из тега
[-] Вроде как кириллицу из тегов отображает "кракозяблами"

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

Zloy_Gelud
Спасибо огромное за подсказку. MP3-iNFO мне подходит, кириллица отображается нормально. Только у меня нет достаточного опыта работы с программой. такого, чтобы сделать действительно что-то стоящее и интересное. Отсюда и вопрос про шаблоны.

Подскажите, пожалуйста! Есть ли возможность копирования полностью папки, а не только файлов, находящихся в ней?

alfonser

Есть конечно сам задавал такой вопрос...только более конкретнее сформулируй откуда и куда....откуда ясно...куда именно...и если правильно понял копирование папки со всеми содержащимися в ней подпапками и файлами...

sttmaster

Цитата:

откуда ясно...куда именно...и если правильно понял копирование папки со всеми содержащимися в ней подпапками и файлами...

Да , полное копирование со всеми подпапками и файлами. На системный диск. Допустим в C:\Program Files\. Потому,что как названы разделы у других неизвестно.

alfonser [исправлено]
Добавил проверку на ошибки.

Код: --[[ Копирование папки вместе с ее содержимым]]
-- strSource - путь к папке, которую необходимо скопировать
-- strDestation - путь, куда необходимо скопировать папку
-- Возвращает 0, если скопировалась папка или код ошибки в противном случае
function Folder.Copy(strSource, strDestation)
    local strFolderName = String.Mid(strSource, String.ReverseFind(strSource, "\\", false), -1);
    local strDestation = strDestation.."\\"..strFolderName;
    if (not Folder.DoesExist(strDestation)) then
        Folder.Create(strDestation);
    end
    File.Copy(strSource.."\\*.*", strDestation.."\\", true, true, false, true, nil);
    nError = Application.GetLastError();
    return nError;
end

local nResult = Folder.Copy("C:\\Downloads", _ProgramFilesFolder.."\\MyProgram");
if (nResult == 0) then
    Dialog.Message("Notice", "SUCCESS.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
    Dialog.Message("Error", _tblErrorMessages[nResult], MB_OK, MB_ICONEXCLAMATION);
end

Zloy_Gelud
Спасибо!
А для удаления этой папки тоже необходимо написать подобную функцию?

alfonser


Цитата:

А для удаления этой папки тоже необходимо написать подобную функцию?

См. Folder.DeleteTree

Добавлено:
Еще немного поправил функу.

Zloy_Gelud
Спасибо! Щас буду разбираться.

lorents

Код: function Callback(strSource, strDestination, nCopied, nTotal, nFileCopied, nFileTotal)
nPercent = Math.Round(nCopied / nTotal * 100, 0);
StatusDlg.SetMeterRange(0, 100);
StatusDlg.SetTitle("");
StatusDlg.SetMessage("Копирование");
StatusDlg.SetStatusText(strDestination);
StatusDlg.SetMeterPos(nPercent);
StatusDlg.ShowCancelButton(true, "Cancel");
if (StatusDlg.IsCancelled()) then
return false;
else
return true;
end
end
---------------------------------------------------
function SaveAs(strOutDir, strOutFileName)
strFileToCopy = "AutoPlay\\Videos\\data01.avi";
local strFiles = CommonDialogs.File(false, "Сохранить",strOutDir, "Видео файл (*.avi)|*.avi|", strOutFileName, "avi", false);
if (strFiles ~= "CANCEL") then
local tblFiles = WinApi.DelimitedStringToTable(strFiles, "|");
if (tblFiles) then
if (File.DoesExist(tblFiles[1])) then
local cBut = Dialog.Message("Сохранить как", tblFiles[1].."\r\nУже существует.\r\nЗаменить существующий файл?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if (cBut == 6) then
strOutFile = tblFiles[1];
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(strFileToCopy, tblFiles[1], true, true, false, true, Callback);
StatusDlg.Hide();
else
local strOutDir = String.SplitPath(tblFiles[1]).Drive..String.SplitPath(tblFiles[1]).Folder;
local strOutFileName = String.SplitPath(tblFiles[1]).Filename
SaveAs(strOutDir, strOutFileName);    
end
else
strOutFile = tblFiles[1];
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(strFileToCopy, tblFiles[1], true, true, false, true, Callback);
StatusDlg.Hide();
end
end
end
end
---------------------------------------------------
local strOutDir = Shell.GetFolder(SHF_MYDOCUMENTS);
local strOutFileName = "Глобальный передел";
SaveAs(strOutDir, strOutFileName);

tavria2
СПАСИБО, просто выручил

Добавлено:
tavria2
еще одни вопрос
хотел сделать удаление копирующего файла если пользователь нажал на отмену копирования, но не пойму куда лучше вставить вот эту часть кода

Код: if (StatusDlg.IsCancelled()) then
File.Delete(tblFiles[1], false, false, false, nil);
return false;
else
return true;
end

Zloy_Gelud

Цитата:

Код:--[[ Копирование папки вместе с ее содержимым]]
-- strSource - путь к папке, которую необходимо скопировать
-- strDestation - путь, куда необходимо скопировать папку
-- Возвращает 0, если скопировалась папка или код ошибки в противном случае
function Folder.Copy(strSource, strDestation)
local strFolderName = String.Mid(strSource, String.ReverseFind(strSource, "\\", false), -1);
local strDestation = strDestation.."\\"..strFolderName;
if (not Folder.DoesExist(strDestation)) then
Folder.Create(strDestation);
end
File.Copy(strSource.."\\*.*", strDestation.."\\", true, true, false, true, nil);
nError = Application.GetLastError();
return nError;
end

local nResult = Folder.Copy("C:\\Downloads", _ProgramFilesFolder.."\\MyProgram");
if (nResult == 0) then
Dialog.Message("Notice", "SUCCESS.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Dialog.Message("Error", _tblErrorMessages[nResult], MB_OK, MB_ICONEXCLAMATION);
end

Что-то не получается. Происходит копирование папки с находящимися внутри файлами, но папки, находящиеся внутри не копируются.

alfonser

Только что проверил на примере ниже.
Структура файлов и папок:


Цитата:

C:.

|___Test

|___Test.txt

|___Test

|___Test.txt

|___Test

|___Test.txt

Код: nResult = Folder.Copy("C:\\Test", _ProgramFilesFolder.."\\MyProgram");

Код:
LB = "ListBox1";
tSelected = ListBox.GetSelected(LB);
if tSelected then
    sFile = ListBox.GetItemData(LB, tSelected[1]);
    Web.LoadURL("Web1", "sFile");
    else
    Dialog.Message("Error", "There is no item selected.");
end

Crazy_Snake
В выделенной строчке переменная sFile должна быть без кавычек.

Zloy_Gelud
Ой, точно, не углядел Спс!!!

Zloy_Gelud
Извини! Это я тупанул. Сейчас только разобрался. Я для теста создал папку с файлами и вней подпапка ПУСТАЯ! Вот поэтому она и не копировалась.
Извини за беспокойство!
Подскажи а куда в коде вставить сообщение пока идет копирования"Идет копирование файлов"
Спасибо!

alfonser
Например так:

Код: Paragraph.SetText("Paragraph1", "Идет копирование файлов");
local nResult = Folder.Copy("C:\\Test", _ProgramFilesFolder.."\\MyProgram");
Paragraph.SetText("Paragraph1", "");

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

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

Crazy_Snake
Скомпилируй проект как Web/Email executable с установленной галкой Encrypt data segment. Получится зашифрованный самораспоковывающийся ZIP-архив. Но это слабая защита от вандалов.

Zloy_Gelud
Я как-то пробовал но там не открывается половина почему-то, может-быть потому-что я не поставил шалку...
Зато хорошая защита от нубов!

Crazy_Snake

Цитата:

но там не открывается половина почему-то

Посмотри на всякий случай Проблема с путями при создании приложения .EXE и ресурсами на CD от Reineke из шапки. Может из-за этого что-то не открываться, но явно не из-за галки.

Добавлено:
Кстати, никто не знает как выбрать шрифт для нового окна?

Код: -- создаем новое окно
hWnd = WinApi.CreateWindowEx("0", "BUTTON", "Text", BS_GROUPBOX.."|"..WS_CHILD.."|"..WS_VISIBLE, 0, 0, 100, 100, Application.GetWndHandle(), 0, 0, 0);