delphi实现批量缩略图生成工具计算机二级考试

文章作者 100test 发表时间 2009:06:15 07:14:00
来源 100Test.Com百考试题网

　　编辑特别推荐:

　　全国计算机等级考试（等考）指定教材

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

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

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

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

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

　　全国计算机等级考试论坛

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

　　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年上半年全国计算机等级考试试题及答案