نقل قول: با وی بی من کار نکردم ،شاید تابع راحت تر هم داشته باشه برای کار با فایلها ولی به صورت عمومی تابع ReadFile میتونی فایل را به صورت باینتری باز کنی و با استفاده از پوینتری که در اختیارت میزاره روی بایتها حرکت کنی
جوکر جان میدونم که شما ویبی کار نیستید . ولی تا اونجایی که من خبر دارم پوینتر ( اشارگر ها ) در ویبی 6 وجود ندارن ( متاسفانه ) .
نقل قول: خب سوال همینه ،کجای سیستم کاربر دیکریپت میکنی ؟روی هارد یا توی حافظه ؟
خوب رو هارد مگه تو حافظه هم میشه اطلاعات رو دکریپت کنیم ؟
نقل قول: چطوری میخونیش و پخشش میخوای بکنی ؟
با توابع api
گوگل بازی نمیکنیا :)
http://www.google.com/#hl=en&q=readFile+...7f49a5e7dd
پیوست » مگه میشه میکروسافت توابع خودشو نتونه باهاش کار کنه ؟ روش کارش را نمیدونم ولی مطمئنا شدنیه توی vb
توی حافظه هم میشه ، منتها دنگ و فنگ داره ، و به همون نسبت که برای شما دنگ فنگ داره ( برای افراد تازه کار هم دردسر داره که سراغش نرن )
اگه روی هارد مشتری دیکریپت کنی خب چه فرقی میکنه با رمز نبودن ؟!؟ از همونجایی که شما دیکریپت کردی میره فایلها را برمیداره
پیوست:
البته کسی که 1500 تا فایل را بخواهد برود بردارد بایدآدم بیکاری باشد.!!!
نقل قول: اگه روی هارد مشتری دیکریپت کنی خب چه فرقی میکنه با رمز نبودن ؟!؟ از همونجایی که شما دیکریپت کردی میره فایلها را برمیداره
جوکر جان هر فایل قبل پخش شدن دکریپت و بعد اتمام پخش دباره انکریپت میشه !
در ضمن مشتری های این برنامه ممکنه هر کسی باشه !
تو اين روشی که در پيش گرفتی يه مشکل ديگه هم هست
وقتی فايل رو ميخوای پخش کنی بايد از حالت کد خارج کنی و تا زمانی که فايل در حال پخش هست نميتونی دوباره فايل رو کد کنی
و در هين پخش فايل صوتی ميشه از فايل کپی گرفت
نقل قول: کسی بلده بگه چطوری فایل wav رو به صورت binary بخونم
کد:
Function OpenFile(ByVal FilePatch As String) As String
Dim FileDATA As String
Open FilePatch For Binary As #1
FileDATA = Space(FileLen(FilePatch))
Get #1, , FileDATA
Close #1
OpenFile = FileDATA
End Function
مجتبی جان ممنون ولی خودت کدی رو که گزاشتی تست کردی ؟
من یک فایل wav با حجم 15 mb رو با روش شما باز کردم وتنها چیزی که تابع برگردوند این بود :
تابع درسته
نکنه با TextBox باز کردی؟
texbox قابليت نمايش کاراکتر Null رو نداره
(۱۰-آذر-۱۳۸۸, ۰۰:۰۸:۴۳)joker نوشته است: [ -> ]چون تو در حد خیلی خفن و خطرناکی چیزی که در حدت باشه در دسترس ندارم بهت بدم بگم بشکونش :))))
ظاهر چیزی به اسم تابع و api و اینا تا حالا نشنیدی :) من دیگه چی بگم؟ شما هر برنامه ای هم بنویسی نیاز مند خوندن از همون پورت میکروفنت هست یا نیست ؟ تو عمرت کنترل I/O سطح سیستم عامل نشنیدی ؟ برای شروع توابع اکسپورت تیبل فایل winmm.dll توی شاخه ویندوزت را بخون ، بعد ببین همین چندتا تابع فزرتی را بتونی جلوشون را بگیری و یا یک لول بالاتر رفتی سطح سیستم عامل io کارت صوتی را کنترل کردی ، یا توابع مربوطه را هوک کردی ببینم جت آدیو پشتک میزنه یا وارو و بعد از تکمیل کنترل و حفاظت توابع اونوقت ببینم صدا سوسک از میکروفونت میاد که بخوای کپچرش کنی یا نه :))
نقل قول: دوستان عزیز فقط اگه کسی بلده بگه چطوری فایل wav رو به صورت binary بخونم و 3 کاراکتر از اول و 3 کاراکتر از آخر فایل حذف کنم و دوباره کاراکتر های حذف شده رو به فایل برگردونم .
با وی بی من کار نکردم ،شاید تابع راحت تر هم داشته باشه برای کار با فایلها ولی به صورت عمومی تابع ReadFile میتونی فایل را به صورت باینتری باز کنی و با استفاده از پوینتری که در اختیارت میزاره روی بایتها حرکت کنی و با تابع writeFile تغییرات را جائی از فایل که میخوای ذخیره کنی
http://msdn.microsoft.com/en-us/library/...S.85).aspx
http://msdn.microsoft.com/en-us/library/...S.85).aspx
اما
نقل قول: من فیلهای wav رو در سیستم خودم انکریپت و در سیستم کاربر دکریپت می کنم .
خب سوال همینه ،کجای سیستم کاربر دیکریپت میکنی ؟روی هارد یا توی حافظه ؟ چطوری میخونیش و پخشش میخوای بکنی ؟
هر چی نوشتم پاک شد IE بستیدم :-))
جوکر iq باهوش
من میام یه هدفون بیسیم به سیستمم وصل میکنم :-)
بعد میام رو موج هدفون بیسیمم صدا را ضبط میکنم با کیفیت خوب :-))
حتما اونجا هندل فرکانسها را میگیری شوتشون میکنی؟
یا هوک میکنی فرکانسه رو :-))
یا به پورت I/O ربط داره :-))
میگم خروجی اسپیکر که هم به به 2 تا باند وصل میشه را هم میتونی با توابع API وای مچشو بگیری :-))
من میام خروجی یکی از باندها را به میکروفن وصل میکنم :-))
LOOOOOOOOOOOOOOL
BYE BYE
نقل قول: تابع درسته
نکنه با TextBox باز کردی؟
texbox قابليت نمايش کاراکتر Null رو نداره
مجتبی جان مر30 ولی با RichTextBox هم نمایش میدم برنامه هنگ می کنه ! حتی از DoEvents هم استفاده کردم .
بی زحمت خودت با یه فایل wav تستش کن ، نتیجه رو اعلام کن .
نقل قول: دوستان عزیز فقط اگه کسی بلده بگه چطوری فایل wav رو به صورت binary بخونم و 3 کاراکتر از اول و 3 کاراکتر از آخر فایل حذف کنم و دوباره کاراکتر های حذف شده رو به فایل برگردونم .
دوستان کسی این کار رو بلد نیست انجام بده ؟
کممممک
اون تابع درست هست تو اين پروژه هم از همون استفاده کردم
توضيح:
فايل داخل برنامه لود ميشه
چک ميکنه که که سه بايت اول 255 هست، اگه بود سه بايت رو حذف ميکنه و فايل رو ذخيره ميکنه و موزيک Play ميشه بعد دوباره 3 بايت 255 اول فايل اضافه ميکنه
اگه هم فايل برای اولين بار لود شده باشه بعد از Play سه بايت 255 به اول فايل اضافه ميکنه.
خوب اين يه مثال خيلی ساده بود
برای ايمن شدنش بهتره به جاهای مختلف فايل بايت اضافه کنی, يا بايت ها رو تغيير بدی
نقل قول: هر چی نوشتم پاک شد IE بستیدم :-))
جوکر iq باهوش
من میام یه هدفون بیسیم به سیستمم وصل میکنم :-)
بعد میام رو موج هدفون بیسیمم صدا را ضبط میکنم با کیفیت خوب :-))
حتما اونجا هندل فرکانسها را میگیری شوتشون میکنی؟
سواد خوندن که داری ؟
پست 16 را بخون ، پاراگرافآخر (پیوست )چی نوشتم
(۱۰-آذر-۱۳۸۸, ۱۶:۵۰:۵۶)joker نوشته است: [ -> ]نقل قول: هر چی نوشتم پاک شد IE بستیدم :-))
جوکر iq باهوش
من میام یه هدفون بیسیم به سیستمم وصل میکنم :-)
بعد میام رو موج هدفون بیسیمم صدا را ضبط میکنم با کیفیت خوب :-))
حتما اونجا هندل فرکانسها را میگیری شوتشون میکنی؟
سواد خوندن که داری ؟
پست 16 را بخون ، پاراگرافآخر (پیوست )چی نوشتم
خوب من چنیدین روش هم به جز این گفتم با سوادوووو
حالا اگر دوست داری برنامه خوشکلتو بزار برنامه کوچلو 2 میلیونیت تا واست پخ پخش بکنم :-))