![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Mediaplayer и .wav
2expres © (2010-08-17 19:37:00)Простая программа проигрователя файлов .wav и .mp3:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, StdCtrls;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
OpenDialog1: TOpenDialog;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
Mediaplayer1.FileName:=OpenDialog1.FileName;
Mediaplayer1.Open;
end;
end;
end.
Свойство Mediaplayer1 DeviceType = dtAutoSelect.
При выборе файлов .mp3 файл проигрывается без проблем
При выборе файла .wav выводится ошибка: не установлено ни одного устройства, позволяющего воспроизводить файлы текущего формата.
В чем может быть проблема?
2expres (2010-08-18 10:27:00) [1]А как это сделать? Можно пример?
Дмитрий С (2010-08-18 01:54:00) [2]Файл может сжат чем нибудь?
Кстати, как вариант можно использовать АктивИкс WMP