Ver Mensaje Individual
  #1  
Antiguo 05-02-2006
[Gunman] [Gunman] is offline
Miembro
 
Registrado: dic 2004
Ubicación: Pedreguer.
Posts: 355
Reputación: 20
[Gunman] Va por buen camino
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;
__________________
l2prog.co.nr
Responder Con Cita