Como usar o TMediaPlayer

Delphi

12/09/2003

Tenho um componente TMediaPlayer. Quando tento executar (ouvir) o arquivo de áudio, recebo o
seguinte erro: ´No MCI device open´.

O que estou fazendo de errado??



===============
Código:
===============
var
MP : TMediaPlayer;
Length : integer;
begin
MP := TMediaPlayer.Create(Self);
MP.Parent := Self;
MP.Visible := false;
MP.TimeFormat := tfHMS;
MP.FileName := ´C:\98.wav´;
Length := MP.Length;
LabelTempo.Caption := IntToStr(HMSRec(Length).Hours)+´:´+IntToStr(HMSRec(Length).Minutes)+´:´+IntToStr(HMSRec(Length).Seconds);
MP.Play;
end;



Grato,
Marcos


Atomix

Atomix

Curtidas 0

Respostas

Dhiogo

Dhiogo

12/09/2003

Vc esqueceu de abrir a midia.
var
MP : TMediaPlayer;
Length : integer;
begin
MP := TMediaPlayer.Create(Self);
MP.Parent := Self;
MP.Visible := false;
MP.TimeFormat := tfHMS;
MP.FileName := ´C:\98.wav´;
mp.Open; [color=red:18ef58a800][b:18ef58a800] Faltou isso [/b:18ef58a800][/color:18ef58a800]
Length := MP.Length;
LabelTempo.Caption := IntToStr(HMSRec(Length).Hours)+´:´+IntToStr(HMSRec(Length).Minutes)+´:´+IntToStr(HMSRec(Length).Seconds);
MP.Play;
end;


GOSTEI 0
Paulo Abrantes

Paulo Abrantes

12/09/2003

tem como dar play em um endereco web tipo uma radio web , um stream ?
GOSTEI 0
POSTAR