【正文】 ation purposes in everyday life, which brings great convenience to the people39。系統(tǒng)結(jié)構(gòu) 如圖 所示。 圖 Uint1 對應(yīng)的撥號界面 撥號界面如圖 所示，當(dāng)在設(shè)置界面選擇好了數(shù)據(jù)庫文件之后，切換到此頁面時，即可列出數(shù)據(jù)庫中的聯(lián)系人。 Connectstring 可以來自connection組件，也可以直接寫在 adoquery 或 adotable 的connectionstring參數(shù)中 [10]。++39。AT+CMGF=139。在撥號界面的右邊有許多選項，具體為：列出所有人聯(lián)系人、 刷新、新增聯(lián)系人，刪除聯(lián)系人、保存、撥號規(guī)則設(shè)置、撥號按鈕和發(fā)送短信按鈕。 :=39。 (ts)。)。 25 (39。 end。ATD39。 end。039。 。 。 end。 := channels*rate*(resolution div 8)。請選擇 wav 格式的文件 !39。 。 +39。 :=。,MB_ICONERROR+MB_OK)。 end。 mystr2:=39。連接 GSM 模塊 39。 :=clwhite。id39。 end else if((findmystr(39。 myscan(mystr2+mystr1)。 {******************************************************** * 尋找字符串函數(shù) * * * *********************************************************} function (str1,str2:string):integer。+inttostr(wait_time)+39。 begin :=39。 end。 {******************************************************** * 串口中斷函數(shù) * * * *********************************************************} procedure (Sender: TObject)。 mystr1:=39。 {******************************************************** * 呼叫成功標(biāo)記 * * * *********************************************************} procedure ()。 := 0。 setdbgridwidth()。//指針指向第一行記錄 :=0。請選中 id 項刪除 39。 end else (39。 +。=ExtractFileExt() then begin :=。 。 音頻文件 (*.wav)|*.wav39。 := 16。錯誤39。 end。 := (ExtractFilePath()+ +39。 var temp1,temp2:string。+tgt+chr(13)。 。 (39。)。30039。 (39。 23 附錄 A 實物圖 B 部分程序 Form1 的 formcreate 過程： procedure (Sender: TObject)。 圖 錄音界面 錄音前 圖 錄音界面 錄音中 當(dāng)錄音停止之后，語音廣播內(nèi)容中所選定的語音文件將會被修改為本次錄音的文件。 (5)注意定時器默認(rèn)是打開的，在 formcreate 過程中請關(guān)閉定時器。+ else :=39。 (3)定時器中斷 判斷 Flag： 如果 Flag 等于 0，說明當(dāng)前空閑，沒有任何任務(wù)，于是開始撥打第 msg_num 個任務(wù)，并且將數(shù)據(jù)指向下一條，且讓 flag 等于 1。 6 圖 軟件功能流圖 系統(tǒng)實現(xiàn)原理 軟件運行流程 7 執(zhí)行完畢定時器中斷按鍵事件 串口中斷系統(tǒng)啟動F or m C r e a t e 初始化操作等待事件發(fā)生循環(huán)執(zhí)行 圖 程序流程圖 軟件執(zhí)行流程如 圖 .3 所示，執(zhí)行流程如下： (1)系統(tǒng)啟動 (2)Formcreate過程中的初始化操作 (3)等待按鍵（如果串口與定時器打開，同時等待串口與定時器中斷發(fā)生） (4)并行事件： A:進(jìn)入按鍵事件 （選擇數(shù)據(jù)庫、刷新、插入數(shù)據(jù)、錄音、播放、連接串口、撥號等等） B:進(jìn)入定時器中斷 （ 根據(jù)撥打電話不同的流程及狀態(tài)做不同的事情，如切換到下一條呼叫數(shù)據(jù)、掛斷電話） C:進(jìn)入串口中斷 （檢查是否有收到 OK 指令和 NO CARRIER 指令，如果收到，將 flag做相應(yīng)處理。 2 設(shè)計任務(wù)與系統(tǒng)結(jié)構(gòu) 設(shè)計任務(wù) 本系統(tǒng)利用插入手機(jī)卡的 GSM模塊通 過串口線連接到電腦，配合電腦上的軟件撥打電話。本論文介紹了一個基于 GSM 模塊的語音業(yè)務(wù)智能群呼系統(tǒng)，該系統(tǒng)可以按順序撥打一組人的電話并將錄音播放給對方，以達(dá)到語音通知的功能。s work and life. Key words Delphi。 圖 GSM 語音廣播系統(tǒng)系統(tǒng)結(jié)構(gòu) 3 硬件連接 此設(shè)計硬件簡單，如圖 ，只需要一根串口線和一個 GSM模塊，筆記本一般使用 USB轉(zhuǎn)串口線，主要有 PL2303和 CH340兩種，需要下載好驅(qū)動 [4]。此處包括數(shù)據(jù)庫操作部分（修改、增加、保存）、撥號規(guī)則設(shè)置部分、發(fā)送短信部分、規(guī)則搜索部分。 (2)ado 操作注意事項： Adoquery在執(zhí)行顯示操作是，使用 open方法，而在執(zhí)行插入、更改操作時，使用 execsql 方法。39。+chr(13)。在發(fā)送短信按鈕左邊是寫短信內(nèi)容的地方。 版權(quán)說明（此處省略 N 字） (39。 for i:=0 to do begin (([i]))。 (39。5760039。 其他功能： {******************************************************** * 掛電話 * * * *********************************************************} procedure ()。+num+39。 {******************************************************** * 設(shè)置記錄名字（時間 戳） * * * *********************************************************} procedure ()。..39。 :=false。 。 end。 := channels*(resolution div 8)。,39。 。User ID=admin。 :=。 end end。 {******************************************************** * 撥號 按鈕 * * * *********************************************************} procedure (Sender: TObject)。39。 then begin :=39。 :=false。).Value)。NO CARRIER39。 end else if kk=10 then begin mystr2:=39。 40 var flag,i,j:integer。 flag=39。 {******************************************************** * 狀態(tài)欄監(jiān)控函數(shù) * * * *********************************************************} procedure (Sender: TObject)。 myscan(mystr2+mystr1)。 end。 。 end。 := 256。 except end。 。 end else (39。 end。Data Source=39。.mdb39。 :=。 begin := 39。 := $20746d66。,39。,MB_ICONERROR+MB_OK)。 := dtAutoSelect。 {******************************************************** * 得到選中的端口號 * * * *********************************************************} function ():integer。AT+CMGS=39。+str。)。1920039。 (39。 :=HKEY_LOCAL_MACHINE。同時，要感謝高吉祥教授為我們爭取到的的良好學(xué)習(xí)環(huán)境、優(yōu)良的設(shè)備和教師資源，