BMP To JPG 的问题(100分)

  • 主题发起人 主题发起人 cyber.w
  • 开始时间 开始时间
C

cyber.w

Unregistered / Unconfirmed
GUEST, unregistred user!
用采集卡采单帧图片时能否直接保存为 JPG 格式?
 
一般的卡提供的开发包有这功能,

否则自己写代码也不是很麻烦啊
 
tmpFileName:=ExtractFilePath(Application.ExeName)+'Pic/tmpPicFile.jpg';
tmpJPEG.SaveToFile(tmpFileName);
bmp传成jpg格式。
 
jpg:TJpegImage;
bmp:TBitmap;
....
jpg:=TJpegImage.Create;
bmp:=TBitmap.create;
.....
jpg.assign(bmp);
jpg.savetofile('test.jpg');
.....
 
procedure BmpToJpeg(BmpPathName, JpegPathName: string);
var JpegPic: TJPEGImage;
BmpPic: TBitmap;
begin
JpegPic := TJPEGImage.Create;
BmpPic := TBitmap.Create;
try
BmpPic.LoadFromFile(BmpPathName);

JpegPic.Assign(BmpPic);
JpegPic.SaveToFile(JpegPathName);

except
on E: exception do
MessageBox(0, PChar(E.message), '错误', MB_OK);
end;

JpegPic.Free;
BmpPic.Free;
end;

 
各位能详细些吗?
 
接受答案了.
 
后退
顶部