|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.09.2007, 15:36 | #1 |
Пользователь
Регистрация: 30.08.2007
Сообщений: 25
|
Помогите с ресурсами
Как сделать так, чтобы mp3 фаил из ресурса проигрывался компонентом TMediaPlayer ??
|
11.09.2007, 16:24 | #2 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
procedure TForm1.Button2Click(Sender: TObject);
var rStream: TResourceStream; fStream: TFileStream; fname: string; begin {this part extracts the mp3 from exe} fname:=ExtractFileDir(Paramstr(0))+ 'Intro.mp3'; rStream := TResourceStream.Create (hInstance, 'Intro', RT_RCDATA); try fStream := TFileStream.Create(fname, fmCreate); try fStream.CopyFrom(rStream, 0); finally fStream.Free; end; finally rStream.Free; end; {this part plays the mp3} MediaPlayer1.Close; MediaPlayer1.FileName:=fname; MediaPlayer1.Open; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как создать файл с ресурсами? | PONKA | Общие вопросы Delphi | 5 | 25.04.2008 21:08 |
Работа с ресурсами. | Shouldercannon | Общие вопросы Delphi | 9 | 04.03.2008 09:08 |