function JpgToBmp (JPGpicLocation, BMPpicLocation: string):boolean;
var
JpegImg: TJpegImage;
Bitmap: TBitmap;
begin
Result:=False;
JpegImg := TJpegImage.Create;
try
JpegImg.LoadFromFile(JPGpicLocation);
Bitmap := TBitmap.Create;
try
Bitmap.Assign(JpegImg);
Bitmap.SaveToFile(BMPpicLocation);
Result:=True;
finally
Bitmap.Free
end;
finally
JpegImg.Free
end;
end;
以上代碼可以把大部分的RGB的JPG轉為BMP，但是CMYK模式的不行
uj5u.com熱心網友回復：
就是這一種
uj5u.com熱心網友回復：
用TImage顯示這個圖是正常的uj5u.com熱心網友回復：
delphi7 顯示不了，你是用哪個版本？delphi7 顯示不了，你是用哪個版本？
uj5u.com熱心網友回復：
10.2...uj5u.com熱心網友回復：
那個版本應該是沒問題的，現在只討論在DELPHI7下的
uj5u.com熱心網友回復：
procedure TForm1.Button1Click(Sender: TObject);
Var
jpeg: TJPEGImage;
bmp: TBitmap;
FileName,FileName1:string;
Begin
FileName:='D:\2.jpg';
FileName1:='D:\2.bmp';
Image1.Picture.LoadFromFile(Filename);
jpeg:= TJPEGImage.Create;
try
jpeg.LoadFromFile( filename );
bmp:= TBitmap.Create;
try
bmp.Assign( jpeg );
bmp.SaveTofile(filename1);
finally
bmp.free
end;
finally
jpeg.free
end;
Image2.Picture.LoadFromFile(Filename1);
end;
測驗D7下成功轉換。
uj5u.com熱心網友回復：
D7顯示#1那個圖顏色正常嗎...uj5u.com熱心網友回復：
你這個代碼在D7下能轉RGB模式的JPG圖，但是CMKY的不行，你可以試下我在樓上提供的圖片
uj5u.com熱心網友回復：
可以用高版本寫個DLL，D7呼叫即可。uj5u.com熱心網友回復：
ImageEnView1.IO.LoadFromFile('C:\Users\lenovo\Desktop\1532053124_584114.jpg');ImageEnView1.IO.SaveToFileBMP('C:\Users\lenovo\Desktop\1.bmp');
用imageenview來做就可以了
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/39562.html