» Autoplay Media Studio

Парни!
Ну неужели нет решения?!

...неохота перегонять все в HTML...

GOOSE
Навскидку. Можно "замаскироваться" и поднимать не сам Ворд, а файло через OLE (как объект). Сам это делать в АМС не пробовал. На мой взгляд - громоздко. Уж больно формат мудрёный.
О! А может попробовать майкрософтовский самостоятельный продукт Word Viewer? И Ворд не нужен, как бы - оно все библиотеки с собой тянет, вроде.

а не проще ли перегнать все документы в FlashPaper2 и вставлять как флэш? Ну при условии, конечно, что документы не надо редактировать, а только смотреть... или в pdf накрайняк...

Добавлено:
GOOSE

Цитата:

Знать бы еще, какое дерево...

обычный элемент tree... по умолчанию ветки дерева распахиваются и скрываются по двойному клику (если жать не на [+] или [-] а на сам текст...), а хотелось бы по одинарному.

Slon_U

Цитата:

А может попробовать майкрософтовский самостоятельный продукт Word Viewer?

Пробовал. Не то, его устанавливать нужно... А нагружать пользователя нельзя в моем случае...

Придется, видимо, перегонять в другой формат...

GOOSE
А Ворд Вьювер уже установленный не получится замутить типа как "портабл"? Ежели нет - тогда у меня мысли умные закончились

Slon_U у меня не вышло...

GOOSE
Попробуй вот это:
_http://rapidshare.com/files/22256262/WV2003.rar.html
пасс: ruboard
Проверить 100% не могу - сам понимаешь, Офис-то установлен. А "чистой" системы нет. Ежели чего - отпишись в личку. По идее может хотеть каких-то библиотек. Т.е. распаковываешь куда-нить и запускай - смотри заработает или как.

Slon_U
У меня это же Спасибо. Решил по-быструхе перегнать в HTML

Подскажите Где б лекарство на версию 6.0.5.0 найти? Или где выкачать более старую версию но вылеченную...

toluolus
Это сюда

А кто-нибудь замечал глюк с плагином ClipBoard? Оказывается на Vista плагин "ковертит" кириллицу в крякозябли. Использовал в одном проекте стандартное копирование/вставку буфера через объект Input - подобных глюков не было.

Подсобите, плиз... Так как в настоящем программинге я 0, не могу даже простейшие API функции реализовать. Необходимо задать приложению свой внешний курсор.


Код: lpFileName = "C:\\Drum.ani"

