Arsip: Bikin Rekaman Suara Sendiri Dengan Delphi


by MrMixer in Multimedia more 13 years ago 3902
Ini buat yang suka menyanyi atau karaokean pakai komputer. Rasanya assyik juga lho kalau sambil karokean nyanyi lagu JABLAI, kita juga bisa sambil rekam suara vocal kita kedalam komputer. Jadi.. abis selesai menyanyi, kita tinggal putar deh hasilnya, biar kita maupun Titi Kamal juga bisa ikutan dengar kembali lagunya.
Nah.. Sekarang dengan bantuan delphi, kita coba buat yuk program untuk merekamnya.
Yang terpenting dikomputer anda harus sudah terpasang sound-card yang ada microphone, line-in dan line-outnya, biar suara vocal kita dan musicnya pun ikut terekam. Terus.. Kita bikin dengan Delphi sedikit program kecil yang memanfaatkan fungsi Windows API mciSendstring. Adapun kegunaan dari mciSenString ini sendiri, bertujuan untuk mengirim perintah/command ke dalam perangkat audio.
Nah.. Supaya lebih jelas dan lengkapnya, silahkan anda lihat contoh programnya dibawah ini. Selamat mencoba..
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses mmSystem;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
//Buka Saluran WaveAudio
  mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Form1.Handle);
//Seting Saluran WaveAudio dengan 16 Bit Stereo 44100Khz
  mciSendString('SET mysound TIME FORMAT MS ' +   // Set time
        'BITSPERSAMPLE 16 ' +         // 16 Bit
        'CHANNELS 2 ' +           // STEREO
        'SAMPLESPERSEC 44100 ' +      // 44100 KHz
        'BYTESPERSEC 16000',        // 16000 Bytes/s
  nil, 0, Form1.Handle);
//Mulai Proses rekam suara yang keluar
  mciSendString('RECORD mysound', nil, 0, Form1.Handle)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//Simpan hasil rekaman menjadi file audio wav
  //yang nama filenya telah kita tentukan di edit1.
  mciSendString(PChar('SAVE mysound ' + edit1.text), nil, 0, Form1.Handle);
//Tutup kembali Saluran WaveAudio
  mciSendString('CLOSE mysound', nil, 0, Form1.Handle)
end;
end.
Syntax Highlighted with https://pascal-id.org/syntax
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com