» Autoplay Media Studio

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

Подскажите сценарий кнопки, делающей просмотр видео в окне в полный экран, плиз

Vadim021X

Событие «On Size» страницы:

Код: if e_Type == SIZE_MAXIMIZED then -- если развернули на весь экран
_tProp = Video.GetProperties("Video1");
Video.SetVisible("Video1", false);
Video.SetPos("Video1", 0, 0);
Video.SetSize("Video1", e_PageWidth, e_PageHeight);
Video.SetVisible("Video1", true);
elseif e_Type == SIZE_RESTORED then -- восттановили оригинальный размер
if _tProp then
Video.SetVisible("Video1", false);
Video.SetPos("Video1", _tProp.X, _tProp.Y);
Video.SetSize("Video1", _tProp.Width, _tProp.Height);
Video.SetVisible("Video1", true);
end
end

а можно сделать проверку из таблицы или ListBox?

ubian -- небольшой пример:

Код: --[[ Функция проверяет валидность ключа по таблице]]
_IsValidSerial = function (s)
local bIsValid = false;
local tValidSerial = {
'AAA-123456',
'BBB-234567',
'AAA-364587',
'BBB-567330'
};
for i = 1, #tValidSerial do
if s == tValidSerial[i] then
bIsValid = true;
break;
end
end
return bIsValid;
end

-- пример использования:
-- activation_key - переменная, содержащая ключ, который ввел юзер
-- проверяем его на валидность
if _IsValidSerial(activation_key) then
-- ввели все верно
else
-- ключ не действительный
end

Zloy_Gelud, большое спасибо

Спасибо, и еще один вопрос:
Как сделать как бы перерыв в сценарии, например:
В сценарии перенаправление на страницу #1, далее проходит например 5 сек и идет перенаправление на страницу #2. Так как сделать так, чтобы в одном целом сценарии была задерржка 5 сек, а после 5 сек сценарий бы продолжался. ????

Vadim021X

См. действие Application.Sleep.

можно ли так проверить величину

Код:
if par > 5 then
end

ubian

Да, если «par» - это число.

Цитата:

Я только что пробовал этот сценарий, он не работает! Я делаю видеоплеер и нужен сценарий кнопки, делающий просмотр видео во весь экран, как у других плееров.

Добавлено:


 Я только что пробовал этот сценарий, он не работает! Я делаю видеоплеер и нужен сценарий кнопки, делающий просмотр видео во весь экран, как у других плееров.



Добавлено:
Сценарий:
 
if e_Type == SIZE_MAXIMIZED then -- если развернули на весь экран
   _tProp = Video.GetProperties("Video1");
    Video.SetVisible("Video1", false);
    Video.SetPos("Video1", 0, 0);
    Video.SetSize("Video1", e_PageWidth, e_PageHeight);
    Video.SetVisible("Video1", true);
elseif e_Type == SIZE_RESTORED then -- восттановили оригинальный размер
   if _tProp then
        Video.SetVisible("Video1", false);
        Video.SetPos("Video1", _tProp.X, _tProp.Y);
        Video.SetSize("Video1", _tProp.Width, _tProp.Height);
        Video.SetVisible("Video1", true);
    end
end

Vadim021X

Цитата:

Я только что пробовал этот сценарий, он не работает!

Все работает, если делать так, как написано. А именно, копипастить этот код в событие "On Size" страницы.
В событие "On Click" кнопки добавь это:

Код: Window.Maximize(Application.GetWndHandle());

а можно ли сделать вход логин\пароль только список паролей и логинов находиться в ini файле?
Я вот этО сделал, но оно не работает...

