VPF::Как остановить? - Форум программистов

Ksen

Дата 21.7.2006, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 24.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Всем здасте!))
Подскажите пожалуйста, как лучше?
У меня есть видео ролик сделанный во flash, соответственно с расширением swf.
В окне с помощью компонент Jedi, я его нормально проигрываю....но он у меня ходит по кругу... Мне нужно, что бы он проигрывался до конца, а когда проиграется окно закрывалось....автоматически...

Кроме таймера мне в голову, пока, ничего не приходит....Может кто-нибудь подскажет как лучше сделать..... smile

Alexeis

Дата 25.7.2006, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Ksen, подбрось ссылочку на компонент.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Ksen

Дата 25.7.2006, 16:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 24.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет

http://www.delphi-jedi.org/APILIBRARY:1441484064

smile

может...может...а с какими компонентами лучше работать c flash....
Ведь всего-то нужно...открыть файл, проиграть его и закрыть....

Alexeis

Дата 25.7.2006, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Я не могу найти этот компонент, как он назывется?

--------------------

Ksen

Дата 27.7.2006, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 24.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет

alexeis1, Спасибо большое, что отозвался))

У меня получилось)) smile

Выход найден с помощью ShockwaveFlash!!!

Код


procedure TForm7.FormActivate(Sender: TObject);
begin
Height:=600;
Width:=800;
ProgressBar1.Visible:=false;
ShockwaveFlash1.LoadMovie(0, Form1.Dir+'film.swf');
ProgressBar1.Min:=0;
ProgressBar1.Position:=0;
ProgressBar1.Max:=ShockwaveFlash1.TotalFrames;
ProgressBar1.Refresh;
Timer1.Enabled:=True;
end;

procedure TForm7.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ShockwaveFlash1.CurrentFrame;
ProgressBar1.Refresh;
IF ProgressBar1.Position=ProgressBar1.Max-1 Then
Begin
 Timer1.Enabled:=False;
 Form7.Close;
End;
end;

Какой компонентой пользовалась в jedi...уже и не помню....Исходник, случайно, потерялся)))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »