интеграция flash.ocx

[cartman315]

Здраствуйте.Большая просьба не пинать знаю что этот вопрос наверняка обсуждался на многих форумах, но найти ничего конкретного так и не смог, везде предлагают компонент TFlashPlayerControl, который стоит денег .
Вопрос следующий:
Имеем програмное обеспечение написанное на делфи с интерфейсом в виде флэш-ролика. Как можно интегрировать flash.OCX в прогу (желательно в качестве ресурса, но подойдет и вариант рядом с exeшником его положить), чтобы его функциями можно было пользоваться в проекте независимо от того какая версия флеш-плеера установлена в системе. Буду благодарен за любые ответы и ссылки по данному вопросу.

[mihali4]

Мой любимый хэлп Дельфей, смотрим "Using the Import ActiveX dialog"...

[cartman315]

Возможно я не совсем корректо объяснил ситуацию, но меня интересует интеграция файла flash.ocx именно в приложение, а не импортирование активХ в делфи.
Просто возникает такая проблема: если на компе более новая версия этого файла (н-р: flash9e.ocx), то данные из приложения во флеш-ролик не передаются, т.е. SetVariable перестает работать.

[mihali4]

Оригинально. Я думал, вы меня поймете.
Окромя VCL, дельфи может использовать все возможности операционной системы, не так ли?
А вот дабы избежать проблемы более новых версий используемых системой компонентов вам и нужно использовать именно ссылки на них. И то - это не гарантия...
Извините, но если вы стали использовать новую версию винды, у которой изменились адреса вызовов каких-либо апишных функций... Вы к кому аппелировать будете - к Майкрософту?
Увы, участь программиста незавидна - ему все все время приходится подстраиваться под изменения среды, ддя которой его программы разрабатываются. От этого никуда не денешься. (Ну только если разработать свою, более привлекательную, нежели Windows, операционку, что, опять-таки "УВЫ" - нереально (уж слишком все привыкли...)).
Я, невзирая на более, чем 20-летний опыт работы в области программирования, за это не возьмусь (прошел, знаете ли, период, когда "я все могу, только скажите - что нужно-то?")
Именно поэтому приходится делать ссылки...
А там - как бог пошлет...
Увы, другой, более эффективный способ, мне неведом... Буду весьма рад, если молодые коллеги меня не то чтобы опровергнут, но подправят...
Очень надеюсь, ибо на нашем форуме светлых голов ох, как хватает!

[Stilet]

Ух, Михалыч, тя понесло...
По теме: мне кажется что луче будет перевести флеш-ролик в экзешник и запускать его как "стороннее приложение". При необходимости можно даже вклеить его окно в свою форму после запуска, а насчет импорта, тут ИМХО без него не обойтись, разве что делать это програмно, жаль что не помню точно как это но погуглив можно найти об этом статью.

Вот тут повспоминал: мол мона загружать ОСХ через LoadLibrary и вызвать из нее DllGetClassObject с GUID-ом необходимого класса.
Ну еще CoCreateInstance() должно помочь

[cartman315]

Сообщение от mihali4

А вот дабы избежать проблемы более новых версий используемых системой компонентов вам и нужно использовать именно ссылки на них.
Именно поэтому приходится делать ссылки...

А можно поподробнее про ссылки

[mihali4]

Не берусь гарантировать 100% результат (вдруг конфликты обнаружатся?).
Но ведомый мне вариант "рядом" таков:

{Тот .OCX, который вы хотите использовать, 
должен быть в каталоге вашей программы или скопирован 
в системную папку. Его нужно зарегистрировать}
{Регистрация OCX}
// Выбираем тот или иной каталог
// 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;

Теперь ваша программа будет ссылаться на вами же установленный .ОСХ...
Можете развить тему и предусмотреть в своей программе поиск самой новой версии на
ShockwaveFlash
Правда, отдельный вопрос - как его "доставать" из инсталлятора...

Второй вариант - в ресурсах. На примере связанной пары:
Пишем простой текстовик с именем flash.rc:
SHOCKWAVEFILE RCDATA myfile.swf
SHOCKWAVEOCX RCDATA swflash.ocx
и компилируем его во flash.res.
Дальше - больше:

uses 
  ShockwaveFlashObjects_TLB; // чтобы автоматом использовался

implementation 

{$R *.DFM} 
{$R flash.res} // наш новый ресурс 
{...} 

procedure TForm1.FormCreate(Sender: TObject); 
var 
  SystemDir: array[0..MAX_PATH] of Char; 
  SWFDir, AppDir: string; 
  Fres: TResourceStream; 
  Ffile: TFileStream; 
begin 
  GetSystemDirectory(@SystemDir, MAX_PATH); 
  SWFDir := SystemDir + '\macromed\flash\'; 
  GetDir(0, AppDir); // наш каталог 
  //проверяем существование swflash.ocx 
  if FileExists(SWFDir + 'swflash.ocx') = False then 
  begin 
    //при необходимости создаем каталог 
    {$i-} //чтоб компилятор поменьше ругался 
    MkDir(SystemDir + '\macromed'); 
    MKDir(SystemDir + '\macromed\flash'); 
    {$i+} 
    Fres := TResourceStream.Create(0, 'SHOCKWAVEOCX', RT_RCDATA); 
    Ffile := TFileStream.Create(SWFDir + 'swflash.ocx', fmCreate); 
    Ffile.CopyFrom(Fres, Fres.Size); 
    Fres.Free; 
    Ffile.Free; 
    //тоже регистрируем
    WinExec(PChar('regsvr32 /s ' + SWFDir + 'swflash.ocx'), SW_HIDE); 
  end; 
  // вытаскиваем флэш из ресурса 
  Fres := TResourceStream.Create(0, 'SHOCKWAVEFILE', RT_RCDATA); 
  Ffile := TFileStream.Create('flashmovie.swf', fmCreate); 
  Ffile.CopyFrom(Fres, Fres.Size); 
  Fres.Free; 
  Ffile.Free; 
  //сопоставляем флэш объекту TShockwaveFlash 
  FlashMovie.Movie := AppDir + '\flashmovie.swf'; 
end; 
//Можно еще сделать FlashMovie.Menu:=False; чтоб меню не вываливалось

[cartman315]

To mihali4:
Большое спасибо.
А перед регистртрацией flash.ocx нужно отменять регистрацию flash9e.ocx?
Еще один вопрос:
После обновления флеш-плеера, в Делфи не удается импортировать старый активХ компонент, т.е. заходим в Component-> Import ActiveX Control и пытаемся переустановить ShockwaveFlash...Ничего не выходит он даже удалятся не хочет. Чего делать?

[Obsever0]

Можно как-нибудь обойти регистрацию в реестре? Ведь может не быть прав это сделать?

[Stilet]

Можно как-нибудь обойти регистрацию в реестре?

Купи пакер типа BoxedApp, он позволит сделать запортабленное приложение, без нужды курочить реестр.