Звук и MediaPlayer

[saggy]

формат файлалалала
wav

[p51x]

Используйте PlaySound из WinAPI.

[saggy]

щас поюзаем....

[saggy]

и где найти этот playsound?
видимо у мя с winapi туго...

[p51x]

В справке! Ctrl-F1 на имени даже поиск включит!

MMSystem...

[mosq]

saggy, а что если создать переменные f1,f2,f3,f4,...:file of byte; и загрузить в них все нужные вавки-мр3шки.
а затем перед игрой в медиаплеере просто скидывать из переменной в темп-файл (tempfile.wav) нужную мелодию и открывать темп-файл медиалпеером уже через путь, как он умеет..

[p51x]

mosq, зачем?
У него до 10 маленьких вав-файла. 2 Мб, думаю, найдется оперативки... А в вашем случае + запись на диск, + чтение временной вавки с диска, +сам медиаплеер...

[b2soft]

а представь - папка с музыкой весит 1ГБ. если диск Ide то это будет около 15 минут загрузка
вопрос а куда грузить????? интегрировать музку в *.exe???????? это как????
тоесть exe весит 1Гб музыки+вес самого Exe???? ты так себе это представлял????????? да и зачем копировать файлы внутрь проги если можно просто пути к ним хранить, что в сотни раз меньше места занимает? то есть просто логически подумать надо. Так сделать можно но надо ли???

Я однажды лоханулся и случайно текстовик 345 мБ сделал а это 345 000 000 знаков... его даже Ворд не открыл. а Это будет 1 гБ. ОПЕРАТИВЫ НЕ ХВАТИТ, ПРоц = 100% и диспетчер задач не работает. так что не советую! делать вышеописанным тобой способом

[saggy]

блин было ж написано десять МАЛЕНЬКИХ файлов!

[KatCH]

Вот код, как я делал, в случае создание медиа плеера :D

var
  ...
  SL: TStringList;
   
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); 
begin
SL:=TStringList.Create;  
end;

...

procedure TForm1.BitBtn2Click(Sender: TObject); 

Var
  I:Integer;
begin
 OpenDialog1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];
  if OpenDialog1.Execute then
   Begin
      for I := 0 to OpenDialog1.Files.Count - 1 do
       Begin
     SL.Add(OpenDialog1.Files[i]);
     ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files[i]));
       End;

   End;
end;

При нажатие кнопки открывается диалог, где мы выбираем один али кучу треков и они заносятся в ListBox1.