نوشته شده توسط
hamidrezax1
سلام دوست عزیز ممنونم از لطفتون
اگر امکانش هست یه تیکه کد قرار بدین.من تمام مطالب شما رودیدم و از وقتی که گذاشتید ممنونم.منتحی بحث من اینه که من الان اطلاعاتم توی دیتابیس به صورت بیت ذخیره شده و من مثلا از بیت 1000 تا 1100 رو فقط میخوام به wav تبدیل کنم
لطفا اگر کدی دارید قرار بدید چون من اینترنت چک کردم و کد های جستجو شده یکم برام مجهول بود.با تشکر(لطفا کد)
Public Class Form1
Private Function GetSeconds() As Double
With DateTimePicker1.Value
Dim TS As New TimeSpan(.Hour, .Minute, .Second)
Return TS.TotalSeconds
End With
End Function
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim OFD As New OpenFileDialog With {.Filter = "MP3 Audio Files(*.mp3)|*.mp3"}
With OFD
If .ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then Exit Sub
Me.TextBox1.Text = .FileName
End With
End Sub
Dim WithEvents Spliter As Process
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'ffmpeg -i somefile.mp3 -f segment -segment_time 3 -c copy out%03d.mp3
'ffmpeg -i somefile.mp3 -map 0 -f segment -segment_time 3 -c copy out%03d.mp3
'ffmpeg -i your_audio_file.mp3 -acodec copy -t 00:00:30 -ss 00:00:00 split_audio_file.mp3
Dim FFMpeg As String = IO.Path.GetFullPath(".\Tools\ffmpeg.exe")
Dim sinf As New ProcessStartInfo
With sinf
.WorkingDirectory = IO.Path.GetFullPath(".\Tools")
.FileName = FFMpeg
.UseShellExecute = False
'ffmpeg -i somefile.mp3 -map 0 -f segment -segment_time 3 -c copy out%03d.mp3
.Arguments = String.Format("-i {0} -map 0 -f segment -segment_time {1} -c copy {2}%03d.mp3", Me.TextBox1.Text, GetSeconds, Me.TextBox2.Text)
End With
Spliter = Process.Start(sinf)
Me.ProgressBar1.Style = ProgressBarStyle.Marquee
Do Until Spliter.HasExited = True
Application.DoEvents()
Loop
End Sub
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
With DateTimePicker1
.Value = New DateTime(Now.Year, Now.Month, Now.Day, 0, 1, 0)
End With
End Sub
Private Sub Spliter_Exited(sender As Object, e As System.EventArgs) Handles Spliter.Exited
Me.ProgressBar1.Style = ProgressBarStyle.Blocks
MsgBox("Audio file Spliting Completed!", MsgBoxStyle.Information)
End Sub
End Class
Annotation 2023-12-08 013526.jpg
Annotation 2023-12-08 0135262.jpg
مثل تصویر یک پوشه Tools برای پروژه بسازید و فایل ffmpeg.exe را به این پوشه اضافه کنید و از Properties فایل خصوصیت Copy to Output Directory رو CopyIfNewer قرار داده و از کد ارسالی برای Form1 استفاده کنید.
Annotation 2023-12-08 01352623.jpg
دانلود سورس کد پروژه....