Код:
--------------------------------------------------------------------
--LetOS Monlogicien Corp. UserLogin Code----------------------------
--------------------------------------------------------------------
--Get Users
usr1 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "One")
usr2 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Two")
usr3 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Tre")
usr4 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Four")
usr5 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Fiwe")
usr6 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Six")
usr7 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Seven")
usr8 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Eht")
usr9 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Nine")
usr0 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Ten")
--Get Passtwords
passwd1 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "One")
passwd2 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Two")
passwd3 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Tre")
passwd4 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Four")
passwd5 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Fiwe")
passwd6 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Six")
passwd7 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Seven")
passwd8 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Eht")
passwd9 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Nine")
passwd0 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Ten")
--------------------------------------------------------------------
--Get Text of Login Input's-----------------------------------------
UsrInpt = Input.GetText("i_input_1")
PasswdInpt = Input.GetText("i_input_2")
--------------------------------------------------------------------
--Set UsrValid Number-----------------------------------------------
UsrValid = x
if usr1==UsrInpt then
UsrValid = 1
end
if usr2==UsrInpt then
UsrValid = 2
end
if usr3==UsrInpt then
UsrValid = 3
end
if usr4==UsrInpt then
UsrValid = 4
end
if usr5==UsrInpt then
UsrValid = 5
end
if usr6==UsrInpt then
UsrValid = 6
end
if usr7==UsrInpt then
UsrValid = 7
end
if usr8==UsrInpt then
UsrValid = 8
end
if usr9==UsrInpt then
UsrValid = 9
end
if usr0==UsrInpt then
UsrValid = 0
end
--------------------------------------------------------------------
--Check Passwd for SetUser------------------------------------------
if UsrValid == 1 then
if PasswdInpt==passwd1 then
Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2)
Page.Jump("Home")
end
end
if UsrValid == 2 then
if PasswdInpt==passwd2 then
Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2)
Page.Jump("Home")
end
end
if UsrValid == 3 then
if PasswdInpt==passwd3 then
Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2)
Page.Jump("Home")
end
end
if UsrValid == 4 then
if PasswdInpt==passwd4 then
Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2)
Page.Jump("Home")
end
end
if UsrValid == 5 then
if PasswdInpt==passwd5 then
Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2)
Page.Jump("Home")
end
end
if UsrValid == 6 then
if PasswdInpt==passwd6 then
Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2)
Page.Jump("Home")
end
end
if UsrValid == 7 then
if PasswdInpt==passwd7 then
Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2)
Page.Jump("Home")
end
end
if UsrValid == 8 then
if PasswdInpt==passwd8 then
Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2)
Page.Jump("Home")
end
end
if UsrValid == 9 then
if PasswdInpt==passwd9 then
Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2)
Page.Jump("Home")
end
end
if UsrValid == 0 then
if PasswdInpt==passwd0 then
Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2)
Page.Jump("Home")
end
end

ubian
Во-первых, спрячь эту тряпку под тэг [no][more][/more][/no]
Во-вторых, неплохо бы не делать ошибки в англ. словах, которых у тебя куча. Аж смотреть противно.
В-третьих, неплохо бы писать код в нормальном читабельном виде, с отступами.

Цитата:

Я вот этО сделал, но оно не работает...

У меня честно нет желания разбираться в чужих скриптах, мне проще самому все написать, но на первый взгляд у тебя:
- отсутствует двойной слэш в указании пути к INI-файлу
- откуда взялся "x" в UsrValid = x?
Вот так, например, можно переделать твой код:

Код: local sINIPath = _SourceFolder.."\\UserFiles\\Users.List.INS";
local sUserName = Input.GetText("i_input_1");
local sPassword = Input.GetText("i_input_2");

_IsValidSerial = function (sPath, sUser, sPass)
local bIsValid = false;
if File.DoesExist(sPath) then
local tUsers = INIFile.GetValueNames(sPath, "Users");
local tPasswords = INIFile.GetValueNames(sPath, "Passwords");
local tWork = {};
for i = 1, #tUsers do
tWork[INIFile.GetValue(sINIPath, "Users", tUsers[i])] = INIFile.GetValue(sINIPath, "Passwords", tPasswords[i]);
end
if (tWork[sUser] == sPass) then bIsValid = true; end
end
return bIsValid;
end

if _IsValidSerial(sINIPath, sUserName, sPassword) then
Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
--Page.Jump("Home");
end

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

zver506 -- можешь дать ссылку, где ты это видел?
Ссылки не дождался.. Накидал так примерный код:

Глобальные функции:

Код: IMAGE_ZOOM = 0;
IMAGE_ORIGINAL = 1;
Image.Zoom = function(sObject, cType, nZoom)
nZoom = nZoom or 2;
if nZoom <= 1 then nZoom = 1; end
Image.SetVisible(sObject, false);
if cType == 0 then
Image.SetOpacity(sObject, 0);
Image.SetPos(sObject, (g_ImageProp.X + g_ImageProp.Width / 2) - (g_ImageProp.Width / 2 * nZoom), (g_ImageProp.Y + g_ImageProp.Height / 2) - (g_ImageProp.Height / 2 * nZoom));
Image.SetSize(sObject, g_ImageProp.Width * nZoom, g_ImageProp.Height * nZoom);
Image.SetVisible(sObject, true);
repeat
Image.SetOpacity(sObject, Image.GetOpacity(sObject) + 2);
Application.Sleep(10);
until Image.GetOpacity(sObject) == 100;
else
Image.SetPos(sObject, g_ImageProp.X, g_ImageProp.Y);
Image.SetSize(sObject, g_ImageProp.Width, g_ImageProp.Height);
Image.SetVisible(sObject, true);
end
end

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

