Видеофайл (с альфой) в качестве заставки?

Question

Я ищу довольно долгое время для расширения Inno Setup для использования видеофайла, например, для AVI или, возможно, для .png-последовательности в качестве заставки для моей установки (использование альфа-канала будет ОГРОМНЫЙ плюс, но не обязательно). Есть несколько DLL-файлов для использования статических изображений с затуханием и постепенным исчезновением, но я не мог найти что-либо для использования в качестве видеофайла для этой цели.

Насколько я знаю, я могу использовать любые DLL-файлы с Inno Setup. Например, я могу использовать популярный bass.dll для воспроизведения звука, даже если у него нет «реальной» поддержки Inno, но Inno может вызывать функции этого DLL.

Итак, есть ли какая-нибудь программа, которая позволила бы мне это сделать? Любой совет в этом направлении был бы очень полезен.

Редактировать: Возможно, это возможно с Qt. Я знаю, что вы можете сделать именно эти брызговики для ваших приложений, но я не уверен, можно ли использовать Qt с Inno Setup?

Answer 1

Я основал проект Inno Media Player, который может встроить воспроизведение видео и аудио в мастер InnoSetup. Он основан на технологии DirectShow и требует использования как минимум DirectX 9.

За исключением built-in formats он поддерживает все кодеки DirectShow, но вы должны учитывать, что вашим целевым пользователям не нужно иметь кодеки для некоторых экзотических медиаформатов и устанавливать их кодеки только из-за шоу при запуске установки, это будет излишество и несправедливо к пользователю.

О прозрачности, которую вы хотели иметь, если вы найдете кодек, который поддерживает это, мы можем попытаться сделать всплывающее окно прозрачным и позволить рендерингу DirectShow рисовать в многоуровневом окне, но без кодека и примера видео I ничего не может сделать.

• библиотека с примером сценарием вы можете найти в багажнике источника или загрузить его from here
• Я написал простой function reference, где вы можете найти описание параметров функции

Так, чтобы показать всплывающее окно окна с воспроизведением видео до появления формы мастера, вы можете использовать следующее:

Обратите внимание, что Inno Media Player является Unicode lib rary, и поэтому вы можете использовать его только с Unicode-версиями InnoSetup, а не с ANSI! Существует поддержка ANSI версий InnoSetup ...!

[Setup] 
AppName=Media Player Project 
AppVersion=1.0 
DefaultDirName={pf}\Media Player Project 

[Files] 
Source: "MediaPlayer.dll"; Flags: dontcopy 

[Code] 
const 
    EC_COMPLETE = $01; 

type 
    TDirectShowEventProc = procedure(EventCode, Param1, Param2: Integer); 

function DSPlayMediaFile: Boolean; 
    external 'DSPlayMediaFile@files:mediaplayer.dll stdcall'; 
function DSStopMediaPlay: Boolean; 
    external 'DSStopMediaPlay@files:mediaplayer.dll stdcall'; 
function DSInitializeVideoFile(FileName: WideString; WindowHandle: HWND; 
    var Width, Height: Integer; CallbackProc: TDirectShowEventProc): Boolean; 
    external 'DSInitializeVideoFile@files:mediaplayer.dll stdcall'; 

var 
    VideoForm: TSetupForm; 

procedure OnMediaPlayerEvent(EventCode, Param1, Param2: Integer); 
begin 
    if EventCode = EC_COMPLETE then 
    VideoForm.Close; 
end; 

procedure OnVideoFormShow(Sender: TObject); 
begin 
    DSPlayMediaFile; 
end; 

procedure OnVideoFormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    DSStopMediaPlay; 
end; 

procedure InitializeWizard; 
var 
    Width: Integer; 
    Height: Integer; 
begin 
    VideoForm := CreateCustomForm; 
    VideoForm.Caption := 'Popup Video Window'; 
    VideoForm.BorderStyle := bsNone; 
    VideoForm.FormStyle := fsStayOnTop; 
    VideoForm.Position := poScreenCenter; 
    VideoForm.OnShow := @OnVideoFormShow; 
    VideoForm.OnClose := @OnVideoFormClose; 

    if DSInitializeVideoFile('d:\Video.avi', VideoForm.Handle, Width, 
    Height, @OnMediaPlayerEvent) 
    then 
    begin 
    VideoForm.ClientWidth := Width; 
    VideoForm.ClientHeight := Height;  
    VideoForm.ShowModal; 
    end;  
end; 

procedure DeinitializeSetup; 
begin 
    DSStopMediaPlay; 
end; 

Надеется, что это помогает!