現(xiàn)在網(wǎng)絡(luò)的流行，使得服務(wù)器程序得到了廣泛的應(yīng)用，那么我們使用Delphi如何設(shè)計出強壯的服務(wù)器呢？

有人說，如果要設(shè)計服務(wù)器的話，一定要使用VC來設(shè)計，其實這個人說的有一定道理，因為如果你要使用Delphi來設(shè)計服務(wù)器的話，要想設(shè)計高效的服務(wù)器就不要使用Delphi帶來的大部分的控件（最好不要使用Delphi控件），為什么呢？下面我會告訴大家。這樣的話你全部使用API來設(shè)計服務(wù)器，就同VC沒有太大的區(qū)別了。

使用Delphi來設(shè)計服務(wù)器程序，具體選擇是使用窗體消息模式還是使用完成端口的模式，這主要看你的用戶連接數(shù)量來決定。如果你的用戶連接數(shù)量小于1000人的話，并且處理的數(shù)據(jù)量不大的話，可以使用窗體的消息模式來進行服務(wù)器的開發(fā)，而如果大于1000，這樣最好使用完成端口來開發(fā)服務(wù)器。我這里建議大家最好使用完成端口模式，因為你不可能保證你的用戶數(shù)量不變化，同時由于你的服務(wù)器如果運行一段時間沒有問題的話，最好做成WIN 的服務(wù)程序，這樣可以保證后期的維護比較少。

現(xiàn)在介紹你在開發(fā)Delphi服務(wù)器的時候需要注意地方：

1 不要在程序中使用String變量

這個也是在實際的開發(fā)過程中發(fā)現(xiàn)的，我最開始開發(fā)的時候，為了簡單一些，就大量使用String變量來開發(fā)程序，但程序總是在運行一段時間后出現(xiàn)問題，后來查原因也不太清楚，到網(wǎng)上查資料，發(fā)現(xiàn)有人介紹不要使用String來做變量，將自己的程序全部修改成數(shù)組問題就基本解決了。

2 使用快速的加密算法如XOR 加密或DES加密等算法

服務(wù)器在與客戶端傳遞的時候一定要進行加密，但使用什么類型的加密算法呢？不要使用那種需要大量運算的算法如RSA等算法，最好使用XOR加密或DES換位加密算法，這樣主要是滿足普通的加密密文的要求，又保證服務(wù)器的運算速度。你也可以使用RSA加密密文，但這會造成服務(wù)器處理變慢，而如果遇到大量的處理時候，很容易服務(wù)器就拒絕服務(wù)器。

3 使用原ADO函數(shù)來連接數(shù)據(jù)庫

服務(wù)器程序通常都與數(shù)據(jù)庫想結(jié)合，那么使用Delphi開發(fā)的時候，通常使用ADO的控件來制作，但如果你學(xué)習(xí)ADO手冊會發(fā)現(xiàn)，對于服務(wù)器其實不需要控件來完成數(shù)據(jù)的操作。可以直接使用ADO相應(yīng)的函數(shù)來完成。主要因為服務(wù)器程序與數(shù)據(jù)庫通常都是比較簡單的操作，沒有很復(fù)雜的。所以使用原ADO模式就可以了。這樣也減少由于ADO控件帶來的問題。

4 應(yīng)多使用“池”
服務(wù)器在設(shè)計的過程，一定要大量的變量支持，如果不使用池這個概念，你的程序?qū)⒃趧?chuàng)建和釋放變量過程中浪費大量的時間。而且容易出現(xiàn)問題。設(shè)計過程中盡量不要創(chuàng)建和釋放變量，如果能考慮到的變量，都在開始的運行的時候創(chuàng)建完畢。這樣可以加快程序的運行速度，減少沖突。具體如何使用池這個技術(shù)，以后有時間再考慮寫一篇介紹一下。

5 熟練使用指針操作
如果你不熟悉指針操作，那么你幾乎無法設(shè)計出高效的服務(wù)器，如果你要真正的理解指針的概念，對于設(shè)計服務(wù)器來說就是如虎添翼。
下面舉個例子，如使用Recv接收數(shù)據(jù)到Buffer中后，你需要進行解密操作，你可以使用下面的方法進行：
var
  a,b:array [1..8] of byte;
  i :integer;
  ResultBuffer :array [1..Max] of byte;
begin
  for i := 1 to Sizeof(Buffer) div 8 do
  begin
    move(Buffer[(i-1)*8+1],a,8);
    Des(a,b,true);  //這里使用DES加解密處理
    move(b,ResultBuffer[(i-1)*8+1],8);
  end;
end
大家看一看，上面的代碼，思路很清楚，就是將接收到的Buffer分別按8個提到變量a中，再使用DES解密算法解密成b，再放回ResultBuffer中。
如果你熟練使用指針的話，效率會極大的提高
var
  a,b:Pbyte;
  i :integer;
  ResultBuffer :array [1..Max] of byte;
begin
  for i := 1 to Sizeof(Buffer) div 8 do
  begin
    a := @Buffer[(i-1)*8+1];
    b := @ResultBuffer[(i-1)*8+1]
    Des(a^,b^,true);  //這里使用DES加解密處理
  end;
end
再看一看上面的代碼，是不是少了兩個Copy數(shù)據(jù)的過程，這就是指針給你帶來的高效。

6 多使用WSASend，WSARecv等WinSocket 2函數(shù)，不要使用Send,Recv函數(shù)
這個主要看你的服務(wù)器運行在什么系統(tǒng)中了，如果運行在WIN系統(tǒng)里，最好使用WSA系統(tǒng)的函數(shù)，因為Microsoft畢竟將它們都優(yōu)化了。

7 合理使用線程池操作
高效的服務(wù)器一定要使用線程池技術(shù)，使用多少線程合理，需要線程處理什么樣的數(shù)據(jù)。我個人認為如果要使用線程池的技術(shù)，一定要處理那些最費時的操作，如數(shù)據(jù)庫的查詢操作。

8 如果服務(wù)器使用了“池”的概念，這就又出現(xiàn)了一個問題，如何高效的分配池呢？
我在程序中大量的使用池，如線程池，數(shù)據(jù)池等。當(dāng)數(shù)據(jù)到達的時候，如何分配池呢？這里就不告訴大家了，以后再專門寫一篇關(guān)于池的文章。詳細的介紹如何使用池。大家也可以自己考慮一下。

9 使用高效的字符串操作函數(shù)
因為服務(wù)器一定要進行大量的字符串運行，如果使用Delphi自帶的函數(shù)來操作，就比較費時，所以這里推薦大家使用QStrings.pas字符串操作函數(shù)集，相信會對大家有幫助的。

10 優(yōu)化你的SQL查詢語句
你可以一方面優(yōu)化SQL查詢語句來提高運行效率，另一方面你還可以使用存儲過程來更大的提高運行效率。（這些知識你需要看數(shù)據(jù)庫的內(nèi)容，這里具體如何優(yōu)化就不說了。） 

上面介紹是我的實踐經(jīng)驗，不一定全對，希望大家能有幫助。如果有更好的方法，也可以討論。