Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Problemas con el MediaPlayer, no se abre! (https://www.clubdelphi.com/foros/showthread.php?t=29949)

[Gunman] 05-02-2006 12:44:54

Problemas con el MediaPlayer, no se abre!
 
Donde diablos está el error? Me sale un 'No MCI Device Open' pero no se porqué, hasta el MPlayer.Open todo correcto, pero luego justo la linia de después... error!
Código Delphi [-]
procedure TMainFrm.ManualButtonBGItems3Click(Sender: TObject);
begin
  if OpenSongDLG.Execute then
  begin
    if MPlayer.Mode <> mpStopped then
    MPlayer.Stop;

    MPlayer.FileName := OpenSongDLG.FileName;
    MPlayer.Open;

    TitleManualLBL.Caption := 'Títol: ' + ExtractFileName(MPlayer.FileName);
    TitleManualLBL.Hint := MPlayer.FileName;
    LengthManualLBL.Caption := 'Duració: '+
        TimeToStr(FloatToDateTime(MPlayer.Length/86400000));
    PositionManualLBL.Caption := 'Posició: 00:00:00';
    PositionManualTB.Max := MPlayer.Length;
    PositionManualTB.Frequency := Trunc(MPlayer.Length / 10);
    ManPosTimer.Enabled := True;

    MPlayer.Play;
  end;
end;


La franja horaria es GMT +2. Ahora son las 21:17:25.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi