【正文】 str。+chr(13)。AT+CMGS=39。 begin nowtime:=now。 {******************************************************** * 得到選中的端口號(hào) * * * *********************************************************} function ():integer。]) then begin temp2:=temp2+temp1[i]。 := dtAutoSelect。 :=ExtractFilePath()++39。,MB_ICONERROR+MB_OK)。聲音錄制完畢 !39。,39。 { 1(單聲 )或者 2(立體聲 ) } resolution : word。 := $20746d66。 := $61746164。 begin := 39。,MB_ICONERROR+MB_OK)。 :=。 {******************************************************** * 將 dbgrid 中的數(shù)據(jù)刷新到數(shù)據(jù)庫(kù)中（保存按鈕） * * * 32 *********************************************************} procedure (Sender: TObject)。.mdb39。Data Source=39。Data Source=39。 for i:=0 to 1 do begin [i].Width:=70。 end。 begin 。 end else (39。 begin if true then begin showmessage(39。 。 wait_time:=0。 except end。 :=clred。 := 256。 end。 end。 end。 。 。 end。 mystr2:=mystr2+str。 myscan(mystr2+mystr1)。 for i:=1 to length(str2) do begin if (str2[i]=str1[1]) then begin flag:=1。 {******************************************************** * 狀態(tài)欄監(jiān)控函數(shù) * * * *********************************************************} procedure (Sender: TObject)。 39。 flag=39。 result:=flag。 40 var flag,i,j:integer。39。 end else if kk=10 then begin mystr2:=39。 。NO CARRIER39。 :=。).Value)。).Value)。 :=false。 :=1。 then begin :=39。select * from friends39。39。 :=500。 {******************************************************** * 撥號(hào) 按鈕 * * * *********************************************************} procedure (Sender: TObject)。)then begin sqldel(,)。 end end。錯(cuò)誤 39。 :=。User ID=admin。User ID=admin。數(shù)據(jù)庫(kù)文件 (*.mdb)|*.mdb39。 。) then begin :=39。,39。 {關(guān)閉文件 } end。 := channels*(resolution div 8)。 := 36。 end。 except (39。 。,39。 :=false。.wav39。..39。 end。 {******************************************************** * 設(shè)置記錄名字（時(shí)間 戳） * * * *********************************************************} procedure ()。 sleep(200)。+num+39。+col+39。 其他功能： {******************************************************** * 掛電話 * * * *********************************************************} procedure ()。 (39。5760039。)。 (39。11039。 for i:=0 to do begin (([i]))。 begin 。 版權(quán)說(shuō)明（此處省略 N 字） (39。在完成設(shè)計(jì)的過(guò)程中，借助了學(xué)校圖書館的優(yōu)質(zhì)圖 書資源和學(xué)校購(gòu)買的知網(wǎng)資源、以及網(wǎng)絡(luò)上的廣大軟件開發(fā)人員共享的編程經(jīng)驗(yàn)的分享，深深感覺(jué)到軟件開發(fā)是一件站在巨人的肩膀上往前邁進(jìn)的事業(yè)，我們的每一份成果都有著前人十分重要的鋪墊。在發(fā)送短信按鈕左邊是寫短信內(nèi)容的地方。 end。+chr(13)。 14 (4)信令檢測(cè) 操作： 在此系統(tǒng)中，串口主要用來(lái)檢測(cè)“ OK”接通指令和“ NO CARRIER”掛機(jī)指令，其它如換行、 AT 回顯等亂七八糟的回應(yīng)都當(dāng)做噪聲數(shù)據(jù)處理。39。select * from friends where 39。 (2)ado 操作注意事項(xiàng)： Adoquery在執(zhí)行顯示操作是，使用 open方法，而在執(zhí)行插入、更改操作時(shí)，使用 execsql 方法。//開啟定時(shí)器 =500。此處包括數(shù)據(jù)庫(kù)操作部分（修改、增加、保存）、撥號(hào)規(guī)則設(shè)置部分、發(fā)送短信部分、規(guī)則搜索部分。定時(shí)器用于撥號(hào)過(guò)程中的延時(shí)檢測(cè)和流程控制，比如，當(dāng)呼叫一個(gè)用戶超過(guò)多少秒未接通，就標(biāo)志失敗，繼續(xù)呼叫下一個(gè)。 圖 GSM 語(yǔ)音廣播系統(tǒng)系統(tǒng)結(jié)構(gòu) 3 硬件連接 此設(shè)計(jì)硬件簡(jiǎn)單，如圖 ，只需要一根串口線和一個(gè) GSM模塊，筆記本一般使用 USB轉(zhuǎn)串口線，主要有 PL2303和 CH340兩種，需要下載好驅(qū)動(dòng) [4]。 對(duì)于語(yǔ)音廣播系統(tǒng)的研究，在鄉(xiāng)村的山洪災(zāi)害報(bào)警、會(huì)議通知等方面意義重大，這是一種新興的，適合各種群體和各種情況的消息廣播方法，尤其在鄉(xiāng)鎮(zhèn)地區(qū) ，許多村名并不識(shí)字，老年人大多數(shù)都有老花眼，手機(jī)只用于語(yǔ)音通話。s work and life. Key words Delphi。對(duì)論文的研究做出重要貢獻(xiàn)的個(gè)人和集體均已在文中以明確的方式標(biāo)明。本論文介紹了一個(gè)基于 GSM 模塊的語(yǔ)音業(yè)務(wù)智能群呼系統(tǒng)，該系統(tǒng)可以按順序撥打一組人的電話并將錄音播放給對(duì)方，以達(dá)到語(yǔ)音通知的功能。 Serial port。 2 設(shè)計(jì)任務(wù)與系統(tǒng)結(jié)構(gòu) 設(shè)計(jì)任務(wù) 本系統(tǒng)利用插入手機(jī)卡的 GSM模塊通 過(guò)串口線連接到電腦，配合電腦上的軟件撥打電話。由于 TC35i 是通過(guò)串口來(lái)控制的，故采用查詢串口的方法來(lái)編寫，通過(guò)向串口發(fā)送 AT 指令，來(lái)達(dá)到控制 TC35i的工作。 6 圖 軟件功能流圖 系統(tǒng)實(shí)現(xiàn)原理 軟件運(yùn)行流程 7 執(zhí)行完畢定時(shí)器中斷按鍵事件 串口中斷系統(tǒng)啟動(dòng)F or m C r e a t e 初始化操作等待事件發(fā)生循環(huán)執(zhí)行 圖 程序流程圖 軟件執(zhí)行流程如 圖 .3 所示，執(zhí)行流程如下： (1)系統(tǒng)啟動(dòng) (2)Formcreate過(guò)程中的初始化操作 (3)等待按鍵（如果串口與定時(shí)器打開，同時(shí)等待串口與定時(shí)器中斷發(fā)生） (4)并行事件： A:進(jìn)入按鍵事件 （選擇數(shù)據(jù)庫(kù)、刷新、插入數(shù)據(jù)、錄音、播放、連接串口、撥號(hào)等等） B:進(jìn)入定時(shí)器中斷 （ 根據(jù)撥打電話不同的流程及狀態(tài)做不同的事情，如切換到下一條呼叫數(shù)據(jù)、掛斷電話） C:進(jìn)入串口中斷 （檢查是否有收到 OK 指令和 NO CARRIER 指令，如果收到，將 flag做相應(yīng)處理。 圖 Calling 單元對(duì)應(yīng)的 form5 界面 當(dāng)用戶點(diǎn)擊“撥號(hào)”按鈕開始廣播之后，撥號(hào)界面會(huì)被鎖定， 將不可操作，而會(huì)跳出圖 ，顯示當(dāng)前正在執(zhí)行的操作。 (3)定時(shí)器中斷 判斷 Flag： 如果 Flag 等于 0，說(shuō)明當(dāng)前空閑，沒(méi)有任何任務(wù)，于是開始撥打第 msg_num 個(gè)任務(wù)，并且將數(shù)據(jù)指向下一條，且讓 flag 等于 1。 (4)保存 dbgrid顯示控件中修改的數(shù)據(jù)： Adoquery 的 refresh方法即可將數(shù)據(jù)更新至數(shù)據(jù)庫(kù)。+ else :=39。 Delphi 對(duì)串口操作 (1)區(qū)分字符模式與二進(jìn)制模式： 字符模式： string str:=。 (5)注意定時(shí)器默認(rèn)是打開的，在 formcreate 過(guò)程中請(qǐng)關(guān)閉定時(shí)器。AT+CMGS=39。 圖 錄音界面 錄音前 圖 錄音界面 錄音中 當(dāng)錄音停止之后，語(yǔ)音廣播內(nèi)容中所選定的語(yǔ)音文件將會(huì)被修改為本次錄音的文件。 (2)撥號(hào)等待事件需要設(shè)置長(zhǎng)一點(diǎn)，如果定時(shí)撥打次數(shù)過(guò)多，可能會(huì)被公安部的移動(dòng)通信監(jiān)控軟件列入黑名單，且如果對(duì)方拒接，模塊會(huì)在一段時(shí)間