導航:首頁 > 文件處理 > delphi圖片壓縮

delphi圖片壓縮

發布時間:2024-03-16 14:55:58

Ⅰ 如何減小Delphi應用程序(EXE)的大小

01) 使用加殼工具(如 UPX,ASPack 等)
02) 使用 KOL
03) 不使用VCL來編寫程序
04) 使用 ACL (API 控制庫)
05) 使用 StripReloc
06) 去除運程調試信息與 TD32
07) 把允許的代碼寫到 DLL 中
08) 不要在設計時把圖片放置在 Form 上,而是運行時載入
09) 使用被壓縮的圖片(使用JPG 而不用 BMP)
10) 在 DFM 文件中減少屬性 !

Ⅱ delphi 怎麼來壓縮文件

在 delphi 里有多種方式來壓縮文件:


1、直接調用系統的壓縮軟體,比如 winrar,用 ShellExecute / Winexec 執行命令行:


"C:/ProgramFiles/WinRAR/WinRAR.exe"a "d:c.rar""D:Music"


2、使用 delphi 提供的單元文件 zlib.pas 中相關的壓縮函數:


示例代碼:


//壓縮函數
procereZip(varfs:TMemoryStream);
var
cs:TCompressionStream;
ms:TMemoryStream;
num:Integer;
begin
ifnot(Assigned(fs)and(fs.Size>0))thenExit;

num:=fs.Size;
ms:=TMemoryStream.Create;
cs:=TCompressionStream.Create(clMax,ms);
try
fs.SaveToStream(cs);
cs.Free;
//ms.Position:=0;
fs.Clear;
fs.WriteBuffer(num,sizeof(num));
fs.CopyFrom(ms,0);
finally
ms.Free;
end;
end;


3、使用專門的壓縮控制項,如VCLZip 等。

Ⅲ (DELPHI)已經存入SQLSERVER中的圖片數據(image欄位)太大,怎麼直接在資料庫中壓縮或怎麼用程序實現

delphi 的圖像縮放示例代碼如下:

//將圖片縮放至指定大小
procereSizeBmp(constSource,Dest:string;constx,y:integer);
var
aBmp,bBmp:tbitmap;
scalex,scaley:real;
begin
aBmp:=TBitmap.Create;
bBmp:=TBitmap.Create;
try
aBmp.LoadFromFile(Source);
scaley:=aBmp.Height/y;
scalex:=aBmp.Width/x;
bBmp.Width:=round(aBmp.Width/scalex);
bBmp.Height:=round(aBmp.Height/scaley);
bBmp.PixelFormat:=pfDevice;
SetStretchBltMode(bBmp.Canvas.Handle,COLORONCOLOR);
StretchBlt(bBmp.Canvas.Handle,0,0,bBmp.Width,bBmp.Height,
aBmp.Canvas.Handle,0,0,aBmp.Width,aBmp.Height,src);
bBmp.SaveToFile(Dest);
finally
aBmp.Free;
bBmp.Free;
end;
end;

procereTForm1.btn1Click(Sender:TObject);
begin
SizeBmp('e:1112.bmp','e:1112_small.bmp',640,480);
end;
閱讀全文

與delphi圖片壓縮相關的資料

熱點內容
php抓取網頁內容的代碼 瀏覽:867
什麼是萌鴨app 瀏覽:861
變數的數字如何變化python 瀏覽:794
整數壓縮 瀏覽:993
最優停止策略問題演算法 瀏覽:716
pdf圖片背景 瀏覽:766
app的圖標有什麼風格 瀏覽:28
python代碼運行編譯器 瀏覽:936
魔鬼訓練程序員 瀏覽:686
php上傳大文件失敗 瀏覽:602
sw伺服器指定埠怎麼填 瀏覽:189
java有哪些數組 瀏覽:984
程序員戴手錶影響工作嗎 瀏覽:235
游戲皇後解壓視頻 瀏覽:367
c語言怎麼打開文件編譯 瀏覽:436
手機上什麼app可以設計logo 瀏覽:800
pid演算法單片機 瀏覽:375
python數據精度 瀏覽:632
管什麼小女孩App 瀏覽:192
phppdf轉換成圖片 瀏覽:468