Flash в Делфийной проги без FlashPlayer a

← →
CAHEK © (2004-04-04 23:55) [0]

Можно ли как-нибудь запихать *.swf в DLL"ку или в непосредственно саму прогу так,чтобы все радотало без FlashPlayer"a,(И можно ли такое же сделать с Java-апплетом)?

← →
GanibalLector © (2004-04-05 02:37) [1]

Статья же есть.На этом же сайте,мля.
Посмотреть в лом???

← →
CAHEK © (2004-04-05 07:38) [2]

Чтото я ее не на нашел,да и суть вопроса:"Можно ли как-нибудь запихать *.swf в DLL"ку или в непосредственно саму прогу так,чтобы все радотало без FlashPlayer"a,(И можно ли такое же сделать с Java-апплетом,только без JVM)?"

← →
xShadow © (2004-04-05 09:20) [3]

Запихнуть можно, но не без Flash"а.
http://www.delphiflash.com

← →
tv © (2004-04-05 10:32) [4]

ищешь файл flash.ocx, создаешь инсталляцию для своей проги с помощью какого-нибудь инсталлятора (я использовал WISE INSTAll MASTER), пихаешь в инсталляцию помимо своей проги и flash.ocx с параметром саморегистрации - и у тебя есть флэш-плейер на тачке, где тебе надо прокрутить флэш-ролик. Этот способ скажем в лоб. А можешь просто запихнуть flash.ocx в дллку как ресурс (в свой екзешник не рекомендую из-за увеличения размера проги) и проверить если флэш-плейер не установлен на машине, то извлечь файл из ресурса и зарегистрировать файл flash.ocx с системе как простую дллку с помощью утилиты REGSVR32.EXE. реализация за тобой. как запихнуть файл в ресурс есть на это м сайте. использовать утилиту регистрации можно через API функцию ShellExecute.

← →
Cash © (2004-04-05 18:59) [5]

Я вон ваще умняка дал :)))))). У меня Д6; беру, в меню установки компонентов ActiveX, устанавливаю компонент ShockWaveFlash.
Далее, шлеп на форму и в свойствах компонента Move указываю полный путь к файлу *.swf. Потом, если надо, AutoPlay -> true, а если нет, то Flash.Play;
Ну как такой путь.
Да, если у тебя Flash не установлен, то и не ищи ShockWaveFlash среди устанавливаемых.

← →
xShadow © (2004-04-06 12:05) [6]

{Register the OCX File} // set LibraryDir // LibraryDir := ExtractFilePath(Application.ExeName); // or // LibraryDir := SystemDir; aHandle := LoadLibrary(PChar(LibraryDir + "flash.ocx")); if ( aHandle >= 32 ) then begin aFunc := GetProcAddress( aHandle, "DllRegisterServer" ); if Assigned( aFunc ) then begin GetShortPathName( PChar(LibraryDir + "flash.ocx"), aShortPath, sizeOf(aShortPath)); aCommand := Format( "%s\regsvr32.exe /s %s", [SystemDir, aShortPath] ); WinExecAndWait32( aCommand, SW_HIDE ); end; FreeLibrary( aHandle ); end;

Ещё вариант установки плеера
закачиваешь http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab
раскрываешь, смотрим. Там 4 файла есть inf есть ocx есть даже EXE

Мне не наде себе FlashPlayer устанавливать,надо так,чтобы те у кого его нет без проблем SWF"ку,которая в DLL"ке,смотрели.
И еще если компонент TShockWaveFlash и является FlashPlayer"ом (У него свойства,методы и т.д. говорят сами за себя),то можно ли без настоящего FlashPlayer"a SWF"ки в проге через него смотреть????

Блин!Что-то у меня из EXE"шника SWF"ку не грузит,TSockwaveFlash пустой!Какмне грамотно SWF"ку пихнуть (наверное через LoadResource(),но я синтаксиса не знаю,а в Delphi"йном HELP"е ничего нет!).
Да,кстати если уж тема про Flash зашла,знает ли кто-нидудь где можно путный учебник по ActionScript"у закачать,буду очень благодарен!

Flash в Делфийной проги без FlashPlayer a Найти похожие ветки