<p>編制自已的電話錄音小程序</p>
<p> </p>
<p></p>
<p>新疆　王衛</p>
<p></p>
<p>　　或許你會認為用計算機進行電話錄音需要昂貴的專用軟件，其實只要懂得VB和Access的一些基本知識，我們也可以自己制作一個具備電話錄音、錄音數據保存、查詢功能的小系統。大概只需1500元左右，其費用主要用于增添所需的聲卡、音箱及具有語音功能的Modem（當然還有你的腦力勞動），比起兩三萬元的專用錄音軟件，可以說是物美價廉了。</p>
<p>　　首先介紹該系統的工作原理：利用VB5.0的OLE容器控件，在運行時創建嵌入對象的方法，激活在WIN95注冊過的錄音軟件，將輸入到聲卡的電話語音信號錄制為WAV文件，嵌入OLE容器控件中。由于把OLE容器控件與某個數據庫綁定，在聲音文件嵌入OLE容器控件的同時也存入了數據庫。以下將詳細地介紹小系統的實現過程，主要有設備的連接、數據庫的建立、簡單的VB編程。</p>
<p>一、設備的連接</p>
<p>　　設備的連接主要指Modem與電話線、電話機，Modem與聲卡之間的連接方式。先將墻上的電話進線插到Modem的接口上，再用另一根電話線接在Modem與電話機之間，把Modem與電話機串聯起來。Modem與電話機之間的順序必須被考慮到。如果電話進線先進入電話機，當提起電話聽筒時，信號將先被電話機截取，而不能進入Modem。接下來用雙向音頻輸入輸出線把Modem的SPK端口和聲卡的LINE INC端口連起來；將Modem的聲音信號輸入到聲卡。好了，完成設備的連接后，我們就可以開始進行軟件方面的制作了。</p>
<p>二、用Access建立一個收藏錄音數據的數據庫</p>
<p>　　首先建立一個存放聲音數據的數據庫，數據庫可以是存儲在Microsoft Jet數據庫引擎中的Microsoft Access、dBASE、Microsoft Foxpro、Excel等。由于需保存的數據并不復雜，我選用了小型而易用的Microsoft Access97，建立一個名為Recorder的數據庫來管理錄音數據。在Recordeer數據庫中生成表Recording，該表包含四個字段：ID、錄音文件、Day、Time。結構如下：</p>
<p>-----------------------------------------------</p>
<p>字段名稱　 數據類型　  字段屬性</p>
<p>-----------------------------------------------</p>
<p>ID　　　　 自動編號　  遞增</p>
<p>錄音齊件　 OLE對象</p>
<p>Day　　　  日期/時間　 默認值=Date();格式=長日期</p>
<p>Time　　　 日期/時間　 默認值=Time();格式=長時間</p>
<p>------------------------------------------------</p>
<p>　　把數據庫Recorder保存在C:\下，以待后用。數據庫方面的工作暫時到此為止，接著將要用VB來編寫一個小程序，實現錄音、自動將數據存入數據庫的功能。</p>
<p>三、用VB5.0 建立錄音小程序</p>
<p>　　在VB5.0下新建一“標準EXE”工程，打開工程中的空白窗體Form1。在Form1上添加各種控件。</p>
<p>1．在Form1上添加Data控件</p>
<p>　　將Data控件添加到窗體上，Data控件屬性設置如下：</p>
<p>-------------------------------------------</p>
<p>（名稱）　　  Data1</p>
<p>-------------------------------------------</p>
<p>Connect　　　 Access</p>
<p>DatabaseName  C:\RECORDER.mdb</p>
<p>Recordsource  recording</p>
<p>-------------------------------------------</p>
<p>　　以上屬性設置把Data控件綁定到剛才建立的Access數據庫Recorder的recording表。</p>
<p>2．在Form1上添加Text Box控件</p>
<p>　　在Form1上添加三個Text Box控件，并在適當位置增添相應的標簽。文本框屬性設置如下：</p>
<p>------------------------------------------------------------</p>
<p>　　　　　  TextBox控件1 　 TextBox控件2　 TextBox控件3</p>
<p>------------------------------------------------------------</p>
<p>（名稱）　  Text1 　　　　  Text2 　　　　 Text3</p>
<p>Data Field  ID 　　　　　　 Day 　　　　　 Time</p>
<p>Datasource  Data1　　　　　 Data1 　　　　 Data1</p>
<p>------------------------------------------------------------</p>
<p>　　以上屬性設置使三個Text Box綁定到Data控件，用于從與Data控件連接的數據庫中分別顯示字段ID、Day、Time。</p>
<p>3．在Form1上添加OLE容器控件</p>
<p>　　在Form1上添加OLE容器控件，屬性設置如下：</p>
<p>----------------------------------</p>
<p>（名稱）　　　　 OLE1</p>
<p>----------------------------------</p>
<p>Data　　　　　　 Field 錄音文件</p>
<p>Datasource　　　 Data1</p>
<p>Autoactivate　　 2-Doubleclick</p>
<p>---------------------------------- </p>
<p>　　通過屬性設置把它與Data控件綁定，從Recorder數據庫中顯示字段“聲音文件”。當OLE容器中的錄音數據被更新時，被更新或新增的聲音對象將自動被寫回數據庫。當雙擊OLE容器中的數據時，將自動播放聲音文件。</p>
<p>4．在Form1上添加Command Button控件</p>
<p>　　添加兩個Command Button控件到Form1上，其中一個命令按鈕用于調用錄音機以錄制通話數據，并將錄音的聲音數據嵌入到OLE容器中。該按鈕屬性設置如下：</p>
<p>---------------------</p>
<p>（名稱）  Command1</p>
<p>---------------------</p>
<p>Caption　 開始錄音</p>
<p>---------------------</p>
<p>　　雙擊Command1，在Private Sub Command1_Click()中輸入以下代碼：</p>
<p>Data1.DatabaseName="C:\recorder.mdb"</p>
<p>Data1.Recordsource="Recording"</p>
<p>Data1.Refresh '創建一條新記錄</p>
<p>Data1.Recordset.AddNew '創建一個嵌入聲音對象</p>
<p>OLE1.CreateEmbed "","SOUNDREC" '激活WIN95附件下的錄音機</p>
<p>OLE1.DoVerb 0</p>
<p>End Sub</p>
<p>　　另一個按鈕用于關閉程序，屬性設置如下：</p>
<p>----------------------</p>
<p>（名稱）  Command2</p>
<p>----------------------</p>
<p>Caption　 退出</p>
<p>---------------------- </p>
<p>　　雙擊Command2，在Private Sub Command2_Click()中輸入以下代碼：</p>
<p>Unload Form1</p>
<p>End</p>
<p>End Sub</p>
<p>5．編寫Form1的Activate過程</p>
<p>　　Form1的Activate過程代碼，用于在Form1打開的同時打開通信軟件SuperVoice2.2并激活Command1的功能。雙擊Form1，彈出編寫代碼窗口，在對象下拉列表中選擇Form，在過程下拉列表中選擇Activate，在Private Sub Form_Activate()中輸入以下代碼：</p>
<p>'激活Command1的功能</p>
<p>Call Command1_Click</p>
<p>'調用安裝在d:\supervoc\program\中的通信程序SuperVoice2.2，來啟動Modem的語音功能</p>
<p>dim tel</p>
<p>tel=shell("d:\supervoc\program\supervoc.exe",1)</p>
<p>appactivate tel</p>
<p>End Sub</p>
<p>四、程序運行結果</p>
<p>　　保存工程，并將其生成可執行程序“錄音.EXE”，放在C:\下面。好了，大功告成。現在退出VB，試一試在WIN95下運行。</p>
<p>　　當雙擊“錄音.EXE”時，程序自動打開通信軟件SuperVoice2.2（一般購買Modem時都隨機附送SuperVoice2.2），在SuperVoice2.2的系統設置中將語音輸入設備設為電話聽筒，及啟動SuperVoice2.2時彈出仿真電話撥號盤（只需在第一次使用時設置）。設為電話聽筒的好處是通話時不需要麥克風，直接使用電話機。接著出現窗體Form1，并自動啟動附件下的錄音機。進行通話錄音時，單擊仿真電話拔號盤上的免提鍵及錄音機上的錄制按鈕，開始錄音。錄制的聲音文件被嵌入OLE容器中，同時被寫到與OLE容器連接的數據庫Recorder.mdb中，并自動生成錄音的日期時間。除了錄音功能外，還可以通過點擊Data控件上的箭頭按鈕選擇記錄查詢，雙擊OLE容器（顯示為喇叭圖標）；自動播放選擇的通話錄音。如果再給窗體Form1添上DBComboBox、DBGrid控件，將使其查詢功能更為完善。</p>
<p>　　順便提一下，剛寫完這篇文章，我又找到一個可在Win95注冊的錄音軟件，就是創新的SoundO'LE，由于界面漂亮且沒有限制錄音長度（附件的錄音機的錄音長度只有一分鐘），我將準備拿它來取代那土里上氣的錄音機，使得我的小程序更具專業性。</p>
<p>　　以上代碼在VB5.0、Win95系統上調試通過。</p>
<p></p>
<p>　</p>
<p> </p>