» Autoplay Media Studio

Народ есть вопрос
Хочу сделать загрузку РСС новостей, ну вот скачиваем xml в темп а дальше почемуто кидаеться ошибками и всё может у них не такая архитектура? кто может делал? подскажите или поделитесь плиз

Привет Всем! С Наступающим Рождеством!
Набралась куча портабле_софта. Решил сделать к нему какую-нибудь менюшку. Но что-то с фантазией туго. Может подкинет кто-нибудь пару идей.
Пробовал программу PStart 2.11 - не впечатлила.

Djon1970
Ну вон Zloy_Gelud выложил свой прект чуть выше.

Прива Ребз
Я всегда испытывал чувство великого огорчения, когда открывал вкладку Script объекта ListBox и не находил там действия типа On Right-Click, но этому все-таки я положил конец написав функцию ListBoxEx.GetSelectedCount()

Код: ListBoxEx = {

GetSelectedCount = function (cObject)
    nSelected = -1;
    local tPos = ListBox.GetPos(cObject);
    local tSizes = ListBox.GetSize(cObject);
    if (e_Type == 2 and e_X >= tPos.X and e_X <= tPos.X + tSizes.Width and e_Y >= tPos.Y and e_Y <= tPos.Y + tSizes.Height) then
        if (ListBox.GetProperties(cObject).Border == 2) then        -- Style mode - sunken
            nPlus = 3;
        elseif (ListBox.GetProperties(cObject).Border == 1) then    -- Style mode - flat
            nPlus = 1;
        else                                                        -- Style mode - none
            nPlus = 0;
        end
        if (ListBox.GetCount(cObject) > 0) then
            nSelected = Math.Ceil((e_Y - String.ToNumber(tPos.Y) - nPlus) / 15);
            if (nSelected > ListBox.GetCount(cObject)) then
                nSelected = ListBox.GetCount(cObject);
            end
        end        
    end
    return nSelected;
end
            
            };

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

Попробуйте у себя, плиз...

_http://avaxsphere.com/software/software_type/multimedia/Burning_copying/ishell_4_5_r7.html

Zloy_Gelud

Цитата:

...я положил конец написав функцию ListBoxEx.GetSelectedCount()

Молодец, поздравляю!

Цитата:

Она прекрасно работает, но только на вкладке On Mouse Button...

В своей ф-ции ты используешь локальные переменные события On Mouse Button: e_Type, e_X и e_Y, т.к. они локальные то и работать будут в пределах текущего события. Если хочешь вынести свою ф-цию за пределы On Mouse Button, тогда нужно в ф-цию передать локальные переменные, как параметры.

Замечания:
Обрабатывай e_Type до вызова ф-ции.
Событие навешивается не на нажатую кнопку мышки, а на отжатую: e_Type = RIGHT_BUTTON_UP;
В расчете позиции элемента ты используешь константу (15), которая вылезет боком при изменении размера шрифта. Если сделать правый клик на 2-м элементе ListBox'а, при размере шрифта 14pt - результатом будет 3-й элемент.

Предлагаю свой вариант, в котором не нужно учитывать бордюры и размер шрифта, а также не нужно указывать имя ListBox'а, которое будет определяться автоматом и возвращаться ф-цией вместе с индекстом выделенного элемента.

