مشاهده نسخه کامل
: چطوري ميتونم صدا رو ضبط كردن
دوستان من به یه تیکه برنامه احتیاج دارم که یک فایل صوتی را با فرمت a-law ضبظ کنه .یا تیکه برنامه ای که بتونه تبدیل کنه به این فرمت .
Ali-Bahal
21-07-2006, 12:22
من نمی دونم...
اما الان می گردم دنبالش تا جبران زحماتت را در مقابل سوالاتم را جبران کنم
دیگه نگردید پیداش کردم .... از کسانی که می خواستن برن دنبالش پیشاپش کمال تشکر را دارم .....
اینم لینکش
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
Ali-Bahal
21-07-2006, 12:30
اگر سوالی داری بگو تا کمکت کنم
Ali-Bahal
21-07-2006, 19:36
راستی ممنون از همه زحماتت می توانی یکی از بهترین برنامه هایت را برام آپلود کنی؟ خیلی دوست دارم کارات را ببینم
شما لطف دارین . انشاء الله نمونه کار هم میزارم .
black_storm
23-07-2006, 14:19
اقا من کدش را دارم انشائ الله دفعه بهدی که اومدم برات می فرستم
--
فقط بدون از طریق دستورات mci میشه -
- فکر کنم فرمت wave ذخیره می کنه -
black_storm
23-07-2006, 14:27
دوستان من به یه تیکه برنامه احتیاج دارم که یک فایل صوتی را با فرمت a-law ضبظ کنه .یا تیکه برنامه ای که بتونه تبدیل کنه به این فرمت .
----------
البته اگه به دردت نخورد شرمنده -
حالا ضرر نداره تیری در تاریکی
دوست عزیز برای اطلاعات عمومی میگیم فرمت A-Law یکی از فرمت های فایل های Wave است که می توان اونو با کیفیت بر روی خط تلفن ارسال کرد ...
black_storm
24-07-2006, 14:21
بتدا يك كلاس به نام Class1 و یک فرم به نام form1 درست کن
سپس کد زیر را قرار بده
دکمه ها و ... با خودت
---------
در form1
Dim SndRecorder As New Class1
()Private Sub CmdRec_Click
SndRecorder.StartRecord
CmdRec.Enabled = False
CmdStopRec.Enabled = True
End Sub
()Private Sub CmdStopRec_Click
SndRecorder.StopRecord
CmdRec.Enabled = True
CmdStopRec.Enabled = False
End Sub
()Private Sub Form_Load
" SndRecorder.FileName = "C:\Sample.wav
End Sub
------
در class1
Private FName As String
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 Enum MyState
Idle
Recording
Paused
End Enum
Private xState As MyState
Public Property Get FileName() As String
FileName = FName
End Property
(Public Property Let FileName(ByVal sFileName As String
FName = sFileName
End Property
Public Function StartRecord() As Boolean
: On Error GoTo ER
: If FName = "" Then GoTo ER
Dim RS As String, cb As Long, I As Long
( RS = Space$(1024
( I = mciSendString("open new type waveaudio alias capture", RS, 1024, cb
( I = mciSendString("record capture", RS, 1024, cb
xState = Recording
StartRecord = True
Exit Function
:ER
StartRecord = False
End Function
Public Function StopRecord() As Boolean
: On Error GoTo ER
: If FName = "" Then GoTo ER
Dim RS As String, cb As Long, I As Long
(RS = Space$(1024
( I = mciSendString("save capture " & FName, RS, 1024, cb
( I = mciSendString("close capture", RS, 1024, cb
xState = Idle
StopRecord = True
Exit Function
: ER
( I = mciSendString("close capture", RS, 1024, cb
StopRecord = False
End Function
()Private Sub Class_Initialize
xState = Idle
End Sub
()Private Sub Class_Terminate
StopRecord
End Sub
Public Function PauseRecord() As Boolean
: On Error GoTo ER
: If FName = "" Then GoTo ER
Dim RS As String, cb As Long, I As Long
(RS = Space$(1024
If xState = Paused Then
(I = mciSendString("record capture", RS, 1024, cb
xState = Recording
ElseIf xState = Recording Then
(I = mciSendString("pause capture", RS, 1024, cb
xState = Paused
End If
PauseRecord = True
Exit Function
:ER
PauseRecord = False
End Function
Public Property Get State() As MyState
State = xState
End Property
دوست عزیز از لطفی که کردین ممنون . این سورس من قبل هم دیده بودم . این سورس مشکلی نداره ولی باید به سوال من توجه دشاته باشی با فرمت A_Law است که این با فرمت PCM ذخیره میکنه . در ضمن من مشکلم حل شد . اینو همون اول نوشتم .
لام به همگي
آقا خيلي خوب بود
ممنون
vBulletin , Copyright ©2000-2024, Jelsoft Enterprises Ltd.