肖亮

【摘要】 當(dāng)前我國大多數(shù)機(jī)關(guān)、事業(yè)單位、企業(yè)公司等都立足信息化條件建立了便捷實用的B/S結(jié)構(gòu)公文系統(tǒng)，為工作帶來了極大的方便。但是B/S結(jié)構(gòu)公文系統(tǒng)在推廣使用中，存在很多使用人員關(guān)注意識不強(qiáng)、使用不及時等問題，久而久之就會導(dǎo)致公文系統(tǒng)利用普及率低、時效性差。針對這些問題，我們可以結(jié)合實際，擴(kuò)展B/S結(jié)構(gòu)公文系統(tǒng)提醒功能來進(jìn)行改善。本文闡述怎么利用Delphi來擴(kuò)展基于B/S結(jié)構(gòu)的ASP公文系統(tǒng)的提醒功能。

【關(guān)鍵詞】 Delphi 提醒 公文系統(tǒng)

隨著信息化建設(shè)的大力發(fā)展，很多單位機(jī)構(gòu)為提高工作效率都建立了目前最為流行的B/S結(jié)構(gòu)公文系統(tǒng)，但是在使用中，有些單位機(jī)構(gòu)發(fā)現(xiàn)利用率低、時效性差，沒有達(dá)到預(yù)期效果。這些問題，主要是由于B/S結(jié)構(gòu)公文系統(tǒng)新發(fā)文件無法在客戶端進(jìn)行Windows系統(tǒng)后臺提醒，再加上有些使用人員主動使用意識不強(qiáng)等原因而造成的。所以我們可以結(jié)合這些實際問題，以基于B/S結(jié)構(gòu)的ASP公文系統(tǒng)為對象，研究怎么利用Delphi開發(fā)一個與服務(wù)端建立通信的后臺提醒應(yīng)用程序，有效地擴(kuò)展公文系統(tǒng)的提醒功能[1]。

一、利用Delphi IdHTTP組件與ASP服務(wù)端建立通信

為實現(xiàn)ASP公文系統(tǒng)新發(fā)文件在Windows系統(tǒng)后臺進(jìn)行及時提醒，開發(fā)出后臺提醒應(yīng)用程序，最關(guān)鍵的就是要使后臺提醒程序與ASP服務(wù)端進(jìn)行通信獲取數(shù)據(jù)。這里可以使用Delphi IdHTTP組件進(jìn)行與ASP服務(wù)端進(jìn)行通信[2]。首先，我們使用WinInet 類中的InternetCheckConnection 方法判斷與服務(wù)端網(wǎng)絡(luò)是否物理接通。然后，利用IdHTTP組件的Post方法提交用戶名、密碼數(shù)據(jù)到ASP公文服務(wù)端的指定ASP文件。同時，在ASP公文服務(wù)端需要建立這個指定的ASP文件，利用request函數(shù)讀取用戶名和密碼，按照用戶名和密碼的條件查詢數(shù)據(jù)庫，如果查詢到的記錄數(shù)（recordcount）等于1，則表示用戶名和密碼正確，然后再按照該用戶的文件簽收情況條件進(jìn)行數(shù)據(jù)庫查詢，獲取記錄數(shù)（recordcount）計算出未簽收文件數(shù)量，最后用response.write方法將未簽收文件數(shù)量數(shù)據(jù)發(fā)送到客戶端。這樣可使客戶端后臺提醒應(yīng)用程序獲取到未簽收文件數(shù)量數(shù)據(jù)，然后通過類似QQ消息右小角彈窗、托盤圖標(biāo)閃動、聲音提醒等方式進(jìn)行及時提醒。

二、利用Delphi Timer組件實現(xiàn)定時通信

為使ASP公文系統(tǒng)后臺提醒應(yīng)用程序能夠不斷提醒新發(fā)文件，使用戶及時簽收，必須要使后臺提醒應(yīng)用程序和ASP服務(wù)端保持經(jīng)常的通信。要實現(xiàn)經(jīng)常的通信，并滿足不同使用用戶的需求，可以設(shè)置后臺提醒應(yīng)用程序與ASP公文系統(tǒng)服務(wù)端進(jìn)行定時通信，從而實現(xiàn)定時提醒功能。我們可以利用Timer組件實現(xiàn)定時功能[3]，如果是實現(xiàn)幾秒鐘到1分鐘進(jìn)行通信一次，可以更改Timer組件Interval屬性實現(xiàn)，但是這樣就會導(dǎo)致通信太過于頻繁，會增加服務(wù)端系統(tǒng)的壓力，所以不建議采用。一般來說，建議提醒間隔為30分鐘到2小時一次較為合理，或者根據(jù)用戶需求和實際情況進(jìn)行設(shè)置最好。如果要實現(xiàn)間隔時間稍長的定時提醒，我們可以利用Timer組件采用程序計數(shù)的方法進(jìn)行，可以設(shè)置Timer組件Interval屬性為60000（單位：毫秒），就是60秒（1分鐘）激活一次OnTimer事件。比如設(shè)置定時間隔為60分鐘，每一次OnTimer事件進(jìn)行一次程序計數(shù)加1，在執(zhí)行到第60次OnTimer事件時程序計數(shù)等于60，則達(dá)到設(shè)置間隔60分鐘的時間條件，隨即執(zhí)行與ASP公文系統(tǒng)服務(wù)端進(jìn)行一次通信，獲取未簽收文件數(shù)量數(shù)據(jù)進(jìn)行提醒，實現(xiàn)定時提醒功能。

三、利用Delphi其他類和組件完善細(xì)節(jié)功能

為進(jìn)一步完善ASP公文系統(tǒng)后臺提醒應(yīng)用程序，達(dá)到實用易用的目的。一是實行托盤功能?？梢酝ㄟ^擴(kuò)展Delphi組件[4]，使用RzTrayIcon組件實行程序托盤運行，并可以更改其屬性實現(xiàn)類似QQ托盤圖標(biāo)閃爍提醒等功能，非常方便易用；二是實行開機(jī)自啟動功能。通過Delphi TRegistry類操作Windows系統(tǒng)注冊表，首先指定根鍵HKEY—LOCAL—MACHINE，然后打開主鍵Software＼Microsoft＼Windows＼ CurrentVersion，用WriteString函數(shù)寫入程序信息，實現(xiàn)程序開機(jī)自啟動運行；三是實現(xiàn)設(shè)置信息保存功能。通過Delphi TInifile類操作一個INI文件，用WriteString函數(shù)寫入INI文件保存用戶名、密碼、提醒間隔時間等信息，用ReadString函數(shù)實現(xiàn)讀取INI文件信息；四是防止程序重復(fù)運行?？梢栽诔绦虻闹鱂orm 的 On Create 事件用CreateMutex 函數(shù)檢測系統(tǒng)中是否只存在一個實例且是互斥體，防止程序重復(fù)運行。

參 考 文 獻(xiàn)

[1]陳冬梅.高校辦公自動化系統(tǒng)的功能擴(kuò)展研究[J].大眾科技，2014（08）：181

[2]明日科技.Delphi開發(fā)經(jīng)驗技巧寶典[M].人民郵電出版社，2007-10-29

[3]張揚(yáng).基于DELPHI的限時作業(yè)收取實現(xiàn)[J].信息通信，2013（03）：88

[4]張揚(yáng)嵩.擴(kuò)展Delphi組件的方法[J].電腦編程技巧與維護(hù)，2012（07）：23