cl论坛解压
㈠ 一场大火CL账号没了，痛恨MJ，大大们在论坛里发都被不需要的人抢了,长期潜水忍不了了，值此圣诞特求一码
看我的网络资料。
软件开发者不免都要遇到压缩数据的问题！经常使用Delphi的朋友都知道 它为我们提供了两个流类（TCompressionStream和TDepressionStream）来完成数据的压缩和解压缩 但美中不足的是 该流在Delphi 的帮助备誉中没有详细的说明 使得它们在使用起来有一定得困难 其实在Delphi系统中提供了这两个类的源代码和库 保存在Delphi 光盘的InfoExtraslib Src和InfoExtraslibObj目录中（其中OBJ目录中保存的是库 Src目录中保存的是源代码 感兴趣的朋友可以看看） 本人在使用的过程中 对它们有了一定的了解
一 类的说明
基类 TCustomZlibStream 类TCustomZlibStream 是类TCompressionStream和TDepressionStream 类的基类 它主要有一个属性 OnProgress 在类进行压缩或解压缩的过程中会发生这个的事件 它的定义如下
Procere OnProgress (Sender: TObject); dynamic; 压缩类TCompressionStream 类TCompressionStream除了继承了基类的 OnProgress 属性外 又增加了一个属性 CompressionRate 它的定义如下
Property CompressionRate: Single read GetCompressionRate;通过这个属性 可以得到压缩比 它的几个个重要的方法定义如下
Constructor TCompressionStream Create (CompressionLevel: TCompressionLevel; Dest: TStream);其中 TpressionLevel（压缩类型） 它由如仿中段下几个定义
① clNone 不进行数据压缩
② clFastest 进行快速压缩 牺牲压缩效率
③ clDefault 进行正常压缩
④ clMax 进行最大化压缩 牺牲速度
Dest 目的流 用于存放压缩过的数据
Function TCompressionStream Write (const Buffer; Count: Longint): Longint;其中 Buffer 需要压缩的数据
Count: 需要压缩的数据的字节数
函数返回写入流的字节数
压缩类TCompressionStream的数据只能是写入的 如果试图从其内部读取数据 将发生一个 Error 异常 需要压缩的数据通过方法 Write写入流中 在写入的过程中就被压缩 并保存在由构造函数提供的内存流（TmemoryStream）中 同时触发 OnProcess 事件
解压缩类 TDepressionStream :和压缩类TpressionStream 相反 它的数据是只能读出的 如果试培坦图往其内部写数据 将发生一个 Error 异常 它的几个重要方法定义如下
构造函数 Constructor Create(Source: TStream);
其中 Source 是保存着压缩数据的流
Function Read(var Buffer; Count: Longint): Longint;数据读出函数 Buffer 存数据缓冲区
Count: 缓冲区的大小
函数返回读出的字节数
数据在读出的过程中 数据被解压缩 并触发 OnProcess 事件
二 类的使用
通过类TCompressionStream和TdepressionStream的配合使用 我们可以非常方便地完成数据的压缩和解压 下面就是本人在编写屏幕拷贝程序中的使用例子
Procere TClientForm GetScreen;VarSourceDC DestDC:HDC;Bhandle:HBITMAP;BitMap:TBitMap;BmpStream Deststream:TMemoryStream;SourceStream:TCompressionStream;Count:Integer;BeginSourceDC:=CreateDC( display nil);{得到屏幕的 DC}DestDC:=CreateCompatibleDC(SourceDC);{建立临时 DC}Bhandle:=CreateCompatibleBitmap(SourceDC Screen Width Screen Height);{建立位图}SelectObject(DestDC Bhandle);{选择位图DC}BitBlt(DestDC Screen Width Screen Height SourceDC SRCCOPY);{拷贝整个屏幕}BitMap:=TBitMap Create;BitMap Handle := Bhandle;{保存屏幕位图到 BitMap中}BmpStream:=TMemoryStream Create;BitMap SaveToStream(BmpStream);{建立位图数据的内存流}count:=BmpStream Size;{保存位图的大小}DestStream:=TMemoryStream Create;{目标流 保存压缩数据}SourceStream:=TCompressionStream Create(clMax DestStream);{构建压缩流 采用最大化压缩 并保存到目标流中}tryBmpStream SaveToStream(SourceStream);{压缩位图流}SourceStream Free;{完成压缩 释放压缩流}BmpStream Clear;{清空原来位图流}BmpStream WriteBuffer(Count Sizeof(Count));{将原来位图的大小保存到新的位图流中 以便使用}BmpStream CopyFrom(DestStream );{将压缩数据附加到新的位图流后面}BmpStream Position := ;NMStrm PostIt(BmpStream);{发送位图流}finallyDestStream Free;BmpStream Destroy ;BitMap Destroy;DeleteDC(SourceDC);ReleaseDC(Bhandle SourceDC);end;{释放有关资源}End;该过程得到整个屏幕的图象拷贝 并利用压缩流SourceStream和内存流 Deststream将位图压缩 并重新把位图大小和压缩数据流保存到位图流中 发送出去 发送位图大小的目的是在解压前来确定需要的内存空间
lishixin/Article/program/Delphi/201311/24929
㈢ cl论坛还开着吗
还开着。
cl论坛一般指的是奔驰CL论坛。经在太平洋汽车网搜索查询可知，cl论坛还开着。
太行姿平洋汽车网（外文名：PCauto）隶属于广散慎东太平洋互联网信息服务有限公司，成立于2002年7月。档掘绝太平洋汽车网提供汽车报价、导购、评测、用车、玩车等多方面的资讯，并营造一个互动的车友交流空间，于2007年正式在港股主板上市。
㈣ cl是什么意思
cl是插楼意思。
指楼主在发帖时需要多次才能发完（一般是图片比较多），某人春伍在楼主的帖还没发完时就回复，就会插到楼主的帖子中间，影响大家的浏览。这种行为就叫插楼。
简介
在贴吧或者是在论坛里。
这种行为一般为大家所抵制。
在空间站家族类·CL还可译为潮流。
CL是CoolLine!的缩写。CoolLine!创办扒此或于2006年11月12日。国内年轻时尚交友网络扒蠢潮流社区之一。
RL就是团长。
CL是职业队长。
地穴领主CL (Crypt Lord)。
CL是动漫CLANNAD的简称。
CL是《战舰世界》轻巡的意思。