hCursor = DLL.CallFunction("user32.dll", "LoadCursorFromFileA", lpFileName, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

DLL.CallFunction("user32.dll", "SetCursor", hCursor, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

Привет!
Нид хэлп!
Есть сборник видеофайлов, видео проигрывается во встроенном на страницу видеообьекте. Проблема заключается в том, что все фильмы с разным уровнем звука. Пытался сделать все культурно - регулировку звука видео при помощи слайдера, хотел приспособить на это дело слайдер регулировки звука из пресетов APMS. НО ничего не работает.
Кто-нибудь решал подобное? Если да, то каким образом? Поделитесь, пожалуйста!!


Добавлено:

Все получилось!!!
но одна проблемка: при запуске видео идет с полным звуком, а слайдер находится на нулевом положении. При перемещении ползунка звук регулируется - но получается нелогично - на нулевом положении слайдера полный звук. В чем моя ошибка?

Добавлено:
Извините за беспокойство.
Все сделал

Kindly

Цитата:

lpFileName = "C:\\Drum.ani"
hCursor = DLL.CallFunction("user32.dll", "LoadCursorFromFileA", lpFileName, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
DLL.CallFunction("user32.dll", "SetCursor", hCursor, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

Во первых, при вызове DLL строковые параметры нужно заключать в двойные кавычки, иначе они будут рассматриваться, как числовые.
Код: lpFileName = "C:\\Drum.ani"
hCursor = DLL.CallFunction("user32.dll", "LoadCursorFromFileA", "\""..lpFileName.."\"", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

Всем привед
Помогите пожалста...
Как сделать так, чтоб в Menu Bar (допустим Menu > SubMenu > ...) отображались все CD-ROMы (вместо многоточия)

Добавлено:
...код, который находит все сидюки я написал, а вот как сделать, чтоб они отображались в Menu Bar, не знать(.

А вот так вот если:
Мне надо, чтобы при нажатии на кнопку открывалось просто папка с файлами.
Как сделать?

Timur1976

Цитата:

чтобы при нажатии на кнопку открывалось просто папка с файлами.
Как сделать?

На самой кнопке в событии On Click

Код:
-- Ф-ция обзор папки "!DRIVERS"
function Browser_Drivers()
if (File.DoesExist(_SourceFolder)) then -- Файл найден
File.ExploreFolder(_SourceFolder, SW_SHOWNORMAL); -- Запуск инсталлятора без ожидания завершения
Application.Exit(0); -- Выйти из проекта
else -- Файл не найден
Dialog.Message("Ошибка", "Папка с драйверами не найдена!", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1); -- Сообщение об ошибке
end
end

-- Переменные
_SourceFolder = "\\!DRIVERS"; -- Полное имя папки с драйверами

Browser_Drivers(); -- Вызов Ф-ция обзор папки "!DRIVERS"

DenVl
Цитата:

Как сделать так, чтоб в Menu Bar (допустим Menu > SubMenu > ...) отображались все CD-ROMы (вместо многоточия)

Код: -- tCD - таблица CD-приводов, должна уже существовать

-- Добавляем/заменяем подменю для отображения CD-приводов
function AddItem(cText, nID, lChecked, lEnabled, nSubMenu)
tblMenu[1].SubMenu[1].SubMenu[nSubMenu] = {}; -- создаем пункт подменю
tblMenu[1].SubMenu[1].SubMenu[nSubMenu].Text = cText; -- текст пункта подменю
tblMenu[1].SubMenu[1].SubMenu[nSubMenu].ID = nID; -- идентификатор пункта подменю
tblMenu[1].SubMenu[1].SubMenu[nSubMenu].Checked = lChecked; -- отмеченный/неотмеченный пункт подменю
tblMenu[1].SubMenu[1].SubMenu[nSubMenu].Enabled = lEnabled; -- активный/неактивный пункт подменю
end

tblMenu = Application.GetMenu(); -- получаем структуру меню приложения
if (tCD) then -- если есть CD-приводы            
tblMenu[1].SubMenu[1].SubMenu = {}; -- создаем пустое подменю
nItem = 1; -- порядковый номер пункта подменю
for n, cText in tCD do -- в цикле создаем пункт подменю для каждого CD-привода
nID = 1000 + nItem; -- уникальный идентификатор для каждого пункта подменю
AddItem(cText, nID, false, true, nItem); -- заполняем структуру пункта подменю
nItem=nItem+1; -- наращиваем порядковый номер пункта подменю
end    
Application.SetMenu(tblMenu);     -- сохраняем меню
end

Еще вопрос.
Нужно следующее:
1. Проверить указанную папку на наличие определенного файла (допустим, 1.дат)
2. Если файл в наличии, проверить дату создания файла
3. Если дата создания отличается от нужной, тогда... допустим, выход из приложения

Наваял такой код:

1. found = File.Find (_SourceFolder, "1.dat", true, false, nil, nil);
2. if (Application.GetLastError() == 0) then
3. attrib = File.GetAttributes(_SourceFolder .. "\\1.dat");
4. CrDate = attrib.CreationDate;
5. NDate = "20070331";
6.    if strCreationDate ~= NDate
7.    then
8.    Application.Exit ();
9.    end
10. else
11. Application.Exit ();
14. end

Выдает ошибку:
line 4 attempt to index global 'attrib' (a nil value)
Я неправильно пишу команду определения даты создания файла?
Или в чем тут загвоздка?
    

countryman
У тебя скорее всего не найден файл.
Цитата:

1. found = File.Find (_SourceFolder, "1.dat", true, false, nil, nil);
2. if (Application.GetLastError() == 0) then

Этот код возвратит GetLastError() == 0 в любом случае, найден файл или нет, потому что не найденный файл это результат, а не ошибка дествия File.Find. Для проверки существования файла используй File.DoesExist.

Цитата:

4. CrDate = attrib.CreationDate;
5. NDate = "20070331";
6. if strCreationDate ~= NDate

Это тоже работать не будет, т.к. сравниваешь разные форматы. См. справку.

Пример:
Код: cFileName = _SourceFolder.."\\1.dat";
NDate = "2007-03-31";
lExist = File.DoesExist(cFileName);
if (lExist) then
tAttr = File.GetAttributes(cFileName);
cCreationDateISO = tAttr.CreationDateISO;
if (String.Left(cCreationDateISO, 10) ~= NDate) then
Application.Exit(0);
end        
else
Application.Exit(0);
end

Спасибо!
Все отлично работает!

tavria2
Спасибо, но отрабатывает несовсем корректно: в подменю добавляется только один из 2 CD-приводов, возможно это у меня чтот с кодом...

Код:
-- get the drives on the system
tblDrives = Drive.Enumerate();

-- walk the table to process each drive
for n, DriveLetter in tblDrives do
    --Get the drive type
    nType = Drive.GetType(DriveLetter)
    
    -- and add the information to the listbox.
    if nType == 5 then
tCD = {DriveLetter}
end
end

DenVl

Цитата:

Таблицу CD приводов я вообще правильно сооставил?

Нет. У тебя в таблицу добавляется только один элемент, который перезаписыватся в цикле. По этому у тебя в меню только один привод.

Код: tCD = {};
tDrive = Drive.Enumerate();
if (tDrive) then
for n, cDrive in tDrive do
nType = Drive.GetType(cDrive);
if (nType == DRIVE_CDROM) then
tCD[n] = cDrive;        
end
end
end

tavria2
Хм...не отрабатывает...выдает ошибку:

Цитата:

attempt to index global 'tCD' (a string value)

P.S.Опять баги в сборке наверно.

DenVl

Цитата:

Хм...не отрабатывает...выдает ошибку:

Sorry, писал по памяти - забыл создать пустую таблицу .
Код поправил.

tavria2
Теперь отлично работает, еще раз пасибо.

tavria2
Еще если можно небольшой вопросик...
Необходимо чтоб при клике на выбранный привод в Menu Bar рядом ставилась галочка (Checked) и буква выбранного привода заносилась в реестр...
Н-да получился несовсем маленький вопросик, но...помоги опять

DenVl

Цитата:

Необходимо чтоб при клике на выбранный привод в Menu Bar рядом ставилась галочка

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

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

Добавлено:
Вопрос касается случая, когда исполняемый файл находится на винчестере.
Использовал команду File.DeleteOnReboot (_SourseFilename)
Не хочет.
Как еще можно поступить?

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