دریافتPersianAudioRecorder

[محمدرضا شاهپیری 5,582]

در 2 ساعت قبل، YareGomnam گفته است :

با سلام خدمت استاد شاهپیری ، چطور میتوانم صدای ضبط شده را به اسم دلخواه ذخیره کنم ؟با سپاس

سلام و درود. فکر کنم تو این نسخه نیست عزیز. انشالا فرصت شد تو نسخه بعد لحاظ میشه

[montazeranmahdi 101]

سلام مجدد ، ممنون از پاسخگوییتون ، موفق شدم با روش تغییر نام بعد از ذخیره فایل این کار رو انجام بدم :

 

اول ساب زیر رو ایجاد کردم :

Sub RenameFile(OriginalFileName As String, NewFileName As String) As Boolean
	Dim Result As Int
	Dim StdOut, StdErr As StringBuilder
	StdOut.Initialize
	StdErr.Initialize
	Dim Ph As Phone
	Result = Ph.Shell("mv " & OriginalFileName & " " & NewFileName, Null,  StdOut, StdErr)
	If Result = 0 Then
		Return True
	Else
		Return False
	End If
End Sub

و سپس هنگام رویداد پایان ضبط کد زیر را اضافه کردم :

audiorecord.stopAudioRecorder
Dim adress As String = File.DirRootExternal&"/REC/MYSOUND/firstsound.mp3"
RenameFile(audiorecord.stopAudioRecorder,adress)

با توجه به کدهای بالا فایل صوتی بلافاصله بعد از ضبط و ذخیره شدن آن ، به اسم دلخواه ما تغییر نام می دهد .

 

کیفیت کتابخانه استاد شاهپیری بسیار بالا هست ، خیلی ممنونم

[montazeranmahdi 101]

سلام خدمت شما ، 

آیا امکان توقف هنگام ضبط وجود دارد ؟

[montazeranmahdi 101]

یکی جواب منو بده لطفا 

ممنون

[montazeranmahdi 101]

آقای شاهپیری سلام

اگر این امکان تو کتابخونه وجود داره ممنون میشم بفرمایید 

@ محمدرضا شاهپیری

[محمدرضا شاهپیری 5,582]

در ۱۴۰۰/۵/۳ در ۲۰:۲۹، YareGomnam گفته است:

آقای شاهپیری سلام

اگر این امکان تو کتابخونه وجود داره ممنون میشم بفرمایید 

@ محمدرضا شاهپیری

سلام و درود. اگه منظورتون حالت pause هست خیر. فقط شروع و پایان داره

[MR.B4A 125]

در ۱۳۹۹/۱۱/۲۱ در 10:58، YareGomnam گفته است:

سلام مجدد ، ممنون از پاسخگوییتون ، موفق شدم با روش تغییر نام بعد از ذخیره فایل این کار رو انجام بدم :

 

اول ساب زیر رو ایجاد کردم :

Sub RenameFile(OriginalFileName As String, NewFileName As String) As Boolean
	Dim Result As Int
	Dim StdOut, StdErr As StringBuilder
	StdOut.Initialize
	StdErr.Initialize
	Dim Ph As Phone
	Result = Ph.Shell("mv " & OriginalFileName & " " & NewFileName, Null,  StdOut, StdErr)
	If Result = 0 Then
		Return True
	Else
		Return False
	End If
End Sub

و سپس هنگام رویداد پایان ضبط کد زیر را اضافه کردم :

audiorecord.stopAudioRecorder
Dim adress As String = File.DirRootExternal&"/REC/MYSOUND/firstsound.mp3"
RenameFile(audiorecord.stopAudioRecorder,adress)

با توجه به کدهای بالا فایل صوتی بلافاصله بعد از ضبط و ذخیره شدن آن ، به اسم دلخواه ما تغییر نام می دهد .

 

کیفیت کتابخانه استاد شاهپیری بسیار بالا هست ، خیلی ممنونم

سلام.

دوست عزیز این کداتون ارور فورس کلوز میده!!

خودتون تستش کردید؟

[MR.B4A 125]

یا میشه استاد شاهپیریه عزیز لطف کنن قابلیت تغییر نام فایل ضبط شده رو به این کتابخونه اضافه کنن.

[MR.B4A 125]

ممنون میشم کسی جواب بده

