[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]

Код:

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

[bagish]

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

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

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

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

Используй WMP_Music

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

[moo2k]

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

Код:

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

[bagish]

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

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

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

[DyaДько]

Код:

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Дько]

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