计算机二级:delphi实现jpg图片转换成bmp格式

来源:计算机等级考试    发布时间:2012-08-29    计算机等级考试视频    评论

  2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在考试大论坛 考试大在线题库
  将一个jpg格式的图片文件转换为bmp格式的文件,如果直接将扩展名jpg改成bmp,在XP及以上的系统中能自动识别打开bmp文件,但在2000及以下的系统中就会提示格式错误,这段代码实现了jpg格式到bmp格式的转换,转换后的bmp文件在2000以下的系统中也能正确打开
  procedure TForm1.JpgToBmp(const JpgFile, BmpFile: string);
  var
  jpg: TJPEGImage;
  Bmp: TBitmap;
  begin
  jpg := TJPEGImage.Create;
  Bmp := TBitmap.Create;
  try
  jpg.LoadFromFile(JpgFile);
  Bmp.Assign(jpg);
  Bmp.SaveToFile(BmpFile);
  finally
  jpg.Free;
  Bmp.Free;
  end;
  end;
  转换例子:
  procedure TForm1.BitBtn1Click(Sender: TObject);
  var
  SFile, DFile: string;
  begin
  SFile := ExtractFilePath(Application.ExeName) + ’1.jpg’;
  DFile := ExtractFilePath(Application.ExeName) + ’1.bmp’;
  JpgToBmp(SFile, DFile);
  end;
  使用这段代码需要引用单元jpeg。

  特别推荐:

  2009年9月全国计算机等级考试时间及科目预告

  2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

  2009年全国计算机等级考试报名信息汇总

  2009年NCRE考试有新变化

  2009年全国计算机等级考试大纲

  2009年上半年全国计算机二级考试试题及答案

  2009年上半年全国计算机等级考试试题答案汇总

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答