topic-36204

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Ayuda con milisegundos - player con vlc
Posted: Wed Oct 10, 2018 10:49 PM

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

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Ayuda con milisegundos - player con vlc
Posted: Thu Oct 11, 2018 08:02 PM

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)

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Ayuda con milisegundos - player con vlc
Posted: Thu Oct 11, 2018 10:45 PM

thanks, silvio.!

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Ayuda con milisegundos - player con vlc
Posted: Fri Oct 12, 2018 11:36 AM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Carles

Posts: 1283

Joined: Fri Feb 10, 2006 02:34 PM

Re: Ayuda con milisegundos - player con vlc
Posted: Fri Oct 12, 2018 11:44 AM

Carlos

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

Saludetes

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Ayuda con milisegundos - player con vlc
Posted: Fri Oct 12, 2018 05:31 PM

Silvio.Falconi wrote: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

Dios no está muerto...

Gracias a mi Dios ante todo!

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Ayuda con milisegundos - player con vlc
Posted: Fri Oct 12, 2018 09:26 PM

joseluisysturiz wrote:
Silvio.Falconi wrote: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 "

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Ayuda con milisegundos - player con vlc
Posted: Sun Oct 14, 2018 03:25 AM

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 (fw): Select all Collapse

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

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Ayuda con milisegundos - player con vlc
Posted: Mon Oct 15, 2018 09:53 AM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Ayuda con milisegundos - player con vlc
Posted: Fri Oct 19, 2018 05:04 PM

Silvio.Falconi wrote: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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Ayuda con milisegundos - player con vlc
Posted: Fri Oct 19, 2018 07:51 PM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion