| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Добавление AVI-файла в EXE-файл! [D7, WinXP]

MaxVal ©   (2005-08-04 19:39:00) 

Передо мной встали следующие задачи:
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;


---

TStas   (2005-08-04 22:02:00) [1]

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

---

Fay   (2005-08-04 21:51:00) [2]

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

---

MaxVal   (2005-08-04 21:36:00) [3]

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

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

Почему?

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

Файл есть!

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

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

---

Starcom   (2005-08-04 21:21:00) [4]

TStas ©   (04.08.05 21:13) [2]

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

---

TStas   (2005-08-04 21:13:00) [5]

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

---

Fay   (2005-08-04 19:49:00) [6]

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

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

---

Наверх