delphi实现批量缩略图生成工具

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

  编辑特别推荐:

  全国计算机等级考试(等考)指定教材

  全国计算机等级考试学习视频

  全国计算机等级考试网上辅导招生

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

  考试大教育全国计算机等级考试在线测试平台

  全国计算机等级考试资料下载

  全国计算机等级考试论坛

  计算机等级考试四级应用题解析汇总

  2009年下半年全国计算机二级考试时间是2009年9月19日至23日。2009年下半年全国计算机二级考试报名时间会在考前两个月开始报名!更多优质资料尽在考试大论坛 考试大在线题库

  主要功能:
  1 生成指定图片的缩略图
  2 批量生成某一目录内所有图片缩略图
  3 提供5中缩略图尺寸定义模式
  4 目前只支持.jpg格式
  测试版下载:http://bjfile.focus.cn/file/15483/728_MJpg.rar
  核心代码:
  //保存JPEG的缩略图
  procedure SavePic(SourceFileName,DescFileName: String);
  const
  MaxWidth = 200 ;
  MaxHigth = 200 ;
  var
  jpg: TJPEGImage;
  bmp: TBitmap;
  SourceJpg: TJPEGImage;
  Width, Height,tmpInt: Integer;
  begin
  try
  bmp := TBitmap.Create;
  SourceJpg := TJPEGImage.Create;
  Jpg:= TJPEGImage.Create;
  //读取源文件
  SourceJpg.LoadFromFile(SourceFileName);
  //计算缩小比例
  if SourceJpg.Width >= SourceJpg.Height then
  tmpInt := Round(SourceJpg.Width div MaxWidth)
  else
  tmpInt := Round(SourceJpg.Height div MaxHigth) ;
  Width := SourceJpg.Width div tmpInt ;
  Height := SourceJpg.Height div tmpInt ;
  //缩小
  bmp.Width := Width;
  bmp.Height := Height;
  bmp.PixelFormat := pf24bit;
  bmp.Canvas.StretchDraw(Rect(0,0,Width,Height), SourceJpg);
  //保存
  jpg.Assign(bmp);
  jpg.SaveToFile(DescFileName);
  finally
  bmp.Free;
  jpg.Free;
  SourceJpg.Free;
  end;
  end;

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

  2009年NCRE考试有新变化

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

  全国计算机等级考试历年真题及答案

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

视频学习

我考网版权与免责声明

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

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

最近更新

社区交流

考试问答