How to merge to music file into a one separate file in VB.NET ?
the following code that i have tried merges to music file but only first music plays because of length or something. !!!
Dim s1 As Byte() = File.ReadAllBytes("e:\Musi
Dim s2 As Byte() = File.ReadAllBytes("e:\Musi
Dim adWithSong As Byte() = New Byte(s1.Length + s2.Length) {}
s1.CopyTo(adWithSong, 0)
s2.CopyTo(adWithSong, s1.Length)
Dim newFilePath As String = "e:\Music\test1.mp3"
File.WriteAllBytes(newFile
Dim s1 As Byte() = File.ReadAllBytes("e:\Musi
Dim s2 As Byte() = File.ReadAllBytes("e:\Musi
Dim adWithSong As Byte() = New Byte(s1.Length + s2.Length) {}
s1.CopyTo(adWithSong, 0)
s2.CopyTo(adWithSong, s1.Length)
Dim newFilePath As String = "e:\Music\test1.mp3"
File.WriteAllBytes(newFile
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
You will have to cut off the first few bytes on the second MP3 before merging.
I've done this before but I'll have to try to did out the code.
I've done this before but I'll have to try to did out the code.
I ended up creating my sounds as mp3's with IDv1 data. So in order to play my sounds correctly and in the order I specified I cut off the last 128 bits as these are the ID tags and concatenated the binary of multiple file together and created a temoorary file and played this.
Private Function PlayVoice(ByVal TicketLetter As String, ByVal TicketNumber As String, ByVal Counter As String) As Boolean
Dim Result As Integer
Dim Seek As Long
Dim Play() As Byte
Dim Doorbell() As Byte
Dim Ticket() As Byte
Dim Number1() As Byte
Dim Number2() As Byte
Dim Number3() As Byte
Dim CounterNumber() As Byte
Dim Blank() As Byte
' Open the Ticket mp3 file.
Dim MyBinaryReader = New BinaryReader(File.OpenRead
ReDim Ticket(MyBinaryReader.Base
Result = MyBinaryReader.Read(Ticket
' Open the 1st Number mp3 file.
MyBinaryReader = New BinaryReader(File.OpenRead
ReDim Number1(MyBinaryReader.Bas
Result = MyBinaryReader.Read(Number
' Open the 2nd Number mp3 file.
MyBinaryReader = New BinaryReader(File.OpenRead
ReDim Number2(MyBinaryReader.Bas
Result = MyBinaryReader.Read(Number
' Open the 3rd Number mp3 file.
MyBinaryReader = New BinaryReader(File.OpenRead
ReDim Number3(MyBinaryReader.Bas
Result = MyBinaryReader.Read(Number
' Open the Counter Number mp3 file.
MyBinaryReader = New BinaryReader(File.OpenRead
ReDim CounterNumber(MyBinaryRead
Result = MyBinaryReader.Read(Counte
ReDim Play(Ticket.Length + Number1.Length + Number2.Length + Number3.Length + CounterNumber.Length)
Ticket.CopyTo(Play, 0)
Number1.CopyTo(Play, Ticket.Length)
Number2.CopyTo(Play, Ticket.Length + Number1.Length)
Number3.CopyTo(Play, Ticket.Length + Number1.Length + Number2.Length)
CounterNumber.CopyTo(Play,
Dim TmpFileName As String = Path.GetTempFileName()
Dim TmpFileNameNoExtension As String = Path.GetFileNameWithoutExt
Dim MyBinaryWriter As BinaryWriter = New BinaryWriter(File.OpenWrit
MyBinaryWriter.Write(Play)
MyBinaryReader.Close()
MyBinaryWriter.Close()
MyPlayer.playlistClear()
MyPlayer.addTarget("C:\Dow
'File.Delete("C:\Downloads
End Function
Private Function PlayVoice(ByVal TicketLetter As String, ByVal TicketNumber As String, ByVal Counter As String) As Boolean
Dim Result As Integer
Dim Seek As Long
Dim Play() As Byte
Dim Doorbell() As Byte
Dim Ticket() As Byte
Dim Number1() As Byte
Dim Number2() As Byte
Dim Number3() As Byte
Dim CounterNumber() As Byte
Dim Blank() As Byte
' Open the Ticket mp3 file.
Dim MyBinaryReader = New BinaryReader(File.OpenRead
ReDim Ticket(MyBinaryReader.Base
Result = MyBinaryReader.Read(Ticket
' Open the 1st Number mp3 file.
MyBinaryReader = New BinaryReader(File.OpenRead
ReDim Number1(MyBinaryReader.Bas
Result = MyBinaryReader.Read(Number
' Open the 2nd Number mp3 file.
MyBinaryReader = New BinaryReader(File.OpenRead
ReDim Number2(MyBinaryReader.Bas
Result = MyBinaryReader.Read(Number
' Open the 3rd Number mp3 file.
MyBinaryReader = New BinaryReader(File.OpenRead
ReDim Number3(MyBinaryReader.Bas
Result = MyBinaryReader.Read(Number
' Open the Counter Number mp3 file.
MyBinaryReader = New BinaryReader(File.OpenRead
ReDim CounterNumber(MyBinaryRead
Result = MyBinaryReader.Read(Counte
ReDim Play(Ticket.Length + Number1.Length + Number2.Length + Number3.Length + CounterNumber.Length)
Ticket.CopyTo(Play, 0)
Number1.CopyTo(Play, Ticket.Length)
Number2.CopyTo(Play, Ticket.Length + Number1.Length)
Number3.CopyTo(Play, Ticket.Length + Number1.Length + Number2.Length)
CounterNumber.CopyTo(Play,
Dim TmpFileName As String = Path.GetTempFileName()
Dim TmpFileNameNoExtension As String = Path.GetFileNameWithoutExt
Dim MyBinaryWriter As BinaryWriter = New BinaryWriter(File.OpenWrit
MyBinaryWriter.Write(Play)
MyBinaryReader.Close()
MyBinaryWriter.Close()
MyPlayer.playlistClear()
MyPlayer.addTarget("C:\Dow
'File.Delete("C:\Downloads
End Function
MP3s have header information as well as the music data. You can't just splice together the bytes of two MP3s because you'll be putting header-music-header-music into the file. In effect, the 2nd song won't exist. You need to parse out the music data from the second file and append it to the first song's music data. You'll also need to update the spliced file's header information to account for the new length.
MP3 is actually a proprietary format. You can find some information at the following link:
http://mpgedit.org/mpgedit/mpeg_format/MP3Format.html
MP3 is actually a proprietary format. You can find some information at the following link:
http://mpgedit.org/mpgedit/mpeg_format/MP3Format.html
Premium Content
You need an Expert Office subscription to comment.Start Free Trial