Текущий архив: 2005.08.28;
Скачать: 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 вся ветка
Текущий архив: 2005.08.28;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.032 c
