利用Delphi擴展ASP公文系統提醒功能的應用研究

肖亮

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

【關鍵詞】 Delphi 提醒 公文系統

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

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

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

二、利用Delphi Timer組件實現定時通信

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

三、利用Delphi其他類和組件完善細節功能

為進一步完善ASP公文系統后臺提醒應用程序，達到實用易用的目的。一是實行托盤功能。可以通過擴展Delphi組件[4]，使用RzTrayIcon組件實行程序托盤運行，并可以更改其屬性實現類似QQ托盤圖標閃爍提醒等功能，非常方便易用；二是實行開機自啟動功能。通過Delphi TRegistry類操作Windows系統注冊表，首先指定根鍵HKEY—LOCAL—MACHINE，然后打開主鍵Software＼Microsoft＼Windows＼ CurrentVersion，用WriteString函數寫入程序信息，實現程序開機自啟動運行；三是實現設置信息保存功能。通過Delphi TInifile類操作一個INI文件，用WriteString函數寫入INI文件保存用戶名、密碼、提醒間隔時間等信息，用ReadString函數實現讀取INI文件信息；四是防止程序重復運行。可以在程序的主Form 的 On Create 事件用CreateMutex 函數檢測系統中是否只存在一個實例且是互斥體，防止程序重復運行。

參 考 文 獻

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

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

[3]張揚.基于DELPHI的限時作業收取實現[J].信息通信，2013（03）：88

[4]張揚嵩.擴展Delphi組件的方法[J].電腦編程技巧與維護，2012（07）：23