【正文】 內(nèi)容外，論文不含任何其他個(gè)人或集體已經(jīng)發(fā)表或撰寫(xiě)過(guò)的成果。該系統(tǒng)采用 Delphi 軟件設(shè)計(jì)，可以錄入、刪除、修改用戶信息，可錄制、選擇廣播語(yǔ)音，然后通過(guò)串口發(fā)送 AT 指令完成自動(dòng)的語(yǔ)音廣播，未撥通的用戶將被標(biāo)記，用戶可以選擇繼續(xù)呼叫，且每個(gè)用戶可設(shè)置分組標(biāo)記，可方便地列出符合條件（需要撥號(hào)）的用戶組。 AT Instruction。主要實(shí)現(xiàn)按照 Access 數(shù)據(jù)庫(kù)中的信息挨個(gè)打電話，將語(yǔ)音通知廣播給數(shù)據(jù)庫(kù)通訊錄中每一個(gè)人。為了使其用串口進(jìn)行通信，首先要了解 TC35i串口通迅波特率范圍以及相關(guān)的音頻接口，然后通發(fā)送 AT 指令來(lái)控制 TC35i 實(shí)現(xiàn)語(yǔ)音拔號(hào)。） 8 (5)執(zhí)行完相應(yīng)操作后仍然跳回第 3 步等待事件發(fā)生。 進(jìn)入系統(tǒng)后，首先顯示的是 form1，點(diǎn)擊“新增”按鈕增加用戶資料后，則彈出 form4新增用戶窗口，點(diǎn)擊“撥打”按鈕后則彈出form5正在撥號(hào)的顯示窗口， datamodule窗口屬于隱藏面板，是專門(mén)用來(lái)放置無(wú)界面的控件的，不會(huì)顯示出來(lái)。 如果 Flag等于 1，說(shuō)明當(dāng)前正在撥打電話，但對(duì)方還沒(méi)有接通，設(shè)置一個(gè) wait_time（等待超時(shí)時(shí)間，來(lái)自控件設(shè)置）如果在這個(gè)時(shí)間內(nèi)沒(méi)有收到 OK指令，就說(shuō)明對(duì)方?jīng)]有接電話，于是發(fā)送掛機(jī)命令，讓 flag 等于 0； 如果 Flag 等于 2，說(shuō)明對(duì)方已經(jīng)接了電話了，檢查播放器的狀態(tài)，如果播放完畢，就發(fā)送掛機(jī)命令，并且使 flag 等于 0。 (5)本設(shè)計(jì)使用了兩個(gè) adoquery組件，一個(gè)用來(lái)顯示查詢的數(shù)據(jù)，一個(gè)用來(lái)執(zhí)行 SQL，無(wú)回顯指令，如插入、更新等，如果公用一個(gè)，在 13 每次執(zhí)行完無(wú)返回?cái)?shù)據(jù)的命令之后， 顯示內(nèi)容將變成空白，這是使用兩個(gè) adoquery 組件帶來(lái)的好處。select * from friends where 39。 二進(jìn)制模式： variant v:=。 GSM 模塊的 AT指令 基本命令： ? 撥打電話 ATD137xxxxxxxx。+tgt+chr(13)。 17 圖 錄音界面 錄音完畢 (3)切換到撥號(hào)界面，使用添加、刪除、查找、列出符合條件的人等操作將需要撥打的人顯示出來(lái)； 圖 修改數(shù)據(jù)功能 18 圖 添加用戶 圖 搜索分組功能 (4)點(diǎn)擊撥號(hào)，等待撥打完畢（也可強(qiáng)行中途終止）； 19 圖 撥號(hào)狀態(tài)顯示界面 (5)檢查是否所有人都撥打成功，如有失敗者，可篩選出來(lái)，重新?lián)艽颉? 6 結(jié)論 本次設(shè)計(jì)內(nèi)容是設(shè)計(jì)一個(gè)能夠自動(dòng)呼叫進(jìn)行語(yǔ)音廣播的上位機(jī)軟件，開(kāi)發(fā)語(yǔ)言使用 Pascal，開(kāi)發(fā)環(huán)境使用 Delphi7，主要涉及了串口、定時(shí)器、 Access數(shù)據(jù)庫(kù)操作，以及 GSM 模塊的 AT 指令，軟件開(kāi) 21 發(fā)難點(diǎn)在于設(shè)計(jì)撥號(hào)的流程時(shí)對(duì)各種資源的調(diào)配和變量的控制。 begin loadallm()。 加載可用串口與波特率過(guò)程： procedure ()。hardware\devicemap\serialm39。 。)。480039。 (39。)。92160039。 end。 end。 {******************************************************** * 發(fā)送短信 msg(someone,string) * * * *********************************************************} procedure (tgt,msg:string)。 sleep(1000)。// +timetostr(nowtime) end。 i:integer。 result:=strtoint(temp2)。.wav39。 except :=True。 end。信息39。,MB_ICONERROR+MB_OK)。 { 聲音頻率 ,如 11025,22050, 44100} fn : string { 對(duì)應(yīng)的文件名稱 } )。 := 1。 assignfile(wf,fn)。 if then begin if 39。 end end。 。 end。 try :=39。 :=39。 :=39。 end。請(qǐng)選擇 mdb 格式的文件 !39。 end。,39。)。 :=0。 end。 36 end。 :=+39。 :=true。 begin :=39。 begin :=39。 begin if((findmystr(39。39。 mystr1:=39。 var str:string。 end else if kk19 then begin mystr2:=mystr2+str。 kk:=kk+1。 break。kk=39。 。 wait_time=39。 end。 end。 end else begin kk:=0。 if(kk10)then 39 begin mystr1:=mystr1+str。 mystr2:=39。39。,strtt)=1) and (flag=1))then begin 38 flag:=2。+inttostr((39。+inttostr((39。連接 GSM 模塊 39。 :=0。 begin if =39。 {******************************************************** * 列出所有人按鈕 * * * *********************************************************} procedure (Sender: TObject)。39。 35 end else begin 。,MB_ICONERROR+MB_OK)。 begin if(=39。錯(cuò)誤39。數(shù)據(jù)庫(kù)打開(kāi)錯(cuò)誤，數(shù)據(jù)庫(kù)必須內(nèi)含friends 表 !39。 33 :=true。39。39。 var i:integer。試聽(tīng) 39。 begin if(=39。=ExtractFileExt() then := 31 else (39。 {移動(dòng)指針到文件頭 } write(wf,wh)。 := rate。 wh : TWavHeader。 :=false。 :=True。 begin try 。 (39。 。 {******************************************************** * 錄音 * * * *********************************************************} procedure (Sender: TObject)。 for i:=1 to length(temp1) do begin if (temp1[i] in [39。 var i:integer。//ctrl+z sleep(2020)。AT+CMGF=139。 26 begin :=39。 begin :=39。 :=[5]。23040039。)。 (39。120039。 //提供波特率 。 ts:=。 ts:tstringlist。 //設(shè)置默認(rèn)的錄音名字 。如 果沒(méi)有良好的規(guī)劃和前期工作，后期調(diào)試時(shí)，整個(gè)系統(tǒng)將不能良好地協(xié)調(diào)，漏洞百出，抽一發(fā)而動(dòng)全身，各種系統(tǒng)變量將變得繁雜而不可預(yù)測(cè)。如果要具體查找某個(gè)或某些人，可在尋找列選擇聯(lián)系人的具體信息，然后在右邊輸入相應(yīng)信息快速查找。//延時(shí) 10ms 15 :=msg+chr(26)。 begin :=39。 (2):=1 這個(gè)屬性的設(shè)置并不一定可靠，串口并不能實(shí)現(xiàn)每接收一個(gè)字符發(fā)生中斷。=39。id39。 12 Delphi 軟件設(shè)計(jì) Delphi 對(duì)數(shù)據(jù)庫(kù)操作 (1)ado 操作概念： 使用 adoquery或 adotable 組件使用 connectstring 連接到 mdb數(shù)據(jù)庫(kù)， adoquery組件為查詢組件，可以執(zhí)行 SQL 命令， adotable組件為表獲取組件，可以獲得指定表的所有內(nèi)容， adoquery與adotable將獲取的數(shù)據(jù)交給 datasource組件， dbgrid顯示組件將數(shù)據(jù)從 datasource 組件中取出并顯示。 首先，用戶在使用 SQL列出所有需要撥打的用戶之后，按下?lián)艽虬粹o： 11 (1)撥打： flag=0。 圖 Unit1 對(duì)應(yīng)的設(shè)置界面 設(shè)置界面如圖 所示，主要包括錄音、設(shè)置串口、選擇數(shù)據(jù)庫(kù)文件、設(shè)置需要播放的語(yǔ)音文件等，串口連接成功之后，上面的灰色 9 圈圈會(huì)變成紅色 [7]。 4 軟件設(shè)計(jì) 軟件系統(tǒng)結(jié)構(gòu) 圖 軟件系統(tǒng)框圖 軟件系統(tǒng)包括語(yǔ)音錄放、定時(shí)器操作、 串口操作、 AT 指令、數(shù)據(jù)庫(kù)操作、主程序調(diào)度、界面顯示、按鍵處理等，軟件系統(tǒng)框圖如圖 所示。 系統(tǒng)結(jié)構(gòu) PC 端使用 Delphi開(kāi)發(fā)的軟件，先錄一段語(yǔ)音（也可直接選擇 3 “ .wav”語(yǔ)音文件） [3]，讀取數(shù)據(jù)庫(kù)中號(hào)碼，然后連接 GSM模塊，使用 AT 指令撥打號(hào)碼，對(duì)方接通后，軟件通過(guò) PC的音頻輸出口播放語(yǔ)音， PC 的音頻輸出口接到了 GSM的語(yǔ)音輸入口。 近幾年，人們?cè)谶M(jìn)行消息廣播時(shí)，往往采用傳統(tǒng)的電臺(tái)廣播、電視廣播、擴(kuò)音器廣播、短信群發(fā)、郵件群發(fā)等方式，但這些方式都有缺點(diǎn)，或是價(jià)格昂貴，或是廣播范圍受限，或是被廣播群體不能接觸網(wǎng)絡(luò)，或文化水平不足、視力低下而無(wú)法閱讀到廣播消息，這些都是現(xiàn)有的廣播方案所不足的，為了發(fā)明一種既廉價(jià)，又讓有老花眼的老年人和不識(shí)字的農(nóng)民，以及沒(méi)有網(wǎng)絡(luò)的地區(qū)都能接收到廣播消息，基于 GSM模塊的語(yǔ)音業(yè)務(wù)職能群呼系統(tǒng)被提出，將大大地改 善這一現(xiàn)狀[1]。 關(guān)鍵詞 Delphi；上位機(jī)； GSM 語(yǔ)音