[bagish]

Как создать Dll файл с ресурсами(wav и mp3), а затем по мере
надобности загружать их в TMediaPlayer моего приложения?
Спасибо.

[moo2k]

Вот почитай тут

[bagish]

Сообщение от moo2k

Вот почитай

Ну, прочитал. Не думаю, что кто-нибудь из начинающих разобрался бы там, куда Вы меня, monsieur, отфутболили.
Ну да мы псковские, переживём!
И всё-таки. Ншёл я два-три примера по созданию dll c звуковыми ресурсами ( мир не без добрых людей ), но для их выгрузки используется функция PlaySound. Мне же надо загрузить ресурс в MediaPlayer. Подскажите, как это сделать?

[moo2k]

Используй WMP_Music. Это ActiveX компонент Windows Media Player'a. Перед воспроизведением твоих муз. файлов, извлекай их с dll'ки во временную папку.

[bagish]

Сообщение от moo2k

Используй WMP_Music

Идею понял. Спасибо! Но как это реализовать?
Код. Умоляю!!!

[moo2k]

Код:

1 2	WMP_Music.URL:=<полный путь к mp3-песне>; WMP_Music.Controls.play;

[bagish]

Сообщение от moo2k

извлекай их с dll'ки во временнную папку

Ну не знаю я этих премудростей!
1. А как это делается?

Сообщение от moo2k

Используй WMP_Music

Среди ActiveX компонентов я нашёл только WindowsMediaPlayer. Если это тот самый компонент, то:
2. Приграть mp3 файл ведь может и стандартный MediaPlayer? Здесь какя-то фишка?

[moo2k]

1) извлекай свои файлы из dll
2) проигрывай файл:

Код:

1 2 3

MediaPlayer1.FileName:='путь_к_песне'; MediaPlayer1.Open; MediaPlayer1.Play;

[bagish]

Сообщение от moo2k

1) извлекай свои файлы из dll

Да как извлечь то???

[DyaДько]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

function GetTempDirectory: String; var   tempFolder: array[0..MAX_PATH] of Char; begin   GetTempPath(MAX_PATH, @tempFolder);   result := StrPas(tempFolder); end;   procedure FormCreate(Sender: TObject); var Res : TResourceStream; begin Res:=TResourceStream.Create(Hinstance, 'SONG1', RT_RCDATA); Res.SavetoFile(GetTempDirectory + '\1.mp3'); Res.Free; end;   procedure TForm1.Play(path:string); begin if not FileExists(path) then begin MessageBox(Form1.Handle,'Файл для воспроизведения не найден', 'Ошибка открытия файла',MB_OK or MB_ICONEXCLAMATION) exit; end; MediaPlayer1.FileName:=path; MediaPlayer1.Open; MediaPlayer1.Play; end;

[moo2k]

DyaДько, какая же старая эта тема. Я даже забыл ответить тому человеку. Сейчас увидел опять эту тему и стыдно стало. В то время я почти не бывал на этом форуме.
p.s. извините за оффтопик.

[DyaДько]

ой, я на дату не посмотрел. В эту тему из гугла попал, решил ответить=)