Delphi三层 压缩数据传输
Client:TSocketConnection 和Server: Scktsrvr关系----压缩数据传输
一直用SocketConnection和服务端的传输数据在三层数据库中，从来没有注意到它们之间的数据传输，只是想着，管它了，网络的事，前段时间在Delphi中的Demos中发现Demos\Midas\Intrcpt.dpr例子，呵呵，再看了半天的VCL发现可以将Client端发送的给Server的数据，和Server发送给Client的数据是可以进行压缩的。呵呵，不敢藏私，Share给大家。
1:
准备工作,先delphi光盘中的\info\extras\zlib\zlib.pas进行编绎，然后copy 到lib路径中，因为要压缩数据，必须要有压缩功能，这个delphi已经自带，它是基于流的方式对接口IDataBlock(TDataBlock实现，其实就是对TMemoryStream的操作)数据进行压缩和解压的。做了这个后，才能进行下面的工作。
2:
Open \Demos\Midas\Intrcpt\Intrcpt.dpr
complier....(如没有做第一步，嘿嘿...)
生成Intrcpt.dll
将Intrcpt.dll copy to System directory,或者你的程序下面。
注册它：regsrvr32 Intrcpt.dll (为什么，这个嘛...)
记住Intrcpt.dpr的那个GUID,你也可以自己重新生成一个(按Shift+Ctrl+G)
3:
Server:
Open scktsrvr.exe，相信各位都很熟悉那界面，端口(TListbox)，Thread Cache Size(TEdit), GUID(TEdit),好，我们要做的事，就是将注册的Intrcpt.dll那个GUID填到这个GUID(TEdit)框框中，
只需填自己程序的的那个端口的GUID啊，别乱填，如果有别人用这个程序，出了什么，别找我。OK,Apply.
Client:
你写的程序中肯定有TSocketConnection,它有个属性InterceptGUID: string;好了，将Intrcpt.dll的GUID填上去，它是跟Server中的一样的。OK.还有别忘了，Regsrvr32 intrcpt.dll 在你的客户端。不然，程序虽不会raise,但是Server传过来的数据是压缩的....
好了，呵呵。就这些了。3步骤，很清楚吧(不会吧，还不懂，倒)
原理
scktsrvr.exe其实是一堆TServerSocket,一个端口代表了一个TServerSocket,每个TServerSocket是基于多线程方式与客户端进行数据交换。它写了个TServerClientThread(在服务端中的客户端)的扩展
,多加了对客户端数据接收的管理解析，还有ActivityDateTime,GUID，一般不管它。但是我们用到的压缩只是跟这个GUID有关，其它费话少说。
Server接受一个Client连接,则加一个TServerClientThread到本地中，用来监控Client Read 和Close事件，所以Server中的scktsrvr中我们只要了解了TServerClientThre
相关文档：
一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' ......
我们能看到以下代码
var pSource,pDest:PChar;
len: integer;
.......................//一些代码
Move(pSource,pDest,len); //错误
Move(pSource^,pDest^,len); //正确
看起来确实好像是传值，而不是传地址，但是各位别忘了，这不是C，C++，而是Delphi
Object Pascal,所以，绝不能从函数� ......
Delphi中实现文件拷贝的三种方法
1．调用API函数
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://指定源文件名
AssignFile(f2,ToFileName); file://指定目标文件名
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRe ......
一、使用文件流的方法进行拷贝，当然。同样的道理，你也可以使用内存流等方法进行文件的拷贝，原理是一样的。
procedure copyfile(sourcefilename,targetfilename : String);
var f1, f2: tfilestream;
begin
f1 := tfilestream.Create(sourcefilename, fmopenread);
try
f2 := tfilestream ......
