Большой Воронежский Форум Mobile

Помогите, как по нажатии на кнопку проиграть wav файл? В нете пишут про файлы ресурсов, но я не могу создать его. Помогите, начал осваивать Delphi недавно... [Ответ]

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
OpenDialog1.Execute;
If OpenDialog1.FileName<>''
then
Begin
MP1.FileName:=OpenDialog1.FileName;
MP1.Open;
MP1.Play;
end;
end;

MP - компонент медиаплейера
OpenDialog1 - компонент OpenDialog [Ответ]

.....труба умничает.....

likerus, а встроенную компанентину медиаплейра несутьба поюзать? [Ответ]

likerus, а вообще качай Delphist FAQ.
отсюда:
http://www.drkb.ru/
Мне он в свое время офигенно помог. [Ответ]

Сообщение от :
likerus, а встроенную компанентину медиаплейра несутьба поюзать?

труба, но ведь мне нужно, чтобы файл проигрывался по событии(конкретно, когда истечёт время таймера), а плеер может ето чудо сотворить? [Ответ]

Сообщение от :
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
OpenDialog1.Execute;
If OpenDialog1.FileName<>''
then
Begin
MP1.FileName:=OpenDialog1.FileName;
MP1.Open;
MP1.Play;
end;
end;
MP - компонент медиаплейера
OpenDialog1 - компонент OpenDialog

$@#Y@, я так понял, что по исполнении этого кода окроется диалоговое окно выбора файла, который мне нужно проиграть, но мне нужно вспроизвести конкретный файл, может поможет одна из процедур API?
Если да, то какая? [Ответ]

Сообщение от likerus:
труба, но ведь мне нужно, чтобы файл проигрывался по событии(конкретно, когда истечёт время таймера), а плеер может ето чудо сотворить?

да. причем его можно скрыть. ШОБЫ не маячил.... подвешиваешь на событие от таймера - обработку команды Play.... и фсе.... 3 секунды.... причем не только wav.... просто и сердито, ИМХО.

Сообщение от likerus:
API?

в хелпах смотри, которые...... блин забыл...... ну которые не родные дельфийские, а там их дофига еще........ там есть такой Win32 Programming Reference. В нем ищи про апи..... ды даж помому отдельно по апи хэлп был...... ну или мсдн на крайняк [Ответ]

doXtor, а можешь кинуть код, чтоб MYmedia.wav проиграл, извини за ламерство, просто я с плеером ни разу не работал, нужны ли новые модули в uses? Будет ли он работать в скрытом состоянии? [Ответ]

....труба готова.....

труба поможет. труба кинет за дохтура. труба кинет, но завтра. трууба пошла спать щас....

дохтур уже спать улез, сабака.... затра полюбому напишет. я его пну. [Ответ]

....труба удивлена....

Сообщение от likerus:
Будет ли он работать в скрытом состоянии?

будет... но скрыто....... шутка..... звук будет. точно.... [Ответ]

Делай так:
кидаешь на форму компонент TMediaPlayer с закладки System, Дельфя сама тебе пропишет в uses модуль MPlayer.Обзываешь его MP1, и пишешь в обработчике нажатия кнопы такой вот код:

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin

MP1.FileName:='MyWave.wav';
MP1.Open;
MP1.Play;

end;

Хинты:
-Чтоб компонентину медиаплейера не было видно при работе проги, ставишь свойство плейера visible в false.
-Этот код будет работать только если файл MyWave.wav у тебя находится в так называемой "текущей директории", т.е. в папке, где сохранен проект.Чтоб проиграть вав, находящийся в другом месте просто вместо MyWave.wav пиши полный путь к файлу - вроде вот этого D:\Wavs\Part#1\MyFile.wav. [Ответ]

и качай ФАК.
Там инфы море просто...
почти на все твои вопросы там есть ответ...
сам юзал этот фак, но тогда он был меньше...метра 2 чтоли... [Ответ]

$@#Y@, спасибо за совет щас попробую, а фак весит 10 мб, он уже на винте, тока я ещё не успел с ним разобраться, так мельком только просмотрел. [Ответ]

$@#Y@, респект огромный! Я, блин, несколько дней заморачивался, а тут всё гениально и просто, да и ещё и работает! И мп3-хи понимает! Короче, Media Player рулит!!! [Ответ]