當前位置:首頁 » 文件管理 » cl論壇解壓

cl論壇解壓

發布時間: 2023-04-22 04:11:08

㈠ 一場大火CL賬號沒了,痛恨MJ,大大們在論壇里發都被不需要的人搶了,長期潛水忍不了了,值此聖誕特求一碼

看我的網路資料。

㈡ 關於 Delphi 中壓縮流和解壓流的應用

軟體開發者不免都要遇到壓縮數據的問題!經常使用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是《戰艦世界》輕巡的意思。

熱點內容
java返回this 發布:2025-10-20 08:28:16 瀏覽:645
製作腳本網站 發布:2025-10-20 08:17:34 瀏覽:936
python中的init方法 發布:2025-10-20 08:17:33 瀏覽:632
圖案密碼什麼意思 發布:2025-10-20 08:16:56 瀏覽:821
怎麼清理微信視頻緩存 發布:2025-10-20 08:12:37 瀏覽:731
c語言編譯器怎麼看執行過程 發布:2025-10-20 08:00:32 瀏覽:1066
郵箱如何填寫發信伺服器 發布:2025-10-20 07:45:27 瀏覽:299
shell腳本入門案例 發布:2025-10-20 07:44:45 瀏覽:160
怎麼上傳照片瀏覽上傳 發布:2025-10-20 07:44:03 瀏覽:851
python股票數據獲取 發布:2025-10-20 07:39:44 瀏覽:763