Delphi는 배치 썸네일 생성 도구 개발 코드를 구현합니다

주요 기능 :

1 지정된 이미지의 썸네일을 생성합니다

특정 디렉토리의 모든 그림 썸네일의 대량 생성

3은 5 개의 썸네일 크기 정의 모드를 제공합니다

4 현재 .jpg 형식 만 지원합니다

베타 버전 다운로드 : http://bjfile.focus.cn/file/15483/728_mjpg.rar

핵심 코드 :

// JPEG의 축소판을 저장합니다

절차 savepic (sourceFilename, descfilename : String);

Const

MaxWidth = 200;

maxhigth = 200;

var

JPG : tjpegimage;

BMP : TBITMAP;

sourcejpg : tjpegimage;

너비, 높이, tmpint : 정수;

시작하다

노력하다

bmp : = tbitmap.create;

sourcejpg : = tjpegimage.create;

jpg : = tjpegimage.create;

// 소스 파일을 읽습니다

sourcejpg.loadfromfile (sourcefilename);

// 축소 비율을 계산합니다

sourcejpg.width> = sourcejpg.height 인 경우

tmpint : = Round (sourcejpg.width div maxwidth)

또 다른

tmpint : = Round (sourcejpg.height div maxhigth);

너비 : = sourcejpg.width div tmpint;

높이 : = sourcejpg.height div tmpint;

//수축

bmp.width : = 너비;

bmp. Height : = 높이;

bmp.pixelformat : = pf24bit;

bmp.canvas.stretchdraw (rect (0,0, 너비, 높이), sourcejpg);

//구하다

JPG.Assign (BMP);

jpg.savetofile (descfilename);

마지막으로

bmp.free;

jpg.free;

sourcejpg.free;

끝;

끝;