新手上路(如何将bmp格式图像转换为jpg格式图像)(50分)

  • 主题发起人 主题发起人 zhoumaomao98
  • 开始时间 开始时间
Z

zhoumaomao98

Unregistered / Unconfirmed
GUEST, unregistred user!
此问题要求不能调用任何库函数(请高手出招)
 
if (ExtName = '.JPG') or (ExtName = '.JPEG') then
begin
Jpg := TJPEGImage.Create;
Bmp := TBitmap.Create;
try
Jpg.LoadFromFile(lOpenPicDlg.FileName);
Bmp.Assign(Jpg);
imgP.Picture.Bitmap.Assign(Bmp);
finally
Bmp.Free;
Jpg.Free;
end;
end;
 
[:)][:D][:D][:D]可以呀,你自己定义格式就行。哈哈!!
 
procedure BMPToJPegDemo;
var
JPeg: TJPegImage;
Bmp: TBitmap;
begin

Bmp := TBitmap.Create;
Bmp.LoadFromFile('chemical.bmp');
JPeg := TJPegimage.Create;
JPeg.Assign(Bmp);
JPeg.SaveToFile('chemical.jpg');
JPeg.Free;
Bmp.Free;
end;

需要引用jpeg单元
 
此算法要嵌入到硬件中,从摄像头拍摄一幅照片(输入),然后是预处理,再进行压缩,输出
 
新手上路(如何将bmp格式图像转换为jpg格式图像)
 
还有没有高手呀,快快出主意呀!!!!!!!!!!!!
 
这个比较麻烦,需要了解,图像格式啊。
竟然有人用dephi来回答,晕,不是讨论VC++嘛?
 
那找C的代码就可以拉
嵌入硬件中啊,多半都是C啊
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
swish
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部