Como crear un tono de tu cancion favorita
Publicado por Ernesto Hernandez (4623 intervenciones) el 29/07/2006 22:24:23
Espero les sirva de algo ;-)
lcFile = FiletoStr("C:\music\a.mp3")
lnFileLen = Len(lcFile)
lnSizePerSec = lnFileLen / 200 && 3.20 Tiempo total de la cancion en segundos
lcNewFile = Substr(lcFile, lnSizePerSec * 20, lnSizePerSec * 15)
? StrToFile(lcNewFile, "c:\music\new.mp3")
Autor : Vassilis Aggelakos
Suerte
lcFile = FiletoStr("C:\music\a.mp3")
lnFileLen = Len(lcFile)
lnSizePerSec = lnFileLen / 200 && 3.20 Tiempo total de la cancion en segundos
lcNewFile = Substr(lcFile, lnSizePerSec * 20, lnSizePerSec * 15)
? StrToFile(lcNewFile, "c:\music\new.mp3")
Autor : Vassilis Aggelakos
Suerte
Valora esta pregunta
0