Вверх ↑
Этот топик читают: Гость
Ответов: 875
Рейтинг: 322
#1: 2009-04-09 14:59:16 ЛС | профиль | цитата
Если просто кнопкой, то временные файлы удаляются, а вот так в папке темп все в файлы остаются, что делаю не так? code_12669.txt Звуков нет, так как получается слишком много символов.
карма: 1

0
файлы: 1code_12669.txt [744B] [224]
Разработчик
Ответов: 4698
Рейтинг: 426
#2: 2009-04-09 15:30:40 ЛС | профиль | цитата
А так?
-простите, не то выложил-
------------ Дoбавленo в 15.25:
Он, кстати, после проигрывания тоже не удаляется
------------ Дoбавленo в 15.30:
Если я правильно понял, он не удаляется, т.к. используется проигрывателем, как только взять другой файл(или не проигрывать его вообще) то его можно удалить!
карма: 10
0
Ответов: 1088
Рейтинг: 112
#3: 2009-04-09 15:31:21 ЛС | профиль | цитата
Чтобы всё работало надо поправить MediaPlayer(Ctrl+F) - после строки 56 добавить FMedia.Close;
ЗЫ:
Th := NewTimer(300);
Th.OnTimer := _OnEnd;
-улыбнуло))
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 4698
Рейтинг: 426
#4: 2009-04-09 15:42:02 ЛС | профиль | цитата
Скинеш исходник? А то чтот не получается, все равно не работает?
карма: 10
0
Ответов: 1088
Рейтинг: 112
#5: 2009-04-09 15:48:54 ЛС | профиль | цитата
Выделяеш MediaPlayer, жмеш Ctrl+F
находиш th.Enabled := false;
и _hi_OnEvent(_event_onEndPlay);

между ними вставляеш FMedia.Close;
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 4698
Рейтинг: 426
#6: 2009-04-09 16:01:05 ЛС | профиль | цитата
Спасибо, получилось!
карма: 10
0
Ответов: 4641
Рейтинг: 334
#7: 2009-04-09 16:12:18 ЛС | профиль | цитата
Sniper36 писал(а):
Выделяеш MediaPlayer, жмеш Ctrl+F
находиш th.Enabled := false;
и _hi_OnEvent(_event_onEndPlay);

между ними вставляеш FMedia.Close;

Еще бы это в компоненте на SVN подправить, чтобы потом не вспоминать.

------------ Дoбавленo в 16.12:
или событие добавить дополнительное onEndPlay_Close
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 1088
Рейтинг: 112
#8: 2009-04-09 16:13:23 ЛС | профиль | цитата
Ravilr писал(а):
или событие добавить дополнительное onEndPlay_Close

А это ещё нафига
После правки onEndPlay становится эквивалентно onEndPlay_Close
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 4698
Рейтинг: 426
#9: 2009-04-09 16:27:17 ЛС | профиль | цитата
Были предложения:
1. Поправить исходник SVN
2. Не делать первого, а добавить событие onEndPlayClose с параметром Close
А это разные вещи, не будет сразу 1 и 2!
карма: 10
0
Ответов: 4641
Рейтинг: 334
#10: 2009-04-09 16:36:23 ЛС | профиль | цитата
Sniper36 писал(а):
После правки onEndPlay становится эквивалентно onEndPlay_Close

да. че то не то ляпнул.
может так
В свойствах элемента предоставить пользователю выбор, освобождать файл после onEndPlay или нет.
А зачем это, спросишь! Пока не придумал.

------------ Дoбавленo в 16.36:
Assasin писал(а):
Были предложения:
1. Поправить исходник SVN
2. Не делать первого, а добавить событие onEndPlayClose с параметром Close
А это разные вещи, не будет сразу 1 и 2!

Assasin, сам то понял что написал? Я нет. Ладно я после ночи...могу и не то написать.....
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 1088
Рейтинг: 112
#11: 2009-04-09 16:38:28 ЛС | профиль | цитата
Такс... На случай если админы скажут что так и задумывалось можно делать так:

Add(MainForm,6154854,448,245)
{
Width=162
Height=209
}
Add(Button,8105592,448,301)
{
Left=45
Top=65
link(onClick,14759366:doNext,[])
}
Add(TempFileStream,7640388,630,301)
{
Extention=".wav"
link(onCreate,5416835:##add,[])
}
Add(ArrayRW,2379278,560,301)
{
link(onRead,7640388:doCreate,[])
link(Array,7779410:Array,[])
}
Add(Counter,14759366,504,301)
{
Max=3
Default=-1
link(onNext,2379278:doRead,[])
}
Add(StreamArray,7779410,560,245)
{
Streams=['Stream'=[],'Stream'=[],'Stream'=[],'Stream'=[],'Stream'=[]]
}
Add(MultiElementEx,5416835,686,301)
{
link(FileName,7640388:TempFName,[(692,289)(664,289)(664,345)(636,345)])
link(onEndPlay,16016705:doTimer,[])
}
BEGIN_SDK
Add(EditMultiEx,11967348,21,21)
{
WorkCount=#5:##add|7:##clear|
EventCount=#9:onEndPlay|
DataCount=#8:FileName|
Point(##add)
Point(##clear)
link(##add,9618379:doPlay,[(45,27)(45,55)])
}
Add(MediaPlayer,9618379,84,49)
{
link(onEndPlay,11967348:onEndPlay,[(218,55)(218,27)])
link(FileName,11967348:FileName,[(90,35)(27,35)])
}
END_SDK
Add(Timer,16016705,735,301)
{
Interval=1
link(onTimer,6844729:doEvent1,[])
}
Add(Hub,6844729,784,301)
{
link(onEvent1,5416835:##clear,[(854,307)(854,278)(674,278)(674,314)])
link(onEvent2,7640388:doDelete,[(810,314)(810,352)(611,352)(611,314)])
}


карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 875
Рейтинг: 322
#12: 2009-04-09 17:11:44 ЛС | профиль | цитата
Sniper36, спасибо. Кодом лучше, про вставку можно и забыть, а потом пожинать плоды несовместимости. Если я правильно понял то при помощи Мультика решается проблема - файл не может быть удален, так как занят другим приложением.
карма: 1

0
Администрация
Ответов: 15295
Рейтинг: 1519
#13: 2009-04-09 17:20:52 ЛС | профиль | цитата
после такой правки будет невозможно например повторно проиграть видеоролик или музыку - пользователю придется указывать данный файл повторно
карма: 27
0
Ответов: 4641
Рейтинг: 334
#14: 2009-04-09 17:24:19 ЛС | профиль | цитата
Dilma писал(а):
после такой правки будет невозможно например повторно проиграть видеоролик или музыку - пользователю придется указывать данный файл повторно

Ravilr писал(а):
В свойствах элемента предоставить пользователю выбор, освобождать файл после onEndPlay или нет.
А зачем это, спросишь! Пока не придумал

вот как раз для таких случаев, когда пользователю повторно проигрывать файл не надо, а надо по окончании удалить.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 4698
Рейтинг: 426
#15: 2009-04-09 17:45:02 ЛС | профиль | цитата
Я еще до этого хотел написать то же самое а написал:
Assasin писал(а):
Были предложения:
1. Поправить исходник SVN
2. Не делать первого, а добавить событие onEndPlayClose с параметром Close
А это разные вещи, не будет сразу 1 и 2!

Даже не понял почему
карма: 10
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)