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是《戰艦世界》輕巡的意思。
