Ver Mensaje Individual
  #3  
Antiguo 04-04-2008
mcarazas mcarazas is offline
Miembro
 
Registrado: may 2006
Posts: 40
Reputación: 0
mcarazas Va por buen camino
Question TMEDIAPLAYER 128 kbps

Gracias por responder, este es el codigo que utilizon que utilizo para mover el progressbar. Utilizo este este codigo en el evento onTimer del Clock:

Código Delphi [-]
procedure TRockola.Timer2Timer(Sender: TObject);
var
SecondeTotal: Integer;
begin
 { scrollbar1.Max := dj.TrackLength[lbLista.ItemIndex - 1];
  scrollbar1.Position := dj.Position;
  if scrollbar1.Position =  scrollbar1.Max then begin
    timer2.Enabled := False;
    scrollbar1.Position := 0;
    Timer2.Enabled := true;
  end;
 }
  if pbProgreso.Max <> 0 then
    pbProgreso.Position := dj.Position;
  sbProgreso.Position := dj.Position;
  if sbProgreso.Position =  sbProgreso.Max then begin
    timer2.Enabled := False;
    sbProgreso.Position := 0;
    Timer2.Enabled := true;
  end;
  //
  if TiempoPos then
    SecondeTotal:=round(dj.Position /1000)
  else
    SecondeTotal :=  round((dj.Length-dj.Position) / 1000);  // transformation de milliseconde en seconde
  affichage(lbTiempo, secondetotal, TiempoPos);
end;

Pero estaba haciendo pruebas con diferentes archivos de sonido y encontre el siguiente patron, los archivos que estan codificados a 128 kbps y 192 kbps
son los que tienen error las codificaciones 92, 320, etc funcionan normalmente, cual creen que pueda ser el problema los Codec, pero le instale varios codec. Espero puedan ayudarme gracias
Responder Con Cita