| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите разобраться с потоком [D6, XP]

Страницы:   < 1 2 3 >

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;

Проигрывается один фрейм и останавливается. В чем ошибка?

---

clickmaker   (2008-01-25 13:29:00) [41]

> while not Terminated do
>  synchronize(movebar);

всем привет от Архангельского )

---

Artem   (2008-01-25 13:29:00) [42]

Ну а как? Через Timer делал - та же ерунда: проигрывается один фрейм и останавливается.

---

Сергей М.   (2008-01-25 13:26:00) [43]

))

Дураки мыслят одинаково)

---

Сергей М.   (2008-01-25 13:25:00) [44]

Зачем вообще здесь понадобился доп.поток ?

---

Palladin   (2008-01-25 13:24:00) [45]

поток то тебе зачем?

---

Ega23   (2008-01-25 13:23:00) [46]

А зачем тут поток?
Тем более такой?

---

Страницы:   < 1 2 3 >

Наверх