如何使用Delphi设计强大的服务器程序

答案：
1 不要在程序中使用String变量

　　这个也是在实际的开发过程中发现的，我最开始开发的时候，为了简单一些，就大量使用String变量来开发程序，但程序总是在运行一段时间后出现问题，后来查原因也不太清楚，到网上查资料，发现有人介绍不要使用String来做变量，将自己的程序全部修改成数组问题就基本解决了。

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

　　服务器在与客户端传递的时候一定要进行加密，但使用什么类型的加密算法呢？不要使用那种需要大量运算的算法如RSA等算法，最好使用XOR加密或DES换位加密算法，这样主要是满足普通的加密密文的要求，又保证服务器的运算速度。你也可以使用RSA加密密文，但这会造成服务器处理变慢，而如果遇到大量的处理时候，很容易服务器就拒绝服务器。
　3 使用原ADO函数来连接数据库

　　服务器程序通常都与数据库想结合，那么使用Delphi开发的时候，通常使用ADO的控件来制作，但如果你学习ADO手册会发现，对于服务器其实不需要控件来完成数据的操作。可以直接使用ADO相应的函数来完成。主要因为服务器程序与数据库通常都是比较简单的操作，没有很复杂的。所以使用原ADO模式就可以了。这样也减少由于ADO控件带来的问题。

　　4 应多使用“池”

　　服务器在设计的过程，一定要大量的变量支持，如果不使用池这个概念，你的程序将在创建和释放变量过程中浪费大量的时间。而且容易出现问题。设计过程中尽量不要创建和释放变量，如果能考虑到的变量，都在开始的运行的时候创建完毕。这样可以加快程序的运行速度，减少冲突。具体如何使用池这个技术，以后有时间再考虑写一篇介绍一下。

　　5 熟练使用指针操作

　　如果你不熟悉指针操作，那么你几乎无法设计出高效的服务器，如果你要真正的理解指针的概念，对于设计服务器来说就是如虎添翼。

　　下面举个例子，如使用Recv接收数据到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
多使用WSASend，WSARecv等WinSocket 2函数，不要使用Send,Recv函数

　　这个主要看你的服务器运行在什么系统中了，如果运行在WIN系统里，最好使用WSA系统的函数，因为Microsoft毕竟将它们都优化了
高效的服务器一定要使用线程池技术，使用多少线程合理，需要线程处理什么样的数据。我个人认为如果要使用线程池的技术，一定要处理那些最费时的操作，如数据库的查询操作。
 如果服务器使用了“池”的概念，这就又出现了一个问题，如何高效的分配池呢？

　　我在程序中大量的使用池，如线程池，数据池等。当数据到达的时候，如何分配池呢？这里就不告诉大家了，以后再专门写一篇关于池的文章。详细的介绍如何使用池。大家也可以自己考虑一下。
使用高效的字符串操作函数

　　因为服务器一定要进行大量的字符串运行，如果使用Delphi自带的函数来操作，就比较费时，所以这里推荐大家使用QStrings.pas字符串操作函数集，相信会对大家有帮助的。
优化你的SQL查询语句

　　你可以一方面优化SQL查询语句来提高运行效率，另一方面你还可以使用存储过程来更大的提高运行效率。（这些知识你需要看数据库的内容，这里具体如何优化就不说了。）　

古城
     一步一步来咯
一步一步来咯

上一个：delphi adotable.edit 问题
下一个：DELPHI如何制作超级菜单