[محمدرضا شاهپیری 5,582]

کتابخونه برای این کار زیاده که. از اونا استفاده کنید.

[MR.B4A 125]

در ۱۴۰۰/۹/۱۶ در 10:40، محمدرضا شاهپیری گفته است:

کتابخونه برای این کار زیاده که. از اونا استفاده کنید.

سلام استاد

ببینید مشکل اصلی اینه که توی این کتابخونه، اسم فایل ضب شده به همراه مسیر فایل در داخل یک رشته ذخیره شده و جدا نیست.

اگه شما برای ذخیره فایل ضبط شده یک تابع جدا درنظر میگرفتید و ورودیه تابع رو یکی آدرس فایل و یکی هم نام فایل درنظر میگرفتید، خیلی عالی بود

 

و این که خب چه کتابخونه هایی این کارو انجام میدن؟

[محمدرضا شاهپیری 5,582]

audiorecord.startRecord(basedir+"filename.mp3")

تو متد بالا به ترتیبی که نوشتم میتونید اسم فایل رو بدید. نیازی نیست تغییر نام بدید بعدش

[MR.B4A 125]

در ۱۴۰۰/۹/۱۶ در 20:06، محمدرضا شاهپیری گفته است:

audiorecord.startRecord(basedir+"filename.mp3")

تو متد بالا به ترتیبی که نوشتم میتونید اسم فایل رو بدید. نیازی نیست تغییر نام بدید بعدش

آخه برادر من، متد startRecord که پارامتر ورودی نداره.

خطا میده

[محمدرضا شاهپیری 5,582]

در ۱۴۰۰/۹/۱۷ در ۰۱:۱۳، batman۱۲۳ گفته است:

آخه برادر من، متد startRecord که پارامتر ورودی نداره.

خطا میده

 

[MR.B4A 125]

در ۱۴۰۰/۹/۱۷ در 01:40، محمدرضا شاهپیری گفته است:

 

بله درست میفرمایید

من هواسم نبود.

اما حالا این یه خطو ببینید:

الان فایل نهایی که ذخیره میشه، اسمش به filename.mp3 تغییر نکرده.

همونی که بود، هست

من چه کار کنم که نام فایل تغییر کنه؟

[MR.B4A 125]

ممنون میشم یکی جواب منو بده

من مطمئنم بسیاری از کسانی که از این کتابخونه استفاده کردن، به همچین مشکلی برخورد کردن

[محمدرضا شاهپیری 5,582]

در ۱۴۰۰/۹/۱۹ در ۰۲:۰۷، batman۱۲۳ گفته است:

دوست عزیز شما یه اسلش کم گذاشتین.به شکل زیر بزارید.

(...."/"&"record/"&"filename.mp3")

[MR.B4A 125]

در ۱۴۰۰/۹/۲۰ در ۱۱:۵۳، محمدرضا شاهپیری گفته است:

دوست عزیز شما یه اسلش کم گذاشتین.به شکل زیر بزارید.

(...."/"&"record/"&"filename.mp3")

استاد بزرگوار من میخوام نام فایل رو تغییر بدم

با این خط نام فایل تغییر نکرد

ببینید، نام فایل همونیه که دورش خط کشیدم

اونو میخوام تغییر بدم

اینم خطی که استفاده کردم

par.startRecord(File.DirRootExternal&"/"&"record/"&"filename.mp3")

 

[محمدرضا شاهپیری 5,582]

در ۱۴۰۰/۹/۲۱ در ۰۱:۳۲، batman۱۲۳ گفته است:

ا

 

نسخه جدید بارگزاری شد. کتابخونه رو آپدیت کنید رفع میشه. و اینکه از DirRootExternal سعی کنید استفاده نکنید به جاش از RuntimePermissions.GetSafeDirDefaultExternal استفاده کنید.

[rasool.g 135]

در ۱۴۰۰/۹/۲۱ در 02:19، محمدرضا شاهپیری گفته است:

نسخه جدید بارگزاری شد. کتابخونه رو آپدیت کنید رفع میشه. و اینکه از DirRootExternal سعی کنید استفاده نکنید به جاش از RuntimePermissions.GetSafeDirDefaultExternal استفاده کنید.

سلام جناب شاهپیری.. ببخشید خروجی این کتابخونه wav هم هست و میتونه باشه؟