Скачать: CL | DM;

Добавление 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";

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

---

← →
Fay ©   (2005-08-04 21:51) [5]

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

---

← →
TStas ©   (2005-08-04 22:02) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c