Vadim021X

Цитата:

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

Любопытно, как ты собираешься разворачивать только объект Видео, без разворачивания самого окна проекта?

Цитата:

А этот сценарий только само окно программы во весь экран делает и объекты на странице все смещаются.

Может ты чего сам намутил в своем проекте или объекты у тебя другие. Посмотри пример проекта.
http://rghost.ru/19721321

Ок! Окно развернули, а объект видео остался прежних размеров в верхнем левом углу. А как его развернуть?

Vadim021X -- ты мой пример смотрел? Или это уже в нем Видео не разворачивается?

Ок, ок разберусь
Извини разобраться хотел

Zloy_Gelud
Сорри, только вечером смог зайти на форум, спасибо большое за код, буду тестить в новом проекте, а ссылку не кинул, потому что сам не нашел эту тему, поэтому тебе и написал, думал ты помнишь, и что самое интересное это было в этой части совсем недавно,где то с 80 по 106 страницу, но не нашел, еще раз спасибо за код

А как сделать так, чтобы нажимая на кнопку в проекте в текстовой файл на диске С добавлялась надпись line, а если еще раз на нее нажать надпись line появится в тексовом файле уже на новой строке, и каждый раз при нажатии надпись добавлялась бы в текстовой файл с новой строки. Возможно ли такое сделать?

Vadim021X


Код: TextFile.WriteFromString("C:\\MyFile.txt", "line\r\n", true);

Подскажите плиз как реализовать следующее:
В проекте два Page.
На Page1 находятся ссылки Link1 и Link2.
На Page2 находятся объекты web1 и web2.
Как сделать, чтобы при клике по Link1 открывалась Page2 с видимым объектом web1, а по Link2 соответственно web2.

Предполагаю, что необходимо по умолчанию сделать объекты web невидимыми, а при переходе как-то определять какой web показать. Вот интересует как.

И еще вопросец по поводу web объектов. AMS отображает содержимое web согласно настроек браузера установленного в ОС по умолчанию или нет? Т.е. если в браузере отключены картинки будут ли они отображаться в AMS?

Rom4ik84


Цитата:

Как сделать, чтобы при клике по Link1 открывалась Page2 с видимым объектом web1, а по Link2 соответственно web2.

А если поступить другим способом. Загружать в один объект Web ту инфу, в зависимости от того, на какой линк бы кликнули?

Цитата:

Т.е. если в браузере отключены картинки будут ли они отображаться в AMS?

Ага.

И еще один вопрос:
Можно ли при нажатии кнопки в текстовой файл на диске С добавлялась системная дата и время?

Zloy_Gelud


Цитата:

А если поступить другим способом. Загружать в один объект Web ту инфу, в зависимости от того, на какой линк бы кликнули?

Имеются html файлы 1.html и 2.html. Нужно их отображать в зависимости от линка.


Цитата:

Ага.

Я правильно понял - настройки браузера по умолчанию не влияют на отображению html файлов в AMS?

Rom4ik84

Цитата:

Я правильно понял - настройки браузера по умолчанию не влияют на отображению html файлов в AMS?

Прошу прощения. Я хотел написать, что настройки браузера прямо влияют на объект Web. Т.е., если отображение картинок в браузере отключено, то и в Web они не буду показываться.
И Link1 и Link2 - что это за объекты?


Добавлено:
Vadim021X
См.:
System.GetDate
System.GetTime

Цитата:

И Link1 и Link2 - что это за объекты?

это ссылки, если не путаю можно сделать через Label. Ну в крайнем случае можно кнопкой.

Вот подумал, может обойтись без html.
Файл html представляет собой карточку изделия - заголовок, описание, ссылка на руководство в пдф.
Если это можно засунуть в другой формат, например txt, и брать оттуда. Но я не знаю как брать информацию из внешнего файла, тем более определить где заголовок, описание, ссылка.