VPF::Как закрыть файл в TShockwaveFlash ? - Форум программистов

Данкинг

Дата 26.5.2009, 02:18 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Есть ActiveX контрол TShockwaveFlash, которым открывается .swf - файл:

Код


TShockwaveFlash1.Movie:='c:\aa.swf';

А как теперь этот открытый файл закрыть, т.е. чтобы на компоненте не было никакой картинки, как изначально, когда никаких файлов не загружено?

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

There's nothing left but silent epitaphs.

Keeper89

Дата 26.5.2009, 02:55 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Пробовал - не увидел никаких методов выгрузки.

Вижу 2 варианта (или):
1) загружать "пустой" флеш-файл (с 1 белым кадром);
2) уничтожать объект TShockwaveFlash1 и создавать его заново.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Данкинг

Дата 26.5.2009, 09:55 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(Keeper89 @ 26.5.2009, 03:55

)

загружать "пустой" флеш-файл (с 1 белым кадром);

Ну это придётся файл с собой таскать этот, т.е. вариант не годится.

Цитата(Keeper89 @ 26.5.2009, 03:55

)

уничтожать объект TShockwaveFlash1 и создавать его заново.

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

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

There's nothing left but silent epitaphs.

Keeper89

Дата 26.5.2009, 10:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Цитата(Данкинг @ 26.5.2009, 09:55

)

Ну это придётся файл с собой таскать этот, т.е. вариант не годится.

Думаю это тоже вариант, файл будет очень маленький, к тому же можно запихнуть его в файл ресурсов.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Rrader

Дата 26.5.2009, 10:59 (ссылка)

(голосов:1)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  with ShockWaveFlash1 do
  begin
    { Пробел }
    Movie := ' ';
    { Установить белый цвет }
    BGColor := 'FFFFFF';
    { Восстановить цвет фона по умолчанию }
    BackGroundColor := -1;
  end;
end;

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

Let's do this quickly!
Rest in peace, Vit!

Данкинг

Дата 26.5.2009, 12:10 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Rrader, дома ночью проверю, если получится, то +1. smile

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

There's nothing left but silent epitaphs.

Данкинг

Дата 26.5.2009, 21:39 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Да, получилось. smile

Это сообщение отредактировал(а) Данкинг - 26.5.2009, 21:40

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

There's nothing left but silent epitaphs.

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