functionTForm1.Bmp2Jpg(Bmp:TBitmap):boolean;varjpg:TJPEGImage;beginresult:=false;jpg:=TJPEGImage.Create();tryjpg.Assign(Bmp);jpg.CompressionQuality:=10;jpg.SaveToFile('c:\Abc.jpg');For...
即使采用細(xì)節(jié)幾乎無損的10級(jí)質(zhì)量保存時(shí)，壓縮比也可達(dá)5：1。以BMP格式保存時(shí)得到4．28MB圖像文件，在采用JPG格式保存時(shí)，其文件僅為178KB，壓縮比達(dá)到24：1。經(jīng)過多次比較，采用第8級(jí)壓縮為存儲(chǔ)空間與圖像質(zhì)量兼得的最佳...
1、直接調(diào)用系統(tǒng)的壓縮軟件，比如winrar，用ShellExecute/Winexec執(zhí)行命令行："C:/ProgramFiles/WinRAR/WinRAR.exe"a"d:\c.rar""D:\Music"2、使用delphi提供的單元文件zlib.pas中相關(guān)的壓縮函數(shù)：示...
delphi的圖像縮放示例代碼如下：//將圖片縮放至指定大小procedureSizeBmp(constSource,Dest:string;constx,y:integer);varaBmp,bBmp:tbitmap;scalex,scaley:real;beginaBmp:=TBitmap.Create...
Obj文件，把這個(gè)目錄拷貝到delphi的lib下，即可。可以適當(dāng)?shù)母膭?dòng)比如增加目錄壓縮和分文件壓縮，其實(shí)就是在文件流前面增加一部分描述結(jié)構(gòu)就是，不多說。使用時(shí)，還要usezlib單元。兩個(gè)函數(shù)如下:procedureCompressIt(var...
通過減小圖片的DPI值，會(huì)大幅度降低存儲(chǔ)空間。用PS處理一次。
Delphi中的TImage控件直接支持Bitmap格式(.bmp)、Icon格式(.ico)和Metafile格式(.emfor.wmf)的圖像文件。在Delphi的設(shè)計(jì)窗口中可以把這三種格式的文件賦給TImage控件的Picture屬性。TImage控件還能顯示其他格式的圖像,如JPEG格式的圖...
那么有沒有好的解決辦法避免上述容易出錯(cuò)和煩瑣安裝軟件的過程呢？因此筆者用Delphi編制了壓縮助理程序以為數(shù)據(jù)交換提供一種輔助方法和手段二壓縮助理程序設(shè)計(jì)的基本思路通過壓縮工具將要在不同計(jì)算機(jī)間交換的文件壓縮并...
你說的這個(gè)壓縮包，是指像rar那樣的文件壓縮嗎？如果是，請(qǐng)用winexec調(diào)用rar的dos命令。如：rar.exeaC:\testd:\test.rar你要把rar.exe放在項(xiàng)目文件夾
TCompressionStream和TDepressionStream）來完成數(shù)據(jù)的壓縮和解壓縮但美中不足的是該流在Delphi的幫助中沒有詳細(xì)的說明使得它們?cè)谑褂闷饋碛幸欢ǖ美щy其實(shí)在Delphi系統(tǒng)中提供了這兩個(gè)類的源代碼和庫(kù)保存在Delphi光盤的...
2024/6/18
2024/6/18