Внедрение звука WAW/MP3 в файл

[GAGARIN-NEW]

Как запихнуть в мой делфевский ехе на стадии разработки впихать какойто звук например WAW/MP3 и как его можно проиграть(как с помощью стандартного компонента я знаю..)? преследуя минимизацию размера будущего exe (я думаю стандартный MP в делфе значительно прибавляет весу...)?

НЕ ИСПОЛЬЗУЯ ДОПОЛНИТЕЛЬНЫХ ФАЙЛОВ типа *.res или кактам...

незнаю как у вас а я лично приветствую минимальность пакета поставки программы ! 1 файл - минимально + никаких забот !

[mihali4]

Ну дык... Файл .res и не надо никому поставлять, он при компиляции экзешника туда и включается.
Зачем изобретать велосипед? Нужно просто лучше учить "матчасть"!
Пихаем все в ресурсный файл и опосля компиляции получаем полные океюшки...

[GAGARIN-NEW]

и как указывать путь к фаелу в компоненте MP ???

+ не искал но зарашее спрошу : как в винде найти звук подлючения/отключения USB ???

мневот нужны эти 2 звука.. надо будет поискать в настройке звуков в винде ! а где это ?? я уже года 2 туда нелазил и напрочь забыл где этот диалог где можно любому событию в том ч. и выходу с винд. назначить любой звук ???

[mihali4]

Надо будет поискать в настройке звуков в винде ! а где это ?? я уже года 2 туда нелазил и напрочь забыл где этот диалог где можно любому событию в том ч. и выходу с винд. назначить любой звук ???

Панель управления -> Звуки и аудиоустройства -> Звуки...
Я не слишком сложно объясняю?

[AlDelta]

и как указывать путь к фаелу в компоненте MP ???

if OpenDialog1.Execute then
with MediaPlayer1 do
begin
FileName := OpenDialog1.FileName;
Open;
end;

+ не искал но зарашее спрошу : как в винде найти звук подлючения/отключения USB ???

Посмотри здесь:

Пуск>>Панель управления>>Звуки и аудиоустройства>>Звуки

А вообще:

C:\windows\media

[Dude_first]

Я недавно делал подобную прогу, но я так и не нашёл такого. Я просто сохранял на диске фаил открывал его, а затем удалял.

var res:TResourceStream;
begin
res := TResourceStream.Create( HInstance, 'file', RT_RCDATA );
res.SaveToFile('temp.mp3');
mediaplayer1.FileName:='temp.mp3';

mediaplayer1.Open;
mediaplayer1.EnabledButtons:=[btPlay];
if fileexists('temp.mp3') then deletefile('temp.mp3');
res.Free;

Сам буду очень признателен, если кто-нибудь подскажет как обойтись без создания лишних файлов

[Stilet]

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

Я просто сохранял на диске фаил открывал его, а затем удалял.

Если меня не ошибает, мона не в файл а в MemoryStream, тока не помнь как потом из него читать...

А вообще в ресурсы музу пихать некузяво, ато ведь прога тяжелее становится, луче музу рядом положить и потом запустить на проигрыш

[mihali4]

А вообще в ресурсы музу пихать некузяво, ато ведь прога тяжелее становится, луче музу рядом положить и потом запустить на проигрыш

Это верно, пусть пользователь имеет возможность поставить свою музыку (звук), нужно дать ему возможность такого выбора где-нибудь в настройках программы.

[mutabor]

если юзать MP, муза полюбому в память грузится, весь файл целиком, так что разница небольшая, просто после загрузки из МемориСтрим его освободить и все
это по теме, а вообще не вижу ничего плохого если к exe прилагаются файлы/папки с ресурсами

[_SERGEYX_]

а лучше при первом запуске программы прописать в настройки стандартные звуки Винды, типа

  public
    { Public declarations }
      Windir: string;
  WindirP: PChar;
  Res: Cardinal;
{.....................................}
begin
  WinDirP := StrAlloc(MAX_PATH);
  Res := GetWindowsDirectory(WinDirP, MAX_PATH);
  if Res > 0 then WinDir := StrPas(WinDirP)+'\media\';
  if FileExists(WinDir+'CHORD.WAV') then {записть в настройки};
.....
end;

И там же в настройках дать возможность указывать пути к другим файлам. И незачем перегружать прогу лишним контентом. Пусть юзер сам этим занимается.