Добавление AVI-файла в EXE-файл!

← →
MaxVal (2005-08-04 19:39) [0]

Передо мной встали следующие задачи:
1. Необходимо записать видео-файл (AVI) на CD-диск.
2. Сделать программу-автозагрузку с небольшим проигрователем. 3. Самое главное нужно сделать так, чтобы видео-файл нельзя было просто так просмотреть или скопировать!

Решение:
Тут возникли некоторые проблемы. Я решил, что лучше всего будет создать RES-файл, в нутри которого будет видео-файл. Но я слышал и убедился сам, что MediaPlayer неможет проиграть видео из RES-файла. Посоветуйте что-нибудь получше или как мне решить эту проблему, пожалуйста! Код:
implementation {$R *.dfm} {$R MyWav.RES} procedure TForm1.Button1Click(Sender: TObject); var hResource: THandle; pData: Pointer; begin hResource:=LoadResource( hInstance, FindResource(hInstance, "MyWav", RT_RCDATA)); try pData := LockResource(hResource); if pData = nil then raise Exception.Create("Cannot read MyWav.RES"); Form1.MediaPlayer1.FileName := "MyWav"; Form1.MediaPlayer1.Open; Form1.MediaPlayer1.Play; finally FreeResource(hResource); end; end;

← →
Fay © (2005-08-04 19:49) [1]

2 MaxVal (04.08.05 19:39)
Убери из методов TForm1 все ссылки на переменную Form1 !

>> raise Exception.Create("Cannot read MyWav.RES");
А такой файл есть?
>> ЮЮ Form1.MediaPlayer1.FileName := "MyWav";
А такой файл есть? И MediaPlayer должен его играть?!

← →
TStas © (2005-08-04 21:13) [2]

Есть готовая программа, медиабилдер называется. Она как раз и файлы проигрывает и автораны деает и интерфейс простенткий тоже может. Экзешник там не очень большой, нужен? Она около 2000 года

← →
Starcom (2005-08-04 21:21) [3]

TStas © (04.08.05 21:13) [2]

Респект! Multimedia Builder 4.9.6a (www.mediachance.com)

← →
MaxVal (2005-08-04 21:36) [4]

2 TStas & Starcom: Прога наверно хорошая, но хотелось бы что-нить свое! Кроме того по диалу трудно эту прогу выкачать...

2 Fay:
> Убери из методов TForm1 все ссылки на переменную Form1 !

Почему?

> raise Exception.Create("Cannot read MyWav.RES");

Файл есть!

> Form1.MediaPlayer1.FileName := "MyWav";

Так описанов мануале.

2 MaxVal (04.08.05 21:36) [4]
>> Почему?
Если с ходу не понятно, я объяснить не смогу - тут нельзя матом орать 8(.

Да ну? Она раззипленная меньше 10, посмотрю потом.
Просто что срочно авторан нужен, подумал

Добавление AVI-файла в EXE-файл! Найти похожие ветки