Indigo Rose AutoPlay Media Studio (часть 2) - [82] :: Программы

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

Код:

local strFilter = "Image Files|*.bmp;*.pcx;*.tga;*.wmf;*.png;*.jpg;*.tif;*.psd;*.gif|*.pcd|";
tblImages = File.Find("AutoPlay\\Images\\foto", strFilter, true, true, nil, nil);
if(tblImages)then
    if(tblImages[1] ~= "CANCEL")then

        -- Store last used folder for convenience
        local tblPath = String.SplitPath(tblImages[1]);
        local strLastPath = tblPath.Drive..tblPath.Folder;
        Application.SaveValue("SlideshowMakerTemplate", "LastOpenFolder",strLastPath);

        -- Add the selected file(s) to the slideshow
        for i,strFilename in tblImages do
            AddImageToSlideShow(strFilename);
        end

    end
end
-- sPathDir
FillLB("sPathDir");
-- Update the preview image
UpdatePreview();

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

Код:

audioFile = Dialog.FileBrowse(true, "Open File", _DesktopFolder, "Audio Files (.ogg, .wav, .aif, .aiff, .raw, .mp3 )|*.ogg;*.wav;*.aif;*.aiff;*.raw;*.mp3|", "", "", false, true);
if (audioFile[1] ~= "CANCEL") then
Audio.Load(CHANNEL_BACKGROUND, audioFile[1], true, false);
end

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

при замене кода на 2-й странице

Код:

-- Get the last browsed path from the Registry as a convenience.
local strFolder = Application.LoadValue("SlideshowMakerTemplate", "LastOpenFolder");
-- If there is no path stored, defaulkt to My Documents
if(strFolder == "")then
    strFolder = Shell.GetFolder(SHF_MYDOCUMENTS);
end

-- Show the file open dialog.
local strFilter = "Image Files|*.bmp;*.pcx;*.tga;*.wmf;*.png;*.jpg;*.tif;*.psd;*.gif|*.pcd|";
local tblImages = Dialog.FileBrowse(true,"Locate Images",strFolder,strFilter,"","",true,true);

if(tblImages)then
    if(tblImages[1] ~= "CANCEL")then

        -- Store last used folder for convenience
        local tblPath = String.SplitPath(tblImages[1]);
        local strLastPath = tblPath.Drive..tblPath.Folder;
        Application.SaveValue("SlideshowMakerTemplate", "LastOpenFolder",strLastPath);

        -- Add the selected file(s) to the slideshow
        for i,strFilename in tblImages do
            AddImageToSlideShow(strFilename);
        end

    end
end

-- Update the preview image
UpdatePreview();

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

Модерирует : gyra, Maz
Widok (30-01-2009 12:11): Лимит страниц. Продолжаем здесь.	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102