درخواست یک ocx

[alifromir]

سلام
من یه اکتیو ایکس یا یک کامپوننت برای ضبط صدا از کارت صدا می خوام
که به صورت mp3 ذخیره کنه وقابلیت انتخاب Aoudio bit rate را داشته باشه
--------------------------
اندکی ویرایش
mzjahromi
No Warez Activity

[Hossein Bazyan]

رسیدن بخیر !!
من دو ماه که این بحث رو مطرح کردم دوستان کسی همچنین اکتیو ایکسی نداشت
اگه پیدا کردی ما هم شدیدا" نیازمندیم

[Valadi]

کامپونت زیادی هستند اینکه چنین قابلیت و حتی فراتر دارند اما بصورت mp3 نیست بکه Wav هستند مانند MMTools , MultiImage, غیره که من حضور ذهن ندارم اما فایل ocx هم هست

[Hossein Bazyan]

کامپونت زیادی هستند اینکه چنین قابلیت و حتی فراتر دارند اما بصورت mp3 نیست بکه Wav هستند مانند MMTools , MultiImage, غیره که من حضور ذهن ندارم اما فایل ocx هم هست

دوست عزیز
من به شکل wav هم کارم راه میفته اگه داری لطفا برام ایمیل کن
Bazyan1350@yahoo.com
مرسی

[Valadi]

دوست عزیز
من به شکل wav هم کارم راه میفته اگه داری لطفا برام ایمیل کن
Bazyan1350@yahoo.com
مرسی
برایتان جستجو کردم و مطلبی برای راحتی شما بدست آوردم

uses mmSystem;

{....}

procedure TForm1.Button1Click(Sender: TObject); // Record
begin
mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);
mciSendString('SET mysound TIME FORMAT MS ' + // set time
'BITSPERSAMPLE 8 ' + // 8 Bit
'CHANNELS 1 ' + // MONO
'SAMPLESPERSEC 8000 ' + // 8 KHz
'BYTESPERSEC 8000', // 8000 Bytes/s
nil, 0, Handle);
mciSendString('RECORD mysound', nil, 0, Handle)
end;


procedure TForm1.Button2Click(Sender: TObject); // Stop
begin
mciSendString('STOP mysound', nil, 0, Handle)
end;


procedure TForm1.Button3Click(Sender: TObject); // Save
var
verz: String;
begin
GetDir(0, verz);
mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle);
mciSendString('CLOSE mysound', nil, 0, Handle)
end;
--------------------
راستی یادم رفت بگم که می توانی تنظیمات صدا را هم خود بصورت دستی بدی و البته می تونی امکانات بیشتری بهش اضافه کنی

[alifromir]

خیلی ممنون از راهنمایی تون
من این برنامه را امتحان کردم ولی از میکروفون ضبط می کنه نه از کارت صدا
اگه می شه پروژه کاملش را بزارید !!شرمنده
این mmtool را هم دانلود کردم چیز جالبیه ولی این هم از میکروفون ضبط می کنه

[Valadi]

یکم توضیح بیشتری بده می خوای چه کار کنی

[Hossein Bazyan]

این OCX را (mmtool ) از کجا میشه دانلود کرد . من گشتم اما فقط در سایتهای چینی پیدا میشه که نتوانستم دانلود کنم.

[alifromir]

سلام
من همینطور که گفتم می خوام به جای میکروفون از کارت صدا ضبط کنه وآن را در یک فایل mp3یا wav ذخیره کنه.
اگه windows movie maker را دیده باشی در قسمت آپشن ضبط صدا اگه audio input source
را stereo Mixer انتخاب کنیم از کارت صدا می خونه وضبط میکنه الان چند روزه من خودما کشتم
نتونستم این کار را در دلفی انجام بدم .
تــــــــو رو خدا من دیگه دارم کلافه می شم. یکی نیست به من کمک کنـــــــــــــــــــــــــــــــــه؟
mmtools را می تونی از آدرس زیر بگیری
http://www.swiftsoft.de/files/mmtool7.exe

[Valadi]

کامپونت mmtool در سایتها همه نسخه دمو است و حجم تا حدودی بالایی داره
این کامپونت امکانات خیلی زیادی داره از جمله رقص نوری صدا به شکلهای مختلف و پشتیبانی از بیشتر کارت صدا و حتی کارت صداهای حرفه ای و ....
ضمنا mmtool کامپونت است نه OCX

[alifromir]

آقا هنوز مشکل من حل نشده بین این همه برنامه نویس ماهر کسی نیست
این کار ما را راه بیندازه؟

[Valadi]

ببین این بدرد می خوره

[Hossein Bazyan]

مشکل بنده و این دوستمان ضبط صدا نسست بلکه مقایسه دو فایل صوتی با هم مانند موبایلها که صدای گرفته شده از مودم را با صدای داخل که قبلا ذخیره شده مقایسه میکنه .

[alifromir]

ولدی جان ممنون ولی من مشکلم رکورد از کارت صداست نه میکروفون.
مقایسه دو فایل صوتی چیه؟

[Valadi]

منظور از مقایسه فایلها چیه ؟

[MNosouhi]

مشکل بنده و این دوستمان ضبط صدا نسست بلکه مقایسه دو فایل صوتی با هم مانند موبایلها که صدای گرفته شده از مودم را با صدای داخل که قبلا ذخیره شده مقایسه میکنه .
قضیه فرق کرد ، ضبط صدا کار سختی نیست ، اما مقایسه 2 صدا اصلا کار ساده ای نیست .