پیدا کردن طول فایل صوتی و تابع تبدیل عدد به صوت

[amirhosein]

با سلام .
برای نوشتن پروژه پایانی دانشگاهم احتیاج به API یا کامپوننت یا هر کدی دارم که بتونه طول فایلهای صوتی رو به میلی ثانیه برگردونه . لازم به توضیحه که اونو برای نوشتن یه تابع که می تونه اعداد را تا دو رقم اعشار و دو رقم صحیح به صوت تبدیل می کنه احتیاج دارم . با تشکر

[amirhosein]

آهای ایهاالناس من بدجوری گیر افتادم یکی یه راهکاری بده:افسرده: :افسرده: :افسرده:

[PalizeSoftware]

از این کد استفاده کن. ضمن اینکه فایل صوتی باید Wav استاندارد ویندوز باشه



Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Function GetWaveLengthByMS(filename As String) As Long
Dim dwReturn As Long
Dim TotalTime As String * 128

mciSendString "OPEN """ & filename & """ alias wavtemplate", 0&, 0&, 0&
mciSendString "SET wavtemplate time format milliseconds", 0&, 0&, 0&

dwReturn = mciSendString("STATUS wavtemplate length", TotalTime, 128, 0&)

mciSendString "Close wavtemplate", 0&, 0&, 0&

If Not dwReturn = 0 Then
GetWaveLengthByMS = -1
Exit Function
End If

GetWaveLengthByMS = Val(TotalTime)
End Function


موفق باشی

[amirhosein]

با تشکر از شما دوست عزیز . خودم هم یه راه پیدا کردم اونم استفاده از کنترل MMControl و خاصیت length اونه . موفق باشید .