Hi,

For the past one week I have searched for the information regarding "getting Bitrate info from mp3 file" for purpose of doing mp3 cutting and I got it from the following link,


http://www.planetsourcecode.com/vb/s...=4185&lngWId=1


(Its name is "mp3_time_calc.vbp".This will display size, bitrate, frames, duration,version information of a mp3 file).

Now I have another doubt. I have cut a mp3 file (for ex. sample.mp3 which is 128 kbps) into 4 equal parts (sample01.mp3,..,sample04.mp3) using binary file in VB6. Then I have played all the 4 mp3 files through winamp and winamp plays all the files.

While playing "sample01.mp3" (First part) in Winamp, I have checked for the 'File Info', it displays the Bitrate as 128kbits correctly. Then for testing, I have checked to see the File info of sample01.mp3 file using that VB program namely "mp3_time_calc.vbp". It displays the information correctly.

But While playing "sample02.mp3",.."sample04.mp4" (second part to fourth part) in Winamp, I have checked for the 'File Info', it displays the Bitrate as 128 kbits ofr second part, 256 kbits for third part and 448 kbits for fouth part. Also I have checked to see the File info of sample02.mp3 to sample04.mp3 files using the program "mp3_time_calc.vbp". But it throw an error called "Overflow".

How to make the mp3 files to show the right information(i.e all the parts should show the same bitrate info like the original file). How to do this.

Please help me.

Thank you.



The simple coding that I have used to cut the sample.mp3 is here,

In General Declaration,

Dim flen As Long
Dim sptsize As Variant
Dim str As String

-------------------

Private Sub cmdSplit_Click()
filenum = FreeFile
Open "F:\sample.mp3" For Binary As filenum
flen = FileLen("F:\sample.mp3")
sptsize = flen / 4
str = String(sptsize, " ")
Get #filenum, , str
filenum1 = FreeFile
Open "F:\sample01.mp3" For Binary As filenum1
Put #filenum1, , str
Close filenum1
Get #filenum, , str
Open "f:\sample02.mp3" For Binary As filenum1
Put #filenum1, , str
Close filenum1
Get #filenum, , str
Open "f:\sample03.mp3" For Binary As filenum1
Put #filenum1, , str
Close filenum1
Get #filenum, , str
Open "f:\sample04.mp3" For Binary As filenum1
Put #filenum1, , str
Close filenum1
Close filenum
MsgBox "File Splitted"
End Sub