Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Мультимедиа
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.03.2008, 01:00
IL'YA IL'YA вне форума
Прохожий
 
Регистрация: 20.03.2008
Сообщения: 4
Репутация: 10
Вопрос avi в exe-шнике

Доброе время суток!

Помогите советом:
нужно видео файл разместить в проекте, т.е. чтобы EXE-шник содержал видео файл, а не подгружал его из указанного места.

По-моему, подошел бы компанент на подобии ImageList, только для видео. Если кто-то знает, где его найти или как еще можно решить данную задачу - пишите!!!


P.S. желательно решение в рамках Delphi 5.
Ответить с цитированием
  #2  
Старый 20.03.2008, 08:40
Аватар для alikoder
alikoder alikoder вне форума
Начинающий
 
Регистрация: 05.12.2007
Сообщения: 126
Репутация: 10
По умолчанию

а зачем тебе ImageList???
Просто засовывай видео в res файл, а его в свою очередь в прогу. Проще некуда)
Ответить с цитированием
  #3  
Старый 20.03.2008, 23:44
IL'YA IL'YA вне форума
Прохожий
 
Регистрация: 20.03.2008
Сообщения: 4
Репутация: 10
Хорошо Спасибо за отклик!

Хорошо, что всё так просто. Вот только знать бы как это сделать Не будет ли так любезен глубокоуважаемый alikoder, что расскажет поподробнее что за res-файл, как в него засунуть видео, а его в прогу ну или хотябы где можно материал найти на эту тему ...
Ответить с цитированием
  #4  
Старый 21.03.2008, 07:38
Аватар для alikoder
alikoder alikoder вне форума
Начинающий
 
Регистрация: 05.12.2007
Сообщения: 126
Репутация: 10
По умолчанию

Да пжлста любезный, В каталоге \DELPHI\BIN имеется утилита коммандной строки, BRCC.EXE, позволяющая создавать из файлов, содержащих изображения/иконки и т.д., RES-файлы.
Используя Блокнот, создай файл определения ресурса (Resource Definition) (текстовый) с именем, скажем, FUCK.RC (с обязательным расширением RC). Размести, каждую на отдельной строке, ссылки на изображения, иконки, (или твое видео), которое ты хотел включить в RES-файл, например:
IDR_AVILOGO AVI "Pornuha.avi"
После просто перенеси твой fuck.rc на brcc.exe, появится файл fuck.res
В твоём модуле Delphi добавь после строки {$R *.RES} строку {$R fuck.RES}, но сначало кинь fuck.res в директорию с исходниками твоей проги.
А для вызова видео из рес файла, в проге, используй например:
Animate1.ResName := IDR_AVILOGO;
Animate1.Active:=true;
Ответить с цитированием
  #5  
Старый 21.03.2008, 07:43
Аватар для alikoder
alikoder alikoder вне форума
Начинающий
 
Регистрация: 05.12.2007
Сообщения: 126
Репутация: 10
По умолчанию

упс. еще Animate1.ResName := IDR_AVILOGO; заключи в ковычки
'IDR_AVILOGO';
Ответить с цитированием
  #6  
Старый 22.03.2008, 03:22
IL'YA IL'YA вне форума
Прохожий
 
Регистрация: 20.03.2008
Сообщения: 4
Репутация: 10
Радость продолжим разговор

Попробовал ... что-то пока не получается: Animate ругается на avi-шку, говорит что не может открыть файл может его как-то настроить надо или к файлу есть какие-то требования (по продолжительности/разрешению/кодеку/...)? MediaPlayer avi-шку воспроизводит напрямую (через .FileName), но у него нет параметра .ResName ... или он по-другому настраивается на res-файл? Может еще какой компонент можно использовать для воспроизведения из res-файла?
Ответить с цитированием
  #7  
Старый 05.04.2008, 21:02
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Есть еще один вариант.
Тебе надо выдрать ресурс во временный файл, а уж потом воспроизвести его например через TMediaPlayer.
Выдрать можно так:
Var a:TResourceStream;
b:TMemoryStream;
Begin
A:=TResourceStream.Create(hInstance,'Name','Type') ;
B:=TMemoryStream.Create;
B.CopyFrom(A,A.Size);
B.SaveToFile('FileName here.avi');
a.free;
b.free;
end;
Ответить с цитированием
  #8  
Старый 05.04.2008, 21:03
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Чуть не забыл. Не забудь удалить извлеченный файл после использования.
Ответить с цитированием
  #9  
Старый 07.04.2008, 01:10
IL'YA IL'YA вне форума
Прохожий
 
Регистрация: 20.03.2008
Сообщения: 4
Репутация: 10
По умолчанию

Спасибо за совет!
К сожалению, данный способ не подходит - нужно, чтобы всё было в одном файле (без "следов" на компе)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:45.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter