no MCI device open

[alex406 0]

alguém me pode ajudar com esse erro tou dando os primeiros passos no delphi e não tou a perceber porque me esta dando esse erro o código do meu media player é o seguinte :

 

implementation

 

{$R *.dfm}

 

procedure TAlex_Media_Player.AdicionarMusica1Click(Sender: TObject);

var i: integer;

filename : String;

extensao : String;

begin

{ esse código pega todas as musicas selecionadas o sopendialog }

if sopendialog1.Execute then

begin

for i:=0 to sopendialog1.Files.Count-1 do

begin

//esse add na lista que fica com o caminho dos arquivos

sListBox1.Items.Add(ExtractFileName(sopendialog1.Files));

sListBox1.ItemIndex := 0;

end;

begin

filename := ExtractFileName(MediaPlayer1.FileName);

extensao := ExtractFileExt(MediaPlayer1.FileName);

Delete(filename,Pos(extensao,filename),Length(extensao));

slabel1.Caption := filename;

end;

end;

end;

 

function TAlex_Media_Player.MSecToTime(const intTime: integer): string;

var intmsec :real;

begin

//o equivalente a 1 ms

intMSec := 1 / 24 / 60 / 60 / 1000;

begin

//define o retorno com o formato Time

result := FormatDateTime('nn:ss', intTime * intMSec);

end;

end;

 

procedure TAlex_Media_Player.Timer1Timer(Sender: TObject);

begin

sLabel2.Caption := MSecToTime (MediaPlayer1.Position);//Mostra o tempo correndo

end;

 

procedure TAlex_Media_Player.sBitBtn1Click(Sender: TObject);

begin

mediaplayer1.Open;

mediaplayer1.Play;

sprogressbar1.Max := mediaplayer1.Length;

sLabel2.Caption := MSecToTime (MediaPlayer1.Length);

end;

 

procedure TAlex_Media_Player.testavolume;

var

WaveCaps : TWaveOutCaps;

Volume : DWord;

begin

if waveOutGetDevCaps(WAVE_MAPPER, @WaveCaps, sizeof(TWaveOutCaps)) = MMSYSERR_NOERROR then

if (WaveCaps.dwSupport and WAVECAPS_VOLUME) <> 0 then begin

WaveOutGetVolume(Integer(WAVE_MAPPER), @Volume);

with sTrackBar1 do

Position := 100 - Trunc(LoWord(Volume) / $FFFF * 100);

end;

end;

 

procedure TAlex_Media_Player.mudavolume;

var

WaveCaps : TWaveOutCaps;

VolDir, VolEsq : Word;

begin

// aumeta e diminui o volume no trackbar

VolEsq := Trunc((sTrackBar1.Position-100) / 100 * $FFFF);

VolDir := Trunc((sTrackBar1.Position-100) / 100 * $FFFF);

if waveOutGetDevCaps(WAVE_MAPPER, @WaveCaps, sizeof(TWaveOutCaps)) = MMSYSERR_NOERROR then

if (WaveCaps.dwSupport and WAVECAPS_VOLUME) <> 0 then

WaveOutSetVolume(Integer(WAVE_MAPPER), MakeLong(VolEsq,VolDir));

end;

 

procedure TAlex_Media_Player.sPanel1Resize(Sender: TObject);

begin

mediaplayer1.DisplayRect := spanel1.ClientRect;

end;

 

procedure TAlex_Media_Player.sTrackBar1Change(Sender: TObject);

begin

mudavolume;

end;

 

procedure TAlex_Media_Player.FormCreate(Sender: TObject);

begin

testavolume;

end;

 

end.

[Owner 8]

Este código esta meio bagunçado. E você deve informar onde há o erro, lendo seu código percebi muitos erros na organização. Vou lhe passar um tópico que ensina muito bem a fazer um media player. Deixe esse de lado e faça o tutorial deste :

http://www.webcheats.com.br/forum/delphi-vb/153045-tutorial-criando-um-player-bascio-delphi-7-a.html