转换一下就是了,给你转换代码:
Uses
Graphics,
JPEG,
ExtCtrls;procedure JPG2BMP(JPEGFile:String;BitmapFile:String);
Var
BMP : TBitmap;
Buffer : TImage;
Temp : Boolean;begin
Buffer:=TImage.Create(Application);
with Buffer do
try
try
Picture.LoadFromFile(JPEGFile);
except
on EInvalidGraphic do
Exit;
end;
Temp := Picture.Graphic is TJPEGImage;
if Temp then
with TJPEGImage(Picture.Graphic) do
begin
Smoothing:=True;
end;
BMP:=TBitmap.Create;
with BMP do
try
Assign(Buffer.Picture.Graphic);
SaveToFile(BitmapFile);
finally
Free;
End;
finally
Free;
end;
end;
Uses
Graphics,
JPEG,
ExtCtrls;procedure JPG2BMP(JPEGFile:String;BitmapFile:String);
Var
BMP : TBitmap;
Buffer : TImage;
Temp : Boolean;begin
Buffer:=TImage.Create(Application);
with Buffer do
try
try
Picture.LoadFromFile(JPEGFile);
except
on EInvalidGraphic do
Exit;
end;
Temp := Picture.Graphic is TJPEGImage;
if Temp then
with TJPEGImage(Picture.Graphic) do
begin
Smoothing:=True;
end;
BMP:=TBitmap.Create;
with BMP do
try
Assign(Buffer.Picture.Graphic);
SaveToFile(BitmapFile);
finally
Free;
End;
finally
Free;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货