![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите разобраться с потоком [D6, XP]
Artem © (2008-01-25 13:21:00)Прошу помощи.
Задача: вместе с проигрыванием FLASH-ролика передвигать TrackBar.
Есть поток.
procedure TMoveBar.Execute;
begin
while not Terminated do
synchronize(movebar);
end;
procedure TMoveBar.movebar;
begin
form1.trbar.Position:=form1.flash1.CurrentFrame;
end;
В FormShow:
flash1.Movie:='e:\abc.swf';
trbar.Max:=flash1.TotalFrames;
flash1.Stop;
co:=TMoveBar.Create(true);
При нажатии на кнопку "Воспроизвести":
flash1.Play;
co.resume;
co.Priority:=tpLower;
Проигрывается один фрейм и останавливается. В чем ошибка?
Artem (2008-01-25 14:16:00) [21]
> так может они другу и мешают?
Не должны вроде как. Убрал - все равно не работает, как требуется
clickmaker (2008-01-25 14:15:00) [22]
> [24] Artem (25.01.08 14:14)
так может они другу и мешают?
flash1.GotoFrame(trbar.position); <-> trbar.Position:=form1.flash1.CurrentFrame
Artem (2008-01-25 14:14:00) [23]
> а события TrackBar как-то обрабатываются?применительно к
> flash1
Да, в OnChange:
flash1.GotoFrame(trbar.position);
clickmaker (2008-01-25 14:13:00) [24]а события TrackBar как-то обрабатываются?
применительно к flash1
Artem (2008-01-25 14:10:00) [25]
> копирующие примеры от Архангельского
Ошибаешься на все 100%. У меня его книги нет.
Artem (2008-01-25 14:09:00) [26]
> Ну нет и нет. Разбирался бы почему его нет.
Я пришел за советом - может у кого глаз наметан - сразу увидит ошибку или подскажет как лучше сделать. В комментировании задачи не нуждаюсь.
Сергей М. (2008-01-25 14:08:00) [27]
> Вопросы убивают
Тупицы, бездумно копирующие примеры от Архангельского, еще больше убивают. Наповал. Поверь - не ты один труп)
Сергей М. (2008-01-25 14:06:00) [28]
> Artem (25.01.08 14:01) [18]
Ну нет и нет. Разбирался бы почему его нет.
Но с какого перепугу тебя понесло в потоки и таймеры-то ?)
Волшебные слова "поток" и "таймер" тебе Архангельский впарил, ттипо, юзай и все будет "завсегда везде ништяк", как и полагается настоящему "джедаю" ?)
Artem (2008-01-25 14:01:00) [29]Вставляю в OnProgress trbar.Position:=flash1.CurrentFrame; - результата нет
Palladin (2008-01-25 13:56:00) [30]вперед и с песней
Artem (2008-01-25 13:53:00) [31]
> а события у него есть какие нибудь?
OnProgress есть
clickmaker (2008-01-25 13:51:00) [32]и у него нет событий, типа FrameChanged или что-то наподобие?
чтобы двигать ползунок вместе с ним
Palladin (2008-01-25 13:50:00) [33]а события у него есть какие нибудь?
Artem (2008-01-25 13:49:00) [34]
> а что такое flash1?
TShockwaveFlash
clickmaker (2008-01-25 13:48:00) [35]а что такое flash1?
Artem (2008-01-25 13:45:00) [36]
> А если без таймеров и без потоков ? И безо всяких там тракбаров
> ?
Вопросы убивают. Если да кабы. Мне надо, чтобы вместе с вопросизведением ролика двигался тракбар. В самом начале об этом сказал. Что значит "если без"???
:)
Artem (2008-01-25 13:43:00) [37]
> Сергей М. ©
Всмысле?
Сергей М. (2008-01-25 13:42:00) [38]
> Artem (25.01.08 13:29) [5]
А если без таймеров и без потоков ? И безо всяких там тракбаров ?
Artem (2008-01-25 13:41:00) [39]Народ, ну мы что только вопросами ограничились? Помогите человеку :)
Artem (2008-01-25 13:37:00) [40]Ну что? В чем ошибся?