Global functions
Добавлено: Принудительное прерывание цикла, если найден нужный объект.
Код: --[[
Ф-ция возвращает таблицу с индексами: Name - имя ListBox и Index - индекс элемента, на котором был произведен правый клик мышкой. Если правый клик был не на элементе ListBox'а, то ф-ция возвращает nil.
]]--
function RClickLisBox()
local X = System.GetMousePosition(false).X; -- экранная позиция мышки X
local Y = System.GetMousePosition(false).Y; -- экранная позиция мышки Y
-- получаем handle окна, которое находится под курсором мышки
local hWnd = DLL.CallFunction("user32.dll","WindowFromPoint", X..","..Y, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
local tObjects = Page.EnumerateObjects(); -- список объектов страницы
for n, cName in tObjects do -- перебираем в цикле - имена объектов
-- если этот объект - ListBox и его handle совпадает с handle окна под курсором мышки
if (Page.GetObjectType(cName) == OBJECT_LISTBOX and String.ToNumber(ListBox.GetProperties(cName).WindowHandle) == String.ToNumber(hWnd)) then -- если ListBox
local tProp = ListBox.GetProperties(cName); -- св-ва ListBox
local tMousePos = System.GetMousePosition(true); -- оконная позиция мышки
local LB_ITEMFROMPOINT = 425; -- (h1A9) параметр API ф-ции
local lParam = (tMousePos.Y - tProp.Y) * 65536 + (tMousePos.X - tProp.X); -- параметр API ф-ции
-- получаем индекс элемента ListBox под курсором мышки
local nIdx = DLL.CallFunction("user32.dll", "SendMessageA", hWnd..","..LB_ITEMFROMPOINT..",0,"..lParam, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
nIdx = nIdx + 1; -- увеличиваем индекс на 1, т.к. API-ф-ция назначает 1-му элементу - 0-й индекс.
if (nIdx <= ListBox.GetCount(cName)) then -- если индекс не превышает максимальное кол-во элементов в ListBox'е
ListBox.SelectItem(cName, nIdx); -- выделяем элемент ListBox'а, на котором был правый клик
return {Name = cName, Index = nIdx} -- возвращаем таблицу значений
end
break; -- принудительное прерывание цикла
end
end
end

ListBoxEx = {RClick = RClickLisBox}; -- объявляем действие ListBoxEx.RClick

Ребята подскажите, как сделать так чтобы после установки программы кнопка установить не светилась или вообще исчезла а кнопка удалить появилсь допустим вместо кнопки установить, просто я пользуюсь DemoShield и в этой программе хочу рзобратся.

Заранее благодарю!

Добавлено:
Может руковдство пользователя есть?

Vitalliano
help - руководство пользователя

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

tavria2 Клас-с-сно!

tavria2 так как ты уже зарекомендовалл себя неплохим специалистом в области API-функций , то не подскажешь, почему не работает етот код:

Код: local X = System.GetMousePosition(false).X; -- экранная позиция мышки X
local Y = System.GetMousePosition(false).Y; -- экранная позиция мышки Y
-- Определяем дескриптор окна, расположенного в определенной точке экрана
hWnd = DLL.CallFunction("user32.dll","WindowFromPoint", X..","..Y, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
-- если получили дескриптор окна
if (hWnd ~= "0") then
    -- получаем контекст устройства (DC) окна или другого объекта, имеющего дескриптор
    hDC = DLL.CallFunction("user32.dll", "GetDC", hWnd, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
    -- если получили контекст
    if (hDC ~= "0") then
        -- получаем значение RGB пиксела в заданный координатах в контексте устройства
        sRGB = DLL.CallFunction("gdi32.dll", "GetPixel", hDC..","..X..","..Y, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
        -- если точка лежит в области выpезания
        if (sRGB ~= "-1") then
            -- отображаем RGB пиксела
            Input.SetText("Input1", sRGB);
        end
    end
    -- возвращаем контекст устройства системе
    DLL.CallFunction("user32.dll", "ReleaseDC", hWnd..","..hDC, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end

Zloy_Gelud

Цитата:

Проблема в том, что я почти всегда получаю результат "-1"

Этот код нужно крутить в таймере.

Замечания:
Ф-ция WindowFromPoint не годится для твоего случая, т.к. она возвращает handle для окна расположенного под курсором мышки, а как известно не все объекты имеют handle, поэтому в некоторых местах ты не сможешь получить цвет (IMHO). Так же будут грабли с окнами которые не развернуты на весь экран, т.к. для получения цвета используются оконные координаты, а мы используем экранные. Оконные координаты - мы можем получить только для своего окна проекта.

Предлагаю использовать handle и DC - "Рабочего стола", т.к. это окно всегда имеет экранные координаты, а все окна в системе являются его потомками.

Событие On Timer:
Код: local X = System.GetMousePosition(false).X; -- экранная позиция мышки X
local Y = System.GetMousePosition(false).Y; -- экранная позиция мышки Y
-- Определяем дескриптор Рабочего стола
hWnd = DLL.CallFunction("user32.dll", "GetDesktopWindow", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
-- если получили дескриптор окна
if (hWnd ~= "0") then
-- получаем контекст устройства (DC) окна, имеющего дескриптор
hDC = DLL.CallFunction("user32.dll", "GetWindowDC", hWnd, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
-- если получили контекст
if (hDC ~= "0") then
-- получаем значение RGB пиксела в заданный координатах в контексте устройства
sRGB = DLL.CallFunction("gdi32.dll", "GetPixel", hDC..","..X..","..Y, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
-- если точка лежит в области выpезания
if (sRGB ~= "-1") then
-- отображаем RGB пиксела
Input.SetText("Input1", sRGB);
end
end
-- возвращаем контекст устройства системе
DLL.CallFunction("user32.dll", "ReleaseDC", hWnd..","..hDC, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end

Подскажите, пожалуйста, не могу разобраться.
Как сделать, чтобы на первой странице, допустим в Лицензии отображалось имя пользователя системой. Уже все проекты перековырял (DenVI и YodO Inc) у обоих по разному. Пробую копировать оттуда сценарии, указываю другой файл текстовый, нифига не получается.
И еще, у одного в проекте плагин SHAPE, а у другого DLL. А как подключать плагин SHAPE и что это за плагин? У меня вроде такого нет в выборе плагинов.


С Рождеством Всех! Удачи!!!

tavria2
Сразу чуствуется рука Мастера! Большое спасипо!

---

Djon1970

Цитата:

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

Значит плохо ковыряешь
Вот попробуй так:

Код: -- имя пользователя системой
cRegOwner = System.GetUserInfo().RegOwner;
-- путь к лицензии
cPathLicense = _SourceFolder.."\\License.txt";
-- если файл лицензии существует
if (File.DoesExist(cPathLicense)) then
    -- получаем его контент
    sContent = TextFile.ReadToString(cPathLicense);
-- если же не существует
else
    -- любое сообщение
    sContent = "Тра-ля-ля";
end
-- отображаем имя пользователя системой и содержимое лицензии
Paragraph.SetText("Paragraph1", cRegOwner.."\r\n\r\n"..sContent);

Zloy_Gelud

Цитата:

Цитата:
Как сделать, чтобы на первой странице, допустим в Лицензии отображалось имя пользователя системой.

Значит плохо ковыряешь
Вот попробуй так:

Код:
-- имя пользователя системой
cRegOwner = System.GetUserInfo().RegOwner;
-- путь к лицензии
cPathLicense = _SourceFolder.."\\License.txt";
-- если файл лицензии существует
if (File.DoesExist(cPathLicense)) then
-- получаем его контент
sContent = TextFile.ReadToString(cPathLicense);
-- если же не существует
else
-- любое сообщение
sContent = "Тра-ля-ля";
end
-- отображаем имя пользователя системой и содержимое лицензии
Paragraph.SetText("Paragraph1", cRegOwner.."\r\n\r\n"..sContent);

Этот код нужно вписывать в Свойствах страницы/On Preload ? И он должен работать с плагином или без?


Цитата:

Object > Plugins > Shape Там ты еще много чаво вкусненького найдешь, если еще не заглядывал...

Если я захожу через Object > Plugins, то открывается страница для скачивания плагинов.
А плагины у меня стоят Проект > Плагины, но там нет Shape. Хотя я с Вареза наустанавливал всяких.





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

Цитата:

Если я захожу через Object > Plugins, то открывается страница для скачивания плагинов.
А плагины у меня стоят Проект > Плагины, но там нет Shape. Хотя я с Вареза наустанавливал всяких.

Её там и недолжно быть) она в меню)

Djon1970

Цитата:

Этот код нужно вписывать в Свойствах страницы/On Preload ?

Если ты хочешь чтоп лицензия у тебя загружалась пред загрузкой сраницы, тогда ставь на On Preload

Цитата:

И он должен работать с плагином или без?

Конечно БЕЗ.

Добавлено:

Цитата:

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

Если ты запускаешь программу с помощью действия File.Run(), то можно так:

Код: -- сворачиваем нашу программу
Window.Hide(Application.GetWndHandle());
-- запускаем файл с ожиданием его завершения
result = File.Run("AutoPlay\\Docs\\MyProg.exe", "", "", SW_SHOWNORMAL, false);
-- восстанавливаем программу
Window.Restore(Application.GetWndHandle());

Zloy_Gelud
Цитата:

В AMS есть действие - Math.RGBToNumber();
А обратного действия нет =(..

Нет, но будет

Код: --[[
Ф-ция преобразует десятичное значение цвета в формат RGB и возвращает таблицу с индексами R, G, B. Если произошла ошибка, то ф-ция возвращает nil.
]]--
function NumberToRGB(nColor)
if (type(nColor) == "string") then -- если переданный параметр имеет строковый тип
nColor = String.ToNumber(nColor); -- преобразование в числовой тип
end        
if (nColor >= 0 and nColor <= 16777215) then -- если число находится в цветовом диапазоне
cHexColor = string.format("%X", nColor); -- шестнадцатиричное значение цвета
cHexColor = String.Repeat("0", 6 - String.Length(cHexColor))..cHexColor; -- дополняем лидирующими нулями до 6-и знаков
nB = Math.HexToNumber(String.Mid(cHexColor, 1, 2)); -- десятичный номер синего цвета
nG = Math.HexToNumber(String.Mid(cHexColor, 3, 2)); -- десятичный номер зеленого цвета
nR = Math.HexToNumber(String.Mid(cHexColor, 5, 2)); -- десятичный номер красного цвета
return {R = nR, G = nG, B= nB} -- возвращаем RGB таблицу
end
end

nColor = 2324735; -- десятичное значение цвета
tColor = NumberToRGB(nColor); -- получаем RGB таблицу
if (tColor) then -- если есть таблица
Dialog.Message("", "R = "..tColor.R..", G = "..tColor.G..", B = "..tColor.B);
end

tavria2
Да! Вешь! Уж даже и не знаю как выразить тебе свою благодарность!..СПС вообщем..=)

Zloy_Gelud

Что-то опять у меня не получается. В сценарии написал такой код. Но ничего не срабатывает, в смысле срабатывает, но не так как надо.
Код:

Цитата:

result = File.Run("AutoPlay\\Docs\\PStart.exe", "", "", SW_SHOWNORMAL, false);
Window.Minimize(Application.GetWndHandle());
-- сворачиваем нашу программу
Window.Hide(Application.GetWndHandle());
-- запускаем файл с ожиданием его завершения
result = File.Run("AutoPlay\\Docs\\PStart.exe", "", "", SW_SHOWNORMAL, false);
-- восстанавливаем программу
Window.Restore(Application.GetWndHandle());

Я сделал проект, в котором в папке /Docs лежит программа PStart, с запиханым в нее портабельным софтом, и при выходе на на нее с кнопки запуска в меню сделанном в AMS, я хочу чтобы амсовское меню сворачивалось, а когда бы я выходил с PStart, амсовское автоматически разворачивалось. Но еще один момент, при выходе из PStart (нажатие на красный крестик) она не закрывается, а сворачивается в область уведомлений.

Djon1970

Цитата:

В сценарии написал такой код

Чтот мне кажется, что код немного не логичен..
И еще..я немного накосячил.. (см. испр. красным)
Правильно будет так:
On Click кнопки запуска проги

Код: -- минимизируем нашу программу
Window.Minimize(Application.GetWndHandle());
-- запускаем программу PStart.exe с ожиданием ее закрытия
result = File.Run("AutoPlay\\Docs\\PStart.exe", "", "", SW_SHOWNORMAL, true);
-- восстанавливаем нашу программу
Window.Restore(Application.GetWndHandle());

Zloy_Gelud
Все сработало, класс! Но только одна загвоздка, при нажатии на красный крестик, программа PStart не отключается, а сворачивается в область уведомлений, где часы. И если ее там отключить, то тогда только менюшка вылетает из панели задач. Я так понимаю, что в сценарии надо задать действие на минимазацию PStart, а не на выход. Посмотрел на действия File, но так ничего похожего не нашел.

Блин, пацаны, как вы все разобрались со всеми этими командами, или вы все здесь программисты? Подскажите, хоть с чего начать, что почитать, чтобы начать понимать. А то надоело тупо копировать коды сценария.

Djon1970

Цитата:

Подскажите, хоть с чего начать, что почитать, чтобы начать понимать.

Для начала сходить по ссылкам в шапке
Для продолжения - работать с программой, в процессе все быстрее постигается, теория лишней не будет, конечно, но если ты не программист, то только практика
Освой сначала штатные функции, в большинстве этого бывает достаточно. Сложные функции, подключаемые скрипты, работу с API тебе не освоить, но это не всегда и требуется
"Дорогу осилит идущий!"
ЗЫ Вот простой пример, как разбираться:
Zloy_Gelud привел пример с косяком - нарушена логика, смотри:
- запускаем программу result = File.Run("AutoPlay\\Docs\\PStart.exe", "", "", SW_SHOWNORMAL, false);
- сворачиваем ее в трей Window.Minimize(Application.GetWndHandle());
- потом СНОВА ее скрываем Window.Hide(Application.GetWndHandle());
- и СНОВА запускаем! result = File.Run("AutoPlay\\Docs\\PStart.exe", "", "", SW_SHOWNORMAL, false);
- а напоследок пытаемся восстановить непонятно что... Window.Restore(Application.GetWndHandle());
Видишь, что нарушена логика?
Правильное решение дано проще:
- сворачиваем авторан
- запускаем второе приложение С ОЖИДАНИЕМ ЗАВЕРШЕНИЯ
- как только она завершена, разворачиваем авторан.
Простая логика доступна не только программистам

GOOSE

Цитата:

- запускаем второе приложение С ОЖИДАНИЕМ ЗАВЕРШЕНИЯ

Так значит, нельзя сделать, чтобы первое приложение развернулось при сворачивании второго без завершения?


Цитата:

", "", "",

А вот эти фиговинки, что обозначают?


Цитата:

Для начала сходить по ссылкам в шапке

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

Djon1970

Цитата:

А вот эти фиговинки, что обозначают?

Эти фиговинки означают, что нужно ОБЯЗАТЕЛЬНО прочесть файл помощи.
Когда кликаешь в на строчке какого-либо действия, открывается окно редактирования, где есть ссылка на конкретное место в хелпе...
Открываешь, и читаешь. Там английский, но ПРОМТ не отменили, транслэйтюру тоже работает Да и потом, там мало текста, и практически все понятно.
Без этого ты программу не осилишь никогда, будь ты хоть трижды программером.
Если нет времени прочитать хотя бы статьи, то зачем задавать вопросы, как этим научиться пользоваться?

GOOSE

Цитата:

Не откажите в помощи начинающему!
Суть проблемы: имею страницу проекта, на которой размещено два вэбобъекта (видео и форматированный текст). Видео предполагается от 3 до 15 мег... Можно ли ПРИ ПЕРВОНАЧАЛЬНОЙ загрузке проекта сделать прелоад видео файлов, стилей и прочего? И как правильно это реализовать?
Мануал не помог, форум индигорозе уже неделю не шлет пароль, млин... А спросить в реале не у кого... Выручайте!
Спасибо.

Прошло четыре года...

Цитата:

Эти фиговинки означают, что нужно ОБЯЗАТЕЛЬНО прочесть файл помощи.
Когда кликаешь в на строчке какого-либо действия, открывается окно редактирования, где есть ссылка на конкретное место в хелпе...
Открываешь, и читаешь. Там английский, но ПРОМТ не отменили, транслэйтюру тоже работает Да и потом, там мало текста, и практически все понятно.
Без этого ты программу не осилишь никогда, будь ты хоть трижды программером.
Если нет времени прочитать хотя бы статьи, то зачем задавать вопросы, как этим научиться пользоваться?

Наверно я так тоже через четыре года буду новичкам объяснять.
Спасибо за совет.

tavria2 -- проверь плз почту)


Добавлено:
Вопрос касающийся эстетики: Откуда лучше получать переменные (путь к лицензии, имя файла описания программы, емайл автора, etc) для авторана с софтом? Из ini-файла или чтоп переменные оставались забиты в проекте (в Глоб. ф-ях)?

Djon1970
Обиды, считаю, совершенно лишние, ибо:
- ключевая фраза моего вопроса "мануал не помог" И спрашивал я не о простой штуке, ответ на которую есть в хелпе.
- теперь поясню, почему отослал в хелп... Вот те кавычечки являются частью синтаксиса, который определен для любого действия. Некоторые действия имеют много параметров, некоторые их вообще не имеют... Если параметры есть, то они вписываются в кавычки, если в кавычках пусто, то есть параметр программером не определен, работает то, что предусмотрено по умолчанию в самой программе. ЧТО конкретно, можно определить только в хелпе, указанным выше способом.
Теперь ты понимаешь, что ты спросил, глядя на алфавит: "А что означают эти А, Б, В?"

ЗЫ Без обид.

Добавлено:
ЗЗЫ Смотрим в хелп действия File.Run:

Код:
number File.Run (string Filename,
string Args = "",
string WorkingFolder = "",
number WindowMode = SW_SHOWNORMAL,
boolean WaitForReturn = false )

Zloy_Gelud

Цитата:

Вопрос касающийся эстетики: Откуда лучше получать переменные

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

tavria2
ага..учтем..то бишь понятно..буем прикручивать ini или xml...

GOOSE
Да и не думал я обижаться. Здесь все сейчас для меня, как боги. А на богов разве обижаются.
Вот года через четыре, как начну проги писать.
Блин, только сегодня заметил, что у тебя на сайте Русский хелп AutoPlay Media Studio столько нового появилось.
А нет случайно оффлайновского варианта?