【文章內容簡介】 者，可篩選出來，重新?lián)艽颉? 圖 撥號結果顯示 20 在撥號界面有個列表，此列表列出了所有的聯(lián)系人，聯(lián)系人有具體的信息，包括姓名、號碼的屬性、 id 號碼、 tate 狀態(tài)信息，其中tate 狀態(tài)信息顯示語音信息是否成功發(fā)送給指定人，如果失敗，在對應的聯(lián)系人后面會顯示“失敗”，成功則顯示“成功”。如果要具體查找某個或某些人，可在尋找列選擇聯(lián)系人的具體信息，然后在右邊輸入相應信息快速查找。在撥號界面的右邊有許多選項，具體為：列出所有人聯(lián)系人、 刷新、新增聯(lián)系人，刪除聯(lián)系人、保存、撥號規(guī)則設置、撥號按鈕和發(fā)送短信按鈕。在發(fā)送短信按鈕左邊是寫短信內容的地方。撥號規(guī)則設置是指設定撥打對方號碼后，等待對方接聽的時間設置。 使用注意 (1)正常使用前，必須連接模塊，必須選擇數(shù)據(jù)庫文件，必須選擇錄音文件或直接錄音。 (2)撥號等待事件需要設置長一點，如果定時撥打次數(shù)過多，可能會被公安部的移動通信監(jiān)控軟件列入黑名單，且如果對方拒接，模塊會在一段時間之內失效，如果在這段時間之內繼續(xù)撥打，下一次的撥號將會產生錯誤，建議使用默認等待超時時間。 6 結論 本次設計內容是設計一個能夠自動呼叫進行語音廣播的上位機軟件，開發(fā)語言使用 Pascal，開發(fā)環(huán)境使用 Delphi7，主要涉及了串口、定時器、 Access數(shù)據(jù)庫操作，以及 GSM 模塊的 AT 指令，軟件開 21 發(fā)難點在于設計撥號的流程時對各種資源的調配和變量的控制。開發(fā)此軟件不但讓我熟悉了一般的大型軟件開發(fā)流程（主要包括單獨模塊測試、模塊聯(lián)合測試、資源規(guī)劃、流程規(guī)劃、整體設計、 BUG調試等），也讓我知道了在開發(fā)功能復雜的軟件時需要的設計態(tài)度，一定要要先規(guī)劃，后設計，在調試大的系統(tǒng)時，猶如堆一個巨大的積木，切記浮躁和盲動。如 果沒有良好的規(guī)劃和前期工作，后期調試時，整個系統(tǒng)將不能良好地協(xié)調，漏洞百出，抽一發(fā)而動全身，各種系統(tǒng)變量將變得繁雜而不可預測。 參考文獻 [1]王志偉，黃超編著 .Delphi 企業(yè)經營管理系統(tǒng)開發(fā)實例導航 [M].北京 :人民郵電出版社 ,2020： 220～ 224. [2]張春林 .Delphi6 程序設計導學 [M].北京 :清華大學出版社 ,2020： 220～ 256； [3]段興，唐一丁，李寶 .Delphi6 數(shù)據(jù)庫實用程序設計 100例 [M].重慶 :人民郵電出版社 ,2020： 56～ 78. [4]清宏計算機工作室 .Delphi編程技巧網絡與數(shù)據(jù)庫篇 [M].上海 :機械工業(yè)出版社出版 ,2020： 4～ 34. [5]狄宏運，陳戰(zhàn)林，趙宗福，鐘顯宏 .Delphi6組件大全 [M].北京 :電子工業(yè)出版社 ,2020:23～34. [6]趙廣 . 深度優(yōu)先的公式發(fā)現(xiàn)算法 [J]. 中州大學學報 ,2020,10: 100～ 101. [7]嚴蔚敏 ,陳文博 . 數(shù)據(jù)結構及應用算法教程 [M]. 北京 :清華大學出版社， 2020,01:169. [8]周立功 .ARM嵌入式 Linux系統(tǒng)構建與驅動開發(fā)范例 [J].電子學報， 2020， 2（ 5A）： 7982. [9]Mark Balch. Complete digital design [M]. New York: McGrawHill Companies Inc,2020:257. [10]Thomas H. Cormen， Introduction to Algorithms[M]. Boston: The MIT Press,2020,07:321. 22 致謝 基于 GSM 模塊的語音業(yè)務智能群呼系統(tǒng)的成功完成，要感謝學校提供的優(yōu)良科研與學術環(huán)境和張仁民老師的認真指導。在完成設計的過程中，借助了學校圖書館的優(yōu)質圖 書資源和學校購買的知網資源、以及網絡上的廣大軟件開發(fā)人員共享的編程經驗的分享，深深感覺到軟件開發(fā)是一件站在巨人的肩膀上往前邁進的事業(yè)，我們的每一份成果都有著前人十分重要的鋪墊。在開發(fā)中遇到問題時，張老師十分耐心地輔導我，一起分析問題原因，好幾次跟我一起調試到非常晚，讓我非常感動，也教會了我作為一個嚴謹?shù)墓こ處煈械膱皂g和堅持不懈的精神。同時，要感謝高吉祥教授為我們爭取到的的良好學習環(huán)境、優(yōu)良的設備和教師資源，讓我們能專心在大學里學習專業(yè)知識，為一個目標堅定不移地奮斗。 23 附錄 A 實物圖 B 部分程序 Form1 的 formcreate 過程： procedure (Sender: TObject)。 begin loadallm()。 //檢測可用串口并加載在 bobox 內 setreame()。 //設置默認的錄音名字 。 :=39。 版權說明（此處省略 N 字） (39。 因為 memo 一行不能超過 255 個字，所以用 add繼續(xù)添加說明 39。)。 end。 加載可用串口與波特率過程： procedure ()。 24 var reg:tregistry。 ts:tstringlist。 i:integer。 begin 。 reg:=。 :=HKEY_LOCAL_MACHINE。 (39。hardware\devicemap\serialm39。,false)。 ts:=。 (ts)。 for i:=0 to do begin (([i]))。 end。 :=[0]。 。 。 。 //提供波特率 。 (39。11039。)。 (39。30039。)。 (39。120039。)。 (39。240039。)。 (39。480039。)。 (39。960039。)。 (39。1920039。)。 (39。3840039。)。 25 (39。5760039。)。 (39。11520039。)。 (39。23040039。)。 (39。46080039。)。 (39。92160039。)。 :=[5]。 end。 其他功能： {******************************************************** * 掛電話 * * * *********************************************************} procedure ()。 begin :=39。ATH39。+chr(13)。 end。 {******************************************************** * 刪除內容 * * * *********************************************************} procedure (col,str:string)。 begin :=39。delete from friends where 39。+col+39。=39。+str。 。 end。 {******************************************************** * 打電話 * * * *********************************************************} procedure (num:string)。 26 begin :=39。ATD39。+num+39。39。+chr(13)。 end。 {******************************************************** * 發(fā)送短信 msg(someone,string) * * * *********************************************************} procedure (tgt,msg:string)。 begin :=39。AT+CMGF=139。+chr(13)。 sleep(200)。 :=39。AT+CMGS=39。+tgt+chr(13)。 sleep(1000)。//延時 10ms :=msg+chr(26)。//ctrl+z sleep(2020)。 end。 {******************************************************** * 設置記錄名字（時間 戳） * * * *********************************************************} procedure ()。 var nowtime:Tdatetime。 begin nowtime:=now。 :=datetostr(nowtime)。// +timetostr(nowtime) end。 {******************************************************** 27 * 刷新 dbgrid 行寬 * * * *********************************************************} procedure ()。 var i:integer。 begin for i:=0 to 1 do begin [i].Width:=70。 end。 end。 {******************************************************** * 得到選中的端口號 * * * *********************************************************} function ():integer。 var temp1,temp2:string。 i:integer。 begin temp1:=。 for i:=1 to length(temp1) do begin if (temp1[i] in [39。039。..39。939。]) then