摘 要：使用Delphi编写程序，批量处理图像文件，将所读取的图像文件形成分辨率符合要求的文件。
关键词：Delphi ；API函数 在计算机及网络迅速发展的现代社会,计算机越来越多地改变了我们的生活。比如在许多考试报名中，需要采集电子照片，而且许多单位职工的信息存档整理中，都对照片有一定的要求。如果只是少量的照片，大家可以用Photoshop 去做一个处理，但对于大量的图片来说，一张张的调整不仅仅枯燥无味，也容量产生一些人为的偏差，在此，可以教大家一个比较方便的方法。利用编写好的程序来对图像进行批量处理，就可以很方便地得到符合要求的图片了。 经过一段时间的研究，我们通过DELPHI编写一程序，利用windows的API函数处理数据，完全可以实现图像的采集和处理，一次达到用户的要求。具体过程如下： 1、首先在uses 加入Jpeg单元 2、声明公共娈量和函数 public hWndC:THandle; FOldX,FOldY:Integer; trace,Flag:Boolean; x1,x2,y1,y2,oldx,oldy:integer; ip1:integer; left1,top1,width1,height1:integer; function fStartCap(aWidth,aHeight:Integer;aHandle:THandle):Boolean; { Public declarations } end; 3、在var中定义中所需参数 const wm_cap_start = wm_user; const wm_cap_set_callback_error=wm_cap_start +2; const wm_cap_set_callback_statusa= wm_cap_start +3; const wm_cap_set_callback _frame= wm_cap_start +5; const wm_cap_set_callback_videostream=wm_cap_start +6; const wm_cap_driver_connect= wm_cap_start + 10; const wm_cap_driver_disconnect = wm_cap_start + 11; const wm_cap_file_set_capture_filea = wm_cap_start + 20; const wm_cap _savedib = wm_cap_start + 25; const wm_cap _set_preview = wm_cap_start + 50 ; const wm_cap _set_overlay = wm_cap_start + 51 ; const wm_cap _set_previewrate= wm_cap_start + 52 ; const wm_cap _set_scale= wm_cap_start + 53 ; const wm_cap _grab_frame = wm_cap_start + 60; const wm_cap _sequence = wm_cap_start + 62; const wm_cap_sequence_nofile = wm_cap_start +63 ; const wm_cap_stop = wm_cap_start + 68; begin Result:=False; hWndC := capCreateCaptureWindowA('My Own Capture Window',WS_CHILD or WS_VISIBLE,0,0,aWidth,aHeight,aHandle,0); if hWndC <> 0 then begin SendMessage(hWndC,wm_cap_set_callback_videostream,0,0); SendMessage(hWndC, wm_cap_set_callback _error, 0, 0); SendMessage(hWndC,wm_cap_set_callback_statusa,0,0); SendMessage(hWndC, wm_cap_driver_connect, 0, 0); SendMessage(hWndC, wm_cap_set _SCALE, 1, 0); SendMessage(hWndC, wm_cap_set_previewrate, 66, 0); SendMessage(hWndC, wm_cap_set _OVERLAY, 1, 0); SendMessage(hWndC, wm_cap_set _PREVIEW, 1, 0); Result:=True; end; end; 4、添加一按钮，完成分辨率的设置， 并保存 procedure 1Click(Sender: TObject); const BufferSize = 50; DPI = 1; //inch DPC = 2; //cm var Buffer: string; index: INTEGER; FileStream: TFileStream; xResolution: WORD; yResolution: WORD; _type: Byte; name1:string; jpg:TJpegImage; dpix,dpiy:integer; begin jpg:=; (); if e then File(me); :=me ; File(); ; dpix:=strtoint(); dpiy:=strtoint(); name1:=; if name1<>'' then begin FileStream:=(name1, mOpenReadWrite); try SetLength(Buffer, BufferSize); (buffer[1], BufferSize); index := POS('JFIF' + #$00, buffer); if index > 0 then begin (index + 6, soFromBeginning); _type := DPI; (_type, 1); xresolution := swap(dpix); (xresolution, 2); yresolution := swap(dpiy); (yresolution, 2); end finally ; showmessage('保存成功'); e:=true; d:=true; us; d:=false; end; end; end; 有了以上程序，就可以批量处理图像文件，将图像文件形分辨率符合要求的图像。
中国论文网(www.lunwen.net.cn)免费学术期刊论文发表,目录,论文查重入口,本科毕业论文怎么写,职称论文范文,论文摘要,论文文献资料,毕业论文格式,论文检测降重服务。
