Ayuda con milisegundos - player con vlc

[carlos vargas]

Estimado, estoy intentando hacer un player con vcl
el caso es que necesito dos datos:
1.-tiempo del medio el cual me lo da en milisegundo
2.-posicion actual. lo cual me lo da en un valor de 0.0 a 1 (maximo) donde 0.5 seria la mita del tiempo de duracion.

necesito ayuda:
pasar el primer valor de milisegundo a formato hora, minuto, segundo "HH:MM:SS"
y el segundo valor como el valor primero menos el avance, hast que la final quede 00:00:00

estoy un poco ofuscado, necesito una manito de mis amigis programadores.

salu2
carlos vargas

[Silvio.Falconi]

if I can help you there is a my class on github called tled
on this class there is a function use millisecond

https://github.com/silviofalconi/tLed-1 ... s/TLed.prg

static Function CalTime(n_Secs)
Local _nTotSecs:=SECONDS()-n_Secs
Return Right(SecsToTime(_nTotSecs),16)

static function SecsToTime( nTimeInSecs )

local nHours := Int( nTimeInSecs / 3600 )
local nMins := Int( nTimeInSecs % 3600 / 60 )
local nSecs := Int( nTimeInSecs - ( nHours * 3600 ) - ( nMins * 60 ) )

local nMillisec := Int(GETTICKCOUNT())


return StrZero( nHours, 2 ) + ":" + StrZero( nMins, 2 ) + ":" + ;
StrZero( nSecs, 2 ) + ":" + Right(str(nMillisec),3)

[carlos vargas]

thanks, silvio.!

[Silvio.Falconi]

No hay problema, Tus amigos en el foro español me han acusado de no compartir mis fuentes, bueno, esto es una prueba de que están equivocados.
Espero que mi ayuda te ayude en tu trabajo.
Buen trabajo

[Carles]

Carlos

A ver si te sirve http://forums.fivetechsupport.com/viewtopic.php?f=3&t=29671&p=167831

Saludetes

[joseluisysturiz]

No hay problema, Tus amigos en el foro español me han acusado de no compartir mis fuentes, bueno, esto es una prueba de que están equivocados.
Espero que mi ayuda te ayude en tu trabajo.
Buen trabajo

Aqui hay una que hizo ANTONIO LINARES en 2014...Mentes cruzadas...saludos...

viewtopic.php?f=3&t=29671&p=167831

[Silvio.Falconi]

No hay problema, Tus amigos en el foro español me han acusado de no compartir mis fuentes, bueno, esto es una prueba de que están equivocados.
Espero que mi ayuda te ayude en tu trabajo.
Buen trabajo

Aqui hay una que hizo ANTONIO LINARES en 2014...Mentes cruzadas...saludos...

viewtopic.php?f=3&t=29671&p=167831

Dear joseluisysturiz,
I'm sorry I made it before 2014
Tled Class is made on 2010
and then I think Carlos Vargas mean "milliseconds"


Querido Joseluisysturiz,
Lo siento lo hice antes de 2014
Tled Class se hace en 2010
y luego creo que Carlos Vargas quiere decir "milisegundos "

[carlos vargas]

Bueno, al final, con su ayuda se realizaron los metodos que necesitaba.
no uso día, por que los mp3 y mp4 son nomas de horas como mucho.

Code: Select all | Expand

METHOD Time2MiliSec( cTime ) CLASS TVlc
   LOCAL nMiliSec := 0
   LOCAL nH, nM, nS, nT
   IF !empty( cTime )
      nH := VAL( SUBSTR( cTime, 1, 2 ) )
      nM := VAL( SUBSTR( cTime, 4, 2 ) )
      nS := VAL( SUBSTR( cTime, 7, 2 ) )
      nT := ( nH * 3600 ) + ( nM * 60 ) + nS
      nMiliSec := nT * 1000
   ENDIF
RETURN nMiliSec

/*---------------------------------------------------------------------------------------------*/

METHOD MiliSec2Time( nMiliSec ) CLASS TVlc
   LOCAL cTime := "00:00:00"
   LOCAL nHora, nMinuto, nSegundo
   IF nMiliSec > 0
      nMiliSec := int( nMiliSec / 1000 )
      nHora    := int( nMiliSec / 3600 )
      nMiliSec := nMiliSec - ( nHora * 3600 )
      nMinuto  := int( nMiliSec / 60 )
      nSegundo := nMiliSec - ( nMinuto * 60 )
      cTime := StrZero( nHora, 2 ) + ":" + StrZero( nMinuto, 2 ) + ":" + StrZero( nSegundo, 2 )
   ENDIF
RETURN cTime
 

[Silvio.Falconi]

I remember there was a Mp3 or Mp4 class when I had 1.14 fw+clipper (about 1994), I must see on my hard diskes

[Compuin]

No hay problema, Tus amigos en el foro español me han acusado de no compartir mis fuentes, bueno, esto es una prueba de que están equivocados.
Espero que mi ayuda te ayude en tu trabajo.
Buen trabajo

No creo que te ayude mucho si solo se la pasa preguntando mas que un perdido

[Silvio.Falconi]

Estimado Sr. Compuin, aquí estamos hablando de programación !!!

Si no tienes nada que hacer, por favor ve a otro lugar.

No entiendo por qué los administradores del foro todavía permiten que este Compuin escriba libremente en el foro diciendo cosas idiotas