DELPHI压缩图片代码.pdf
文本预览下载声明
Delphi 压缩图片代码
添加引用：uses JPEG;
// 图片处理函数，将覆盖原图片文件
// filename:图片完整路径 PressQuality:压缩质量 Width:宽 Height:
高
function CompressMainFun(filename: String;
PressQuality,Width,Height:integer):Boolean;
var
bmp: TBitmap;
jpg: TJpegImage;
i: Integer;
sTemp:string;
begin
Result : False;
if pos(UpperCase(.bmp), UpperCase(filename)) 0 then //bmp
格式
begin
bmp.LoadFromFile(filename);
jpg.Assign(bmp);
jpg.CompressionQuality : PressQuality;
jpg.Compress;
bmp.height : Height;
bmp.Width : Width;
bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect, jpg);
jpg.Assign(bmp);
sTemp : filename + .jpg;
jpg.SaveToFile(sTemp);
DeleteFile(filename);
CopyFile(PChar(sTemp), PChar(filename), True);
DeleteFile(sTemp);
end
else //其它格
式
begin
jpg.LoadFromFile(filename);
bmp.height : Height;
bmp.Width : Width;
bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect, jpg);
jpg.Assign(bmp);
jpg.CompressionQuality : PressQuality;
jpg.Compress;
sTemp : filename + .jpg;
jpg.SaveToFile(sTemp);
DeleteFile(filename);
CopyFile(PChar(sTemp), PChar(filename), True);
DeleteFile(sTemp);
end;
Result : True;
end;
压缩图像文件并转换成BMP 格式
function GraphicToBmp(P:TPicture;Quality:Integer 80):TBitmap;
var
Jpg:TJpegImage;
begin
Result : TBitmap.Create;
with Result do
begin
Width : P.Width;
Height : P.Height;
Canvas.Draw(0,0,P.Graphic);
end;
ifAssigned(Result)then
begin
Jpg : TJpegImage.Create;
Jpg.Assign(Result);
Jpg.CompressionQuality : Quality;
Jpg.JPEGNeeded;
Jpg.Compress;
ifAssigned(Jpg)then
begin
Jpg.DIBNeeded;
Result.Assign(Jpg);
end;
end;
end;
delphi 显示 jpg、png、gif 图片及
显示全部