資料壓縮 |
|
答題得分者是：領航天使
|
|
adonis
高階會員   發表：140 回覆：258 積分：159 註冊：2002-04-15 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
如果不想用任何3RD PARTY, 以下兩程序用ZLIB來簡單完成, 給你參考
只要USES中加上ZLIB
Procedure ZlibCompress(instream,outStream:TStream);
var cps:TCompressionStream;
begin
inStream.Position:=0;
cps := TCompressionStream.Create(clFastest,OutStream);
try
cps.CopyFrom(inStream,0);
finally
cps.Free;
end;
end; Procedure ZlibDeCompress(instream,outStream:TStream);
var cps:TDeCompressionStream;
buf:array[1..512] of byte;
numread:integer;
begin
inStream.Position:=0;
cps := TDeCompressionStream.Create(inStream);
try
repeat
numRead:=cps.Read(buf,sizeof(buf));
if numread > 0 then
OutStream.Write(buf,numRead);
until (numRead=0);
finally
cps.Free;
end;
end;
如果要更完整之功能,且不在意用3rd Party元件可在本網站搜尋ziptv
|
|
adonis
高階會員 發表：140 回覆：258 積分：159 註冊：2002-04-15 發送簡訊給我 |
|
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: 對不起，可能我沒有說清楚。我不是要如何去使用元件，而是單純的在講述資料壓縮的理論與實作的網站。謝謝。以前學過HuffMan EnCode 霍夫曼編碼的壓縮法 可查用HuffMan Code去搜網引擎查看看 這理有一些 http://sun.cis.scu.edu.tw/~pl/24th_minheap/24-21.htm http://www.rasip.fer.hr/research/compress/algorithms/fund/huffman/ http://acm.uva.es/p/v2/240.html ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
RaynorPao
版主  發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 對不起，可能我沒有說清楚。我不是要如何去使用元件，而是單純的在講述資料壓縮的理論與實作的網站。謝謝。adonis 你好: 松崗有出版一本書「資料壓縮」(作者：戴顯權) 不過~~松崗現在不知道還有沒有(可能要打電話去問) 裡面應該有你需要的東西(還附磁片) 不妨參考看看吧
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
發表時間：2002-12-27 15:14:56
IP:163.15.xxx.xxx 未訂閱
系統時間：2024-05-12 8:06:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |