示例一：
(一)建立项目
new items-->projects-->mdi application
(二)重新设计mdi子窗体--childwin,实现抓取的图象在childwin中显示。
在childwin子窗体中去掉原有的memo1控件,添加image控件,image1.align=alclient。
image1.autosize=ture表示原尺寸显示，strech=false表示不按对象框显示。
(三)主界面修改
1)去掉menu,toolbar,actionlist 中与paste,new 相关的项
2)添加printersetupdialog1,savedialog 控件到mainform .
添加菜单项file/打印,属性name为fileprintitem；
添加菜单项file/打印设置，属性enabled=false，name为fileprintset;
添加菜单项edit/draw ，它的属性enabled=false ;
添加菜单项edit/preferences，设置它为包含字菜单(create submenu);
添加菜单项edit/preferences/configuration;
添加菜单项edit/preferences/toolbar,它的checked=true,name=toolbaritem;
添加菜单image;
添加菜单项image/capture desktop;
添加菜单项image/capture area;
添加菜单项image/capture windows or controls;
添加菜单项image/capture icon
添加四个toolbar button 到toolbar，对应image菜单下的四个菜单项。
添加四个action到actionlist:cptdestop,cptarea,cptwindows,cpticon；
将image菜单下的四个菜单项的action属性分别对应上面四个action；
将新增的四个toolbar button的action属性分别对应上面四个action。
3)在main单元中把implementation的uses childwin移到interface的uses中，
添加scrncpt到interface的uses中；
在tmainform的public中添加定义：
child: tmdichild;
capturenum:integer;
filename:string;
defaultdirectory:string;
4)在tmainform添加私有函数：procedure delay(msecs:integer)
procedure tmainform.delay(msecs:integer); //实现延时
var firsttickcount:longint;
begin
firsttickcount:=gettickcount; //windows启动到现在的时间(豪秒)
repeat
begin
application.processmessages; //中断程序让windows能响应发生的事件end;
until ((gettickcount-firsttickcount)>=longint(msecs));
end;
5)修改过程：
去掉变量var child: tmdichild，添加参数newfile
procedure tmainform.createmdichild(const name: string;newfile:boolean); begin
child := tmdichild.create(application); { create a new mdi child window } child.caption := name;
if (not newfile)and(name<>"") then begin
child.image1.picture.bitmap.loadfromfile(name);
child.horzscrollbar.range := child.image1.picture.width;
child.vertscrollbar.range := child.image1.picture.height;
end;
end;
示例二：
四)创建抓取图象的单元文件scrncpt
unit scrncpt;
interface
uses windows,forms,controls,classes,graphics;
function capturescreenrect(arect:trect):tbitmap;
function capturescreen:tbitmap;
function captureclientimage(control:tcontrol):tbitmap;
function capturecontrolimage(control:tcontrol):tbitmap;
function capturewindowimage(wnd:hwnd):tbitmap;
implementation
function capturescreenrect(arect:trect):tbitmap;
var screendc:hdc; //设备描述表的句柄
begin
result:=tbitmap.create ;
with result,arect do
begin
width :=right-left;
height:=bottom-top;
screendc:=getdc(0); //获取一个窗口的设备描述表的句柄，0参数返回屏幕窗口设备描述表的句柄
try
//bool bitblt(hdcdest,nxdest,nydest,nwidth,nheight,hdcsrc,nxsrc,nysrc,dwrop)
//把位图从源设备描述表hdcsrc复制到目标设备描述表hdcdest，
//光栅操作码dwrop指定了源图的组合方式
bitblt(canvas.handle ,0,0,width,height,screendc,left,top,srccopy);
finally
releasedc(0,screendc);
end;
end;
end;
//全屏抓图
function capturescreen:tbitmap;
begin
with screen do
result:=capturescreenrect(rect(0,0,width,height));
end;
//抓取一个窗体或控件的客户区图象
function captureclientimage(control:tcontrol):tbitmap;
begin
//control.clientorigin是控件客户区的左上角位置。x,y是clientorigin的变量
with control,control.clientorigin do
result:=capturescreenrect(bounds(x,y,clientwidth,clientheight));
end;
// 抓取一整个窗体或控件
function capturecontrolimage(control:tcontrol):tbitmap;
begin
with control do
if parent=nil then //无父窗体，根据它的位置，直接抓取
result:=capturescreenrect(bounds(left,top,width,height))
else //有父窗体，把它转化为相对于屏幕坐标，再抓取
with parent.clienttoscreen(point(left,top))do
result:=capturescreenrect(bounds(x,y,width,height));
end;
//根据窗体句柄进行抓取
function capturewindowimage(wnd:hwnd):tbitmap;
var r:trect;
begin
getwindowrect(wnd,r); //把窗口句柄指定的窗口坐标放入trect result:=capturescreenrect(r);
end;
end.
示例三：
(五)tmainform的事件和函数和tprinter打印应用
////////// 打印知识
事件：
procedure tmainform.fileprintitemclick(sender: tobject);
begin
{kh1}print;{kh2}
screen.cursor := crhourglass;
try
if mdichildcount<>0 then
with activemdichild as tmdichild do begin
with printer do begin
begindoc; //开始打印
canvas.draw(0,0,image1.picture.graphic); //图形输出
enddoc; //结束打印
end;
end;
finally
screen.cursor := crdefault;
end;
end;
事件：
procedure tmainform.fileprintsetclick(sender: tobject); begin
screen.cursor:=crhourglass;
printersetupdialog1.execute ;
screen.cursor:=crdefault;
end;
事件：
procedure tmainform.toolbaritemclick(sender: tobject); begin
toolbaritem.checked := not toolbaritem.checked ;
toolbar2.visible := toolbaritem.checked;
end;
事件
procedure tmainform.mainmenu1change(...);
begin
fileprintitem.enabled := mdichildcount>0;
drawitem.enabled := mdichildcount>0;
end;
事件
procedure tmainform.formcreate(sender: tobject);
begin
capturenum:=0;
defaultdirectory:=extractfilepath(application.exename); end;
事件
procedure tmainform.opendialogexecute(sender: tobject); begin
opendialog.initialdir := defaultdirectory;
if opendialog.execute then
begin
defaultdirectory:=extractfilename(opendialog.filename);
createmdichild(opendialog.filename,false);
end;;
end;
事件
procedure tmainform.filesave1execute(sender: tobject); begin
with activemdichild as tmdichild do begin
filename:=extractfilename(caption);
filename:=defaultdirectory+filename;
savedialog.filename:=filename;
if not savedialog.execute then exit;
filename:=savedialog.filename ;
defaultdirectory:=extractfilename(filename);
if fileexists(filename)then begin
if messagedlg(filename+" 已存在，替换它吗？",mtinformation,,0)=mryes then deletefile(filename)
else exit;
end;
image1.picture.savetofile(filename);
caption:=filename;
statusbar.simpletext := filename;
end;
end;
示例四：
(六)tmainform的(抓图)action 事件
1)全屏抓图
action 事件
procedure tmainform.cptdesktopexecute(sender: tobject);
begin
inc(capturenum,1);
application.minimize ; //窗体最小化
delay(500); //最小化后延时，为了全屏抓图不把自身抓进图中filename:="capture"+inttostr(capturenum)+".bmp";
filename:=defaultdirectory+filename;
createmdichild(filename,true);
statusbar.simpletext := filename;
with activemdichild as tmdichild do begin
image1.picture.bitmap := capturescreen; //抓图
horzscrollbar.range := image1.picture.width;
vertscrollbar.range := image1.picture.height;
end;
child.image1.hint := "height:"+inttostr(child.image1.picture.height)+"pixels"
+ " width:"+inttostr(child.image1.picture.width)+"pixels"; application.restore ;
end;
2)区域抓图
抓取区域图片，即要用到一个新的form1，参见《delphi图象截取编程示例(6)》. 在main单元implementation的uses中添加capture1。
在main单元添加私有过程capturearea :
procedure tmainform.capturearea;
begin
with tform1.create(application) do
try
if showmodal=mrok then
with frect do begin
if (right>left)and(bottom>top) then begin
delay(400);
abitmap:=tbitmap.create;
abitmap.assign(capturescreenrect(frect));
child.image1.picture.bitmap:=abitmap;
child.clientwidth := child.image1.picture.width ;
child.clientheight:= child.image1.picture.height;
child.horzscrollbar.range:=child.image1.picture.width ;
child.vertscrollbar.range:=child.image1.picture.height;
abitmap.free ;
end else begin
messagedlg("选择图片区域错误，请重新选择！",mtinformation,,0);
child.close ;
form1.free ;
exit;
end;
end;
finally
free;
end;
end;
区域抓图的action 事件
procedure tmainform.cptareaexecute(sender: tobject);
begin
inc(capturenum,1);
application.minimize ;
delay(500);
filename:="capture"+inttostr(capturenum)+".bmp";
filename:=defaultdirectory+filename;
{ create mdi child window }
createmdichild(filename,true);
statusbar.simpletext := filename;
{ capture area of screen }
capturearea;
child.image1.hint := "height:"+inttostr(child.image1.picture.height)+"pixels"
+ " width:"+inttostr(child.image1.picture.width)+"pixels"; application.restore ;
end;
示例五：
3)抓取窗体或控件图片
抓取窗体或控件图片，即要用到一个新的form2，参见《delphi图象截取编程示例(7)》在main单元implementation的uses中添加capture2。
窗体或控件抓图的action 事件
procedure tmainform.cptwindowsexecute(sender: tobject);
var p:tpoint; handles:hwnd;
begin
inc(capturenum,1);
application.minimize ;
delay(500);
filename:="capture"+inttostr(capturenum);
filename:=defaultdirectory+filename;
with tform2.create(application) do
try
if showmodal=mrok then
begin
createmdichild(filename,true);
statusbar.simpletext := filename;
delay(500);
abitmap:=tbitmap.create ;
getcursorpos(p);
handles:=windowfrompoint(p);
abitmap:=capturewindowimage(handles);
child.image1.picture.bitmap:=abitmap;
child.clientwidth := child.image1.picture.width ;
child.clientheight:= child.image1.picture.height;
child.horzscrollbar.range := child.image1.picture.width ;
child.vertscrollbar.range := child.image1.picture.height;
child.image1.hint := "height:"+inttostr(child.image1.picture.height)+"pixels"
+ " width:"+inttostr(child.image1.picture.width)+"pixels";
abitmap.free ;
end;
finally
free;
application.restore ;
end;
end;
4)抓取icon 图片
抓取icon 图片，即要用到一个新的form3，参见《delphi图象截取编程示例(8)》在main单元implementation的uses中添加capture3。
在main单元添加私有过程captureicon :
procedure tmainform.captureicon; //
begin
with tform3.create(application) do
try
if showmodal = mrok then
with frect do begin
if (right>left)and(bottom>top) then begin
delay(300);
abitmap:=tbitmap.create ;
abitmap.assign(capturescreenrect(frect));
child.image1.picture.bitmap:=abitmap;
child.horzscrollbar.range:=child.image1.picture.width;
child.vertscrollbar.range:=child.image1.picture.height;
abitmap.free;
end else begin
messagedlg("边框选择错误，重试!",mtinformation,,0);
child.close ;
form3.free ;
exit;
end;
end;
finally
free;
end;
end;
icon 抓图的action 事件
procedure tmainform.cpticonexecute(sender: tobject);
begin
application.minimize ;
delay(400);
inc(capturenum,1);
filename:="capture"+inttostr(capturenum);
filename:=defaultdirectory+filename;
createmdichild(filename,true);
statusbar.simpletext := filename;
captureicon;
child.clientwidth := child.image1.picture.width ;
child.clientheight:= child.image1.picture.height;
child.horzscrollbar.range := child.image1.picture.width ;
child.vertscrollbar.range := child.image1.picture.height;
child.image1.hint := "height:"+inttostr(child.image1.picture.height)+"pixels"
+ " width:"+inttostr(child.image1.picture.width)+"pixels"; application.restore ;
end;
示例六：
(六)区域抓图窗体
创建一个新的form1，保存为capture1.pas。设置属性bordericons的四个属性为false. borderstyle设为bsnone,cursor设为crcross,formstyle设为fsstayontop.
添加一个私有变量：fdragging:boolean;两个公共变量:frect:trect,fbmp:tbitmap;
form1的作用：在区域抓图时创建，抓图后消失.
unit capture1;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs;
type
tform1 = class(tform)
procedure formcreate(sender: tobject);
procedure formdestroy(sender: tobject);
procedure formpaint(sender: tobject);
procedure formmousedown(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
procedure formmousemove(sender: tobject; shift: tshiftstate; x,
y: integer);
procedure formmouseup(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
private
fdragging:boolean;
public
frect:trect;
fbmp:tbitmap;
end;
var
form1: tform1;
implementation
{$r *.dfm}
procedure tform1.formcreate(sender: tobject);
var adc:hdc; //设备描述表的句柄
begin
fbmp := tbitmap.create ;
fbmp.width := screen.width ;
fbmp.height:= screen.height;
adc := getdc(0); //获取一个窗口的设备描述表的句柄，0参数返回屏幕窗口设备描述表的句柄bitblt(fbmp.canvas.handle,0,0,screen.width,screen.height,adc,0,0,srccopy);
releasedc(0,adc,);
setbounds(0,0,screen.width,screen.height);
end;
procedure tform1.formdestroy(sender: tobject);
begin
fbmp.free ;
end;
procedure tform1.formpaint(sender: tobject);
begin
canvas.draw(0,0,fbmp); //将图形绘制到canvas
end;
//如果按下鼠标左键，用setrect设置矩形frect，使其只是一个点。
//用drawfocusrect 把这个矩形画出来
procedure tform1.formmousedown(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
begin
if button=mbleft then begin
fdragging:=true;
setrect(frect,x,y,x,y);
canvas.drawfocusrect(frect);
end;
end;
//鼠标移动时, 判断是否在画图中（按下鼠标左键），drawfocusrect重新设置矩形
//使右下角为当前鼠标位置，在调用drawfocusrect画出矩形
procedure tform1.formmousemove(sender: tobject; shift: tshiftstate; x,
y: integer);
begin
if fdragging then begin
canvas.drawfocusrect(frect);
frect.right := x ;
frect.bottom:= y ;
canvas.drawfocusrect(frect);
end;
end;
//判断是否在画图中（按下鼠标左键），鼠标弹起时，
//drawfocusrect重新设置矩形.关闭窗体
procedure tform1.formmouseup(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
begin
if fdragging then begin
canvas.drawfocusrect(frect);
fdragging:=false;
end;
modalresult:=mrok; //关闭窗体
end;
end.
示例七：
(七)抓取窗体或控件图片窗体
创建一个新的form2，保存为capture2.pas。设置属性bordericons的四个属性为false. borderstyle设为bsnone,formstyle设为fsstayontop.
两个公共变量:frect:trect,fbmp:tbitmap;
unit capture2;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs;
type
tform2 = class(tform)
procedure formcreate(sender: tobject);
procedure formactivate(sender: tobject);
procedure formdestroy(sender: tobject);
procedure formpaint(sender: tobject);
procedure formmouseup(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
private
{ private declarations }
public
frect:trect;
fbmp:tbitmap;
end;
var
form2: tform2;
implementation
{$r *.dfm}
//创建一个新的自定义光标cursor_1,放在capture2.res资源
//文件中.是32*32的白色矩形边框，用来指示抓图的范围.
procedure tform2.formcreate(sender: tobject);
var adc:hdc;
const crhand = -18;
begin
screen.cursors:=loadcursor(hinstance,"cursor_1");
cursor:=crhand;
fbmp:= tbitmap.create ;
fbmp.width := screen.width ;
fbmp.height:= screen.height ;
adc := getdc(0);
bitblt(fbmp.canvas.handle,0,0,screen.width,screen.height,adc,0,0,srccopy); releasedc(0,adc);
setbounds(0,0,screen.width,screen.height);
end;
procedure tform2.formactivate(sender: tobject);
const crhand=-18;
begin
screen.cursors:=loadcursor(hinstance,pchar("cursor_1"));
cursor:=crhand;
end;
procedure tform2.formdestroy(sender: tobject);
begin
fbmp.free;
screen.cursor := crdefault;
end;
procedure tform2.formpaint(sender: tobject);
begin
canvas.draw(0,0,fbmp);
end;
procedure tform2.formmouseup(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
begin
modalresult:=mrok;
end;
end.
示例8：
(七)抓取图标（icon）的窗体
创建一个新的form3，保存为capture3.pas。设置属性bordericons的四个属性为false. borderstyle设为bsnone,formstyle设为fsstayontop.
一个私有变量：fdragging:boolean; 两个公共变量:frect:trect,fbmp:tbitmap;
unit capture3;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs;
type
tform3 = class(tform)
procedure formcreate(sender: tobject);
procedure formmousedown(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
procedure formmousemove(sender: tobject; shift: tshiftstate;
x, y: integer);
procedure formmouseup(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
procedure formactivate(sender: tobject);
procedure formdestroy(sender: tobject);
procedure formpaint(sender: tobject);
private
fdragging:boolean;
public
frect:trect;
fbmp:tbitmap;
end;
var
form3: tform3;
implementation
{$r *.dfm}
//创建一个新的自定义光标cursor_2,放在capture3.res资源
//文件中.是32*32的白色矩形边框，用来指示抓图的范围.
procedure tform3.formcreate(sender: tobject);
var adc:hdc ;
const crbox = -19;
begin
screen.cursors:=loadcursor(hinstance,"cursor_2");
cursor := crbox;
fbmp := tbitmap.create ;
fbmp.width := screen.width ;
fbmp.height:= screen.height;
adc := getdc(0);
bitblt(fbmp.canvas.handle,0,0,screen.width,screen.height,adc,0,0,srccopy);
releasedc(0,adc);
setbounds(0,0,screen.width,screen.height);
end;
procedure tform3.formmousedown(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
begin
if mbleft = button then begin
fdragging := true;
setrect(frect,x,y,x+32,y+32);
canvas.drawfocusrect(frect);
end;
end;
procedure tform3.formmousemove(sender: tobject; shift: tshiftstate;
x, y: integer);
begin
if fdragging then begin
canvas.drawfocusrect(frect);
frect.left := x ;
frect.top := y ;
frect.right:= x+32;
frect.bottom:=y+32;
canvas.drawfocusrect(frect);
end;
end;
procedure tform3.formmouseup(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
begin
modalresult:=mrok;
end;
procedure tform3.formactivate(sender: tobject);
const crhand=-18;
begin
screen.cursors:=loadcursor(hinstance,pchar("cursor_1"));
cursor:=crhand;
end;
procedure tform3.formdestroy(sender: tobject);
begin
fbmp.free;
screen.cursor := crdefault;
end;
procedure tform3.formpaint(sender: tobject);
begin
canvas.draw(0,0,fbmp);
end;
end.
Delphi中ComPort通信中的数据处理 1.串口通信的基本原理： 一般计算机与外部设备通讯有两种方式： 并行传送（Parallel ）：一次的传输量为8个位（1字节），通过并行端口，如打印机 串行传送（Serial ）：一次只传输1个位，通过串行端口，如RS-232 位与字节的概念： 二进制中的每一位0和1，被叫做一个位，每8个位构成一个字节 一个字节中最右面的位被称为第0位，最左面的位被称为第7位。 传输过程中的字节类型：一般有两种。 1.文本（字符字母、标点符号等）在计算机中存储时，每个不同的字符都用不同的数值来表示。这些数值的范围通常在0-127或0-255范围。 7位：ASCII码，每个字节留一个备用位 8位：前128个遵循ASCII码规则，其余的128个用来做扩展字符、数字符号、图形字符等编码。 2.二进制数据： 某些可执行指令文件和图形图像文件就是以二进制形式而不是ASCII码形式存储的。 一个数据可用二进制形式存储，可以占多个字节。在通信领域，常常把这种类型的资料叫做二进制数据。 今天要讲的就是有关二进制数据的处理方法。 几个概念： 波特率：每秒所能产生的最大电压状态改变率（一秒钟可以振荡的次数）bps 通信双方必须要取得一样的通信速度。原始信号经过不一样的波特率取样后，所得的结果完全不一样，如取样速度只有原来一半时，信号被跳着取样，数据因此错误。 数据位：有5,6,7,8四种 停止位：在奇偶位（选择有奇偶校验）或数据位（选择无奇偶校验）之后发送或接收的停止位。停止位的长度可在1、1．5或2位三者中选择）。 奇偶校验位：数据传输之后是可供选择的奇偶校验位发送和接收。奇偶位的状态取决于选择的奇偶校验类型。如果选择奇校验，则该字符数据中为1的位数与校验位相加，结果应为奇数。可选奇，偶或无。 如果要保证通讯畅通。通讯双方以上4项设置必须一致。 一个字节是8位，数据位可以7位，然后一位校验位就8位了。 这些参数可以自己设置。但是如果要保证通讯畅通。通讯双方以上4项设置必须一致。 2.Delphi中串口通信常用的常用控件 进行串口通讯可以用Windows的Api函数： Delphi的Windows.pas单元文件中已经将Win32 API均声明进去，因此在Delphi 里面使用API时只要在uses 区段中加入Windows，使其引用该单元文件即可。
1、引言 数据库应用程序，特别是基于WEB的数据库应用程序，常会涉及到图片信息的存储和显示。通常我们使用的方法是将所要显示的图片存在特定的目录下，在数据库中保存相应的图片的名称，在JSP中建立相应的数据源，利用数据库访问技术处理图片信息。但是，如果我们想动态的显示图片，上述方法就不能满足需要了。我们必须把图片存入数据库，然后通过编程动态地显示我们需要的图片。实际操作中，可以利用JSP的编程模式来实现图片的数据库存储和显示。 2、建立后台数据库 假定处理的是图片新闻，那么我们可以建立相应的数据库及数据表对象。我们要存取的数据表结构的SQL脚本如下所示： if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[picturenews]') andOBJECTPROPERTY(id, N'IsUserTable') = 1) drop table [dbo].[picturenews] GO CREATE TABLE [dbo].[picturenews] ( [id] [int] IDENTITY (1, 1) NOT NULL , [image] [image] NULL , [content] [varchar] (500) COLLATE Chinese_PRC_CI_AS NULL , [detail] [varchar] (5000) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] GO 表picturenews中，字段id作为标识，每存储一行数据，自动增加1。字段image 用于存储图片信息，其数据类型为“image”。 3、向数据库存储二进制图片 启动Dreamweaver MX后，新建一个JSP文件。其代码如下所示。 <%@ page contentType="text/html;charset=gb2312"%>
一、BMP格式 BMP格式是Windows操作系统中的标准图像文件格式，能够被多种Windows应用程序所支持。特点是包含的图像信息较丰富，几乎不进行压缩。缺点是占用磁盘空间过大。所以，目前BMP在单机上比较流行。 二、GIF格式 特点是压缩比高，磁盘空间占用较少，所以这种图像格式迅速得到了广泛的应用。 此外，考虑到网络传输中的实际情况，GIF图像格式还增加了渐显方式。目前Internet上大量采用的彩色动画文件多为这种格式的文件。 但GIF有个小小的缺点，即不能存储超过256色的图像。尽管如此，这种格式仍在网络上大行其道应用，这和GIF图像文件短小、下载速度快、可用许多具有同样大小的图像文件组成动画等优势是分不开的。 三、JPEG格式 JPEG文件的扩展名为.jpg或.jpeg，其压缩技术十分先进，它用有损压缩方式去除冗余的图像和彩色数据，获取得极高的压缩率的同时能展现十分丰富生动的图像，换句话说，就是可以用最少的磁盘空间得到较好的图像质量。 同时JPEG还是一种很灵活的格式，具有调节图像质量的功能，允许你用不同的压缩比例对这种文件压缩，当然我们完全可以在图像质量和文件尺寸之间找到平衡点。 它的应用也非常广泛，特别是在网络和光盘读物上，肯定都能找到它的影子。目前各类浏览器均支持JPEG这种图像格式，因为JPEG格式的文件尺寸较小，下载速度快，使得Web页有可能以较短的下载时间提供大量美观的图像，JPEG同时也就顺理成章地成为网络上最受欢迎的图像格式。 四、JPEG2000格式 JPEG 2000具备更高压缩率以及更多新功能的新一代静态影像压缩技术。 JPEG2000 与JPEG不同的是，JPEG2000 同时支持有损和无损压缩，而JPEG 只能支持有损压缩。无损压缩对保存一些重要图片是十分有用的。JPEG2000的一个极其重要的特征在于它能实现渐进传输，这一点与GIF的"渐显"有异曲同工之妙，即先传输图像的轮廓，然后逐步传输数据，不断提高图像质量，让图象由朦胧到清晰显示，而不必是像现在的JPEG 一样，由上到下慢慢显示。 此外，JPEG2000还支持所谓的"感兴趣区域"特性，你可以任意指定影像上你感兴趣区域的压缩质量，还可以选择指定的部份先解压缩。 JPEG2000可应用于传统的JPEG市场，如扫描仪、数码相机等，亦可应用于新兴领域，如网路传输、无线通讯等等 五、TIFF格式 TIFF的特点是图像格式复杂、存贮信息多。正因为它存储的图像细微层次的信息非常多，图像的质量也得以提高，故而非常有利于原稿的。
C#从SQL 数据库中读取和存入图片 本实例主要介绍如何将图片存入数据库。将图片存入数据库,首先要在数据库中建立一张表,将存储图片的字段类型设为Image类型,用FileStream类、BinaryReader把图片读成字节的形式,赋给一个字节数组,然后用 ADO.SqlCommand对象的ExecuteNonQuery()方法来把数据保存到数据库中。主要代码如下： private void button1_Click(object sender, EventArgs e) { openFileDialog1.Filter = "*jpg|*.JPG|*.GIF|*.GIF|*.BMP|*.BMP"; if(openFileDialog1.ShowDialog()==DialogResult.OK) { string fullpath =openFileDialog1.FileName;//文件路径 FileStream fs = new FileStream(fullpath, FileMode.Open); byte[] imagebytes =new byte[fs.Length]; BinaryReader br = new BinaryReader(fs); imagebytes = br.ReadBytes(Convert.ToInt32(fs.Length)); //打开数据库 SqlConnection con = new SqlConnection("server=(local);uid=sa;pwd=;database=db_05"); con.Open(); SqlCommand com = new SqlCommand("insert into tb_08 values(@ImageList)",con); com.Parameters.Add("ImageList", SqlDbType.Image); com.Parameters["ImageList"].Value = imagebytes; com.ExecuteNonQuery(); con.Close();
位图存储格式 2009-08-26 02:31 BMP位图文件的存储格式 摘要：本文简单介绍了位图文件的两种存储格式，并且在VC＋＋6.0下实现了读取位图文件中的数据，用SetPixel()函数在窗口中重现图像，最后在程序中实现了一种存储格式到另一种存储格式的转换。 关键字：BMP、灰度位图、24位真彩色位图、存储格式 一、前言 BMP(Bitmap的缩写)图像是指文件名后缀为BMP的位图图像。位图图像在计算机中使用很广泛，例如在windows中，记事本、写字板中的文字就是用位图图像表示出来的。许多以其它格式存储的图像，就是在位图图像的基础上，进行优化处理后得到的，例如JPEG图像等。 在数字图像处理中，许多算法就是针对24位真彩色位图或灰度位图设计的。因此，很有必要介绍一下位图文件的这两种存储格式。 二、24位真彩色图像存储格式 把下图的24位真彩色图像格式在16位编辑器(例如VC编辑器)中打开，可以看到图像的二进制数据。 24位真彩色的二进制数据为： 这是24位真彩色位图文件数据一部分。这一部分数据包括位图文件头、位图信息头和位图阵列三部分。 (一)位图文件头 位图文件头用来记录标志文件大小的一些信息，在文件中占14个字节，存储的内容如下：字节 1 2 3 4 5 6 7 8 9 10 11 12 13 14 000000
42 4D CC B4 02 00 00 00 00 00 36 00 00 00 其中： 42 4D 为位图的标志，即ASCII码为BM CC B4 02 表示位图文件的总字节数，换算成十进制为(02B4CC)H=(177356)10，即这副图像的大小为177356字节。 00 00 00 00 00 为保留字节，用来存储文件大小的数据。 36 00 00 00 00 表示位图阵列的起始位置，(36)H=(54)10即54字节开始为位图阵列。 (二) 位图信息头 位图信息头记录和位图相关的一些信息，在文件中占40个字节，存储的内容如下： 字节 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
Delphi存取SQL SERVER2000中存取图片 解决数据库中图片的问题，关键技术如下： 在数据库上使用Image二进制字段保存，使用Stream流的方式。 创建文件流： Word_FileStream:=TFileStream.Create(Target_Name,fmOpenWrite or fmCreate); Word_FileStream.Position:=0; 保存到数据库的Image字段： TBlobField(AdoQuery1.FieldByName(Column_Name)).SaveToStream(Word_FileStream); 从数据库读取文件到本地硬盘： TBlobField(ADOQuery1.FieldByName(Column_Name)).loadfromStream(Word_FileStream); 释放文件流： Word_FileStream.Free; Server中该字段的数据类型是Image,在Access中该字段的数据类型是OLE对象。... 既然你已经用TDBImage控件使用Picture.LoadFromFile装入了图片，只要该图片字段和TDBimage控件相连了，直接用adodataset.post,就保存到了数据库。 如果没有相连，可以直接用Tblobfield(adodataset.fields[字段名]).loadfromfile从文件中读，或Tblobfield(adodataset.fields[字段名]).loadfromstream从stream中读， 要读出该字段内容，用相应的savetofile,savetostream就行了 注意如果是jpeg图片，要引用jpeg单元，即：uses jpeg; 综合以上，既能识别bmp又识别读jpeg，我把代码修改如下： （建议用image，不要用dbimage控件，因为该控件只能识别bmp格式图片） （程序已调试，运行正确delphi7 + sql server 2000） 我的数据库是这样的： id varchar(50) name varchar(50) pic image(16) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, DBCtrls; type TForm1 = class(TForm) DataSource1: TDataSource; ADOQuery1: TADOQuery;
滨江学院 《计算机图像处理》课程设计报告 题目论正交变换的理论基础及其在图像处理中的应用专业12计算机科学与技术 学生姓名 学号 二Ｏ一五年六月十日
目录 1课程设计目的 (2) 2课程设计要求 (2) 3 正交变换的概述 (2) 3.1 信号的正交分解 (2) 3.2 正交变换的定义 (3) 3.3 正交变换的分类 (4) 3.4 正交变换的标准基 (4) 3.4.1 一维DFT的标准基 (4) 3.4.2 二维DFT (6) 3.4.3 正交变换的标准基图像 (7) 3.5 正交变换在图像处理中的应用 (8) 6 总结 (9) 7 参考文献 (9)
1课程设计目的 (1) 理解正交变换的基本概念及分类。 (2) 了解正交变换在图像处理中的应用 2课程设计要求 （1）掌握课程设计的相关知识、概念清晰。 （2）查阅资料，根据不同处理需求，设计完成对数字图像的处理与分析。 （3）熟练掌握matlab 软件的基本操作与处理命令。 （4）进一步理解数字图像处理与分析的过程与意义。 3 正交变换的概述 3.1 信号的正交分解 完备的内积空间称为希尔伯特空间。折X 为一希尔伯特空间,φ1 ,φ2 , ?,φn 是X 空间中的一向量,如果它们是线性独立的,则称之为空间X 中的一组“基”。某一信号x 就可以按这样的一组基向量作分解,即 X=∑=N n n n a 1φ （式3-1） 式（3-1）中a 1 , a 2 , ?, a n 是分解系数, 它们是一组离散值。假设φ1 ,φ2 , ?,φn 是一组两两互相正交的向量,则式(3-1) 称为x 的正交展开, 或正交分解。系数a 1 , a 2 , ?, a N 是x 在各个基向量上的投影 ,若N=3 ,其含义如图3-1 所示。
可见照片上面有着很有规律的条纹。那么其FFT频谱图上面就会有非常规则的点。这些点就是条纹在频域空间的对应。 如果擦掉这些点，做一次FFT反变换，那么就能够很好地恢复原图像。但是，不可避免的，图像变得有点模糊了 一般而言，高频率留下的是图像细节。低频率留下的是图像整体。
通过滤波永远只会使图像失去更多的信息，而不是增加细节。
计算机科学学院技术交流与讲座活动(学院会议室一教12楼)主要议题为： 1 物联网场景化应用技术，广州杰赛科技股份有限公司总工程师，傅仁轩研究员。 傅仁轩，1967年11月生，中国电子科技集团第七研究所，高级专家；广东省物联网协会专家；广东省安全技术防范协会专家委，广东省国防军工专家，广州市海珠区专业技术拔尖人才。主持科技部、省级重大重点项目40余项，获得中国电子集团科学技术奖等多项，主要从事信息处理，物联网应用的研究与开发工作。 2 生物识别技术在智能小区管理系统的应用，佛山科学技术学院教授级高工蒋业文。 蒋业文，1964年9月出生，美国Drexel大学生物医学工程学院访问学者，曾任中外合资佛山寰球通信器材有限公司总工程师、副总经理，兼职担任佛山市星光楼宇设备有限公司总工程师，现任佛山科学技术学院电子信息工程学院教授级高级工程师，硕士生导师。多年来从事嵌入式系统设计、数字图像处理、智能小区与安防技术等方面的研究和应用，主持开发的生物识别智能小区管理系统等多项电子产品获得了广泛的市场认可。主持完成10余项省级重大项目，其中的技术成果获国际先进水平和国内领先水平评价，并获得广东省科学技术奖励2项，佛山市科学技术奖励2项。 3 活动地点：计算机科学学院会议室。 时间：2017年10月20日本周五下午4:00-5：30.
实验报告 实验名称：图像处理 姓名：刘强 班级：电信1102 学号：1404110128
实验一图像变换实验——图像点运算、几何变换及正交变换一、实验条件 PC机数字图像处理实验教学软件大量样图 二、实验目的 1、学习使用“数字图像处理实验教学软件系统”，能够进行图像处理方面的 简单操作； 2、熟悉图像点运算、几何变换及正交变换的基本原理，了解编程实现的具体 步骤； 3、观察图像的灰度直方图，明确直方图的作用和意义； 4、观察图像点运算和几何变换的结果，比较不同参数条件下的变换效果； 5、观察图像正交变换的结果，明确图像的空间频率分布情况。 三、实验原理 1、图像灰度直方图、点运算和几何变换的基本原理及编程实现步骤 图像灰度直方图是数字图像处理中一个最简单、最有用的工具，它描述了一幅图像的灰度分布情况，为图像的相关处理操作提供了基本信息。 图像点运算是一种简单而重要的处理技术，它能让用户改变图像数据占据的灰度范围。点运算可以看作是“从象素到象素”的复制操作，而这种复制操作是通过灰度变换函数实现的。如果输入图像为A(x,y)，输出图像为B(x,y)，则点运算可以表示为： B(x,y)＝f[A(x,y)] 其中f(x)被称为灰度变换（Gray Scale Transformation，GST）函数，它描述了输入灰度值和输出灰度值之间的转换关系。一旦灰度变换函数确定，该点运算就完全确定下来了。另外，点运算处理将改变图像的灰度直方图分布。点运算又被称为对比度增强、对比度拉伸或灰度变换。点运算一般包括灰度的线性变换、阈值变换、窗口变换、灰度拉伸和均衡等。 图像几何变换是图像的一种基本变换，通常包括图像镜像变换、图像转置、图像平移、图像缩放和图像旋转等，其理论基础主要是一些矩阵运算，详细原理可以参考有关书籍。 实验系统提供了图像灰度直方图、点运算和几何变换相关内容的文字说明，用户在操作过程中可以参考。下面以图像点运算中的阈值变换为例给出编程实现的程序流程图，如下：
所谓位映像，即是指一个二维的像素矩阵，而位图就是采用位映像方法显示和存储图像。一幅图像的显示就是将图像的像素映射到屏幕的像素上并显示一定的颜色。当一幅图形的像素由彩色表示时就是我们通常所说的彩色图像了。 由于数字图像可以表示为矩阵的形式，所以在计算机数字图像处理程序中，通常用二维数组来存放图像数据。二维数组的行对应图像的高，二维数组的列对应图像的宽，二维数组的元素对应图像的像素，二维数组元素的值就是像素的灰度值。采用二维数组来存储数字图像，符合二维图像的行列特性，同时也便于程序的寻址操作，使得计算机图像编程十分方便。 图像的问题数据是一个二维数组（矩阵），矩阵的每一个元素对应了图像的一个像素，当保存一幅图像时，不但要保存图像的位图数据矩阵，还要将每个像素的颜色保存下来，颜色的记录是利用颜色表来完成的。 颜色表，也叫颜色查找表，是图像像素数据的颜色索引表。 对于真彩色图像，每个像素占存储空间3个字节（24位），分别对应R, G, B三个分量，每个像素的值已经将该像素的颜色记录下来了，不再需要颜色表，因此24位真彩色位图没有颜色表。 彩色图像可以由RGB彩色空间表示。彩色空间是用来表示彩色的数学模型，又被称为彩色模型。 计算计算上显示的图像经常有二值图像、灰度图像、伪彩色图像及真彩色图像等不同格式类型。而灰度和彩色格式是数字图像处理中最常用到的类型。 灰度图像是数字图像的最基本形式，灰度图像可以由黑白照片数字化得到，或从彩色图像进行去色处理得到。灰度图像只表达图像的亮度信息而没有彩色信息，因此，灰度图像的每个像素点上只包含一个量化的灰度级（即灰度值），用来表示该点的亮度水平，并且通常用1个字节（8个二进制位）来存储灰度值。 彩色图像数据不仅包含亮度信息，还包含颜色信息。 BMP文件结构及其存取： 数字图像在外存储器设备中的存储形式是图像文件，图像必须按照某个已知的、公认的数据存储顺序和结构进行存储，才能使不同的程序对图像文件顺利进行打开或存盘操作，实现数据共享。 图像数据子啊文件中的存储顺序和结构称为图像文件格式。 目前广为流传的图像文件格式有许多种，常见的格式包括BMP, GIF, JPEG, TIFF, PSD, DICOM, MPEG等。在各种图像文件格式中，一部分时由某个软硬件厂商提出并广泛接受和采用的格式，如BMP, GIF和PSD格式。另一部分是由各种国际标准组织提出的形式，例如JPEG/ TIFF和DICOM，其中JEPG是国际静止图像压缩标准组织提出的格式，TIFF是由部分厂商组织提出的格式，DICOM是医学图像国际标准组织提取的医学图像专用格式。 BMP文件是Windows操作系统所推荐和支持的图像文件格式，是一种将内存或显示器的图像数据不经过压缩而直接按位存盘的文件格式，所以称为位图(bitmap)文件，因其文件扩展名为BMP，故称为BMP文件格式，简称BMP文件。 BMP文件结构： BMP文件图像被分成4部分：位图文件头、位图信息头、颜色表和位图数据。
傅里叶变换在图像处理中的作用 图像的频率是表征图像中灰度变化剧烈程度的指标，是灰度在平面空间上的梯度。如：大面积的沙漠在图像中是一片灰度变化缓慢的区域，对应的频率值很低；而对于地表属性变换剧烈的边缘区域在图像中是一片灰度变化剧烈的区域，对应的频率值较高。傅立叶变换在实际中有非常明显的物理意义，设f是一个能量有限的模拟信号，则其傅立叶变换就表示f的谱。从纯粹的数学意义上看，傅立叶变换是将一个函数转换为一系列周期函数来处理的。从物理效果看，傅立叶变换是将图像从空间域转换到频率域，其逆变换是将图像从频率域转换到空间域。换句话说，傅立叶变换的物理意义是将图像的灰度分布函数变换为图像的频率分布函数，傅立叶逆变换是将图像的频率分布函数变换为灰度分布函数 傅立叶变换以前，图像（未压缩的位图）是由对在连续空间（现实空间）上的采样得到一系列点的集合，我们习惯用一个二维矩阵表示空间上各点，则图像可由z=f(x,y)来表示。由于空间是三维的，图像是二维的，因此空间中物体在另一个维度上的关系就由梯度来表示，这样我们可以通过观察图像得知物体在三维空间中的对应关系。为什么要提梯度？因为实际上对图像进行二维傅立叶变换得到频谱图，就是图像梯度的分布图，当然频谱图上的各点与图像上各点并不存在一一对应的关系，即使在不移频的情况下也是没有。傅立叶频谱图上我们看到的明暗不一的亮点，实际上图像上某一点与邻域点差异的强弱，即梯度的大小，也即该点的频率的大小（可以这么理解，图像中的低频部分指低梯度的点，高频部分相反）。一般来讲，梯度大则该点的亮度强，否则该点亮度弱。这样通过观察傅立叶变换后的频谱图，也叫功率图，我们首先就可以看出，图像的能量分布，如果频谱图中暗的点数更多，那么实际图像是比较柔和的（因为各点与邻域差异都不大，梯度相对较小），反之，如果频谱图中亮的点数多，那么实际图像一定是尖锐的，边界分明且边界两边像素差异较大的。对频谱移频到原点以后，可以看出图像的频率分布是以原点为圆心，对称分布的。将频谱移频到圆心除了可以清晰地看出图像频率分布以外，还有一个好处，它可以分离出有周期性规律的干扰信号，比如正弦干扰，一副带有正弦干扰，移频到原点的频谱图上可以看出除了中心以外还存在以某一点为中心，对称分布的亮点集合，这个集合就是干扰噪音产生的，这时可以很直观的通过在该位置放置带阻滤波器消除干扰 注： 1、图像经过二维傅立叶变换后，其变换系数矩阵表明： 若变换矩阵Fn原点设在中心，其频谱能量集中分布在变换系数短阵的中心附近(图中阴影区)。若所用的二维傅立叶变换矩阵Fn的原点设在左上角，那么图像信号能量将集中在系数矩阵的四个角上。这是由二维傅立叶变换本身性质决定的。同时也表明一股图像能量集中低频区域。 2 、变换之后的图像在原点平移之前四角是低频，最亮，平移之后中间部分是低频，最亮，亮度大说明低频的能量大（幅角比较大） 傅立叶变换在图像处理中有非常非常的作用。因为不仅傅立叶分析涉及图像处理的很多方面，傅立叶的改进算法， 比如离散余弦变换，gabor与小波在图像处理中也有重要的分量。 印象中，傅立叶变换在图像处理以下几个话题都有重要作用： 1.图像增强与图像去噪 绝大部分噪音都是图像的高频分量，通过低通滤波器来滤除高频——噪声; 边缘也是图像的高频分量，可以通过添加高频分量来增强原始图像的边缘； 2.图像分割之边缘检测 提取图像高频分量
一、写一个存储过程，将图片存入数据库中 基本情况介绍： 数据库版本：oracle 11g 数据库用户：scott 数据库密码：tiger JDK：1.6 要导入的图片：D:\picture\1.jpg --创建存储图片的表 CREATE TABLE IMAGE_LOB (T_ID V ARCHAR2 (5) NOT NULL,T_IMAGE BLOB NOT NULL); --创建存储图片的目录 CREATE OR REPLACE DIRECTORY IMAGES AS 'D:\picture'; 存储过程如下： CREATE OR REPLACE PROCEDURE IMG_INSERT (TID V ARCHAR2,FILENAME V ARCHAR2) AS F_LOB BFILE;--文件类型 B_LOB BLOB; BEGIN iNSERT INTO IMAGE_LOB (T_ID, T_IMAGE) V ALUES (TID,EMPTY_BLOB ()) RETURN T_IMAGE INTO B_LOB; --插入空的blob F_LOB:= BFILENAME ('IMAGES', FILENAME); --获取指定目录下的文件 DBMS_LOB.FILEOPEN(F_LOB, DBMS_LOB.FILE_READONL Y); --以只读的方式打开文件 DBMS_LOB.LOADFROMFILE (B_LOB, F_LOB,DBMS_LOB.GETLENGTH (F_LOB)); --传递对象 DBMS_LOB.FILECLOSE (F_LOB); --关闭原始文件 COMMIT; END;
摘要：本文简单介绍了位图文件的两种存储格式，并且在VC＋＋6.0下实现了读取位图文件中的数据，用SetPixel()函数在窗口中重现图像，最后在 程序中实现了一种存储格式到另一种存储格式的转换。 关键字：BMP、灰度位图、24位真彩色位图、存储格式 一、前言 BMP(Bitmap的缩写)图像是指文件名后缀为BMP的位图图像。位图图像在计算机中使用很广泛，例如在windows中，记事本、写字板中的文字就是用位图图像表示出来的。许多以其它格式存储的图像，就是在位图图像的基础上，进行优化处理后得到的，例如JPEG图像等。 在数字图像处理中，许多算法就是针对24位真彩色位图或灰度位图设计的。因此，很有必要介绍一下位图文件的这两种存储格式。 二、24位真彩色图像存储格式 把下图的24位真彩色图像格式在16位编辑器(例如VC编辑器)中打开，可以看到图像的二进制数据。 24位真彩色的二进制数据为： 这是24位真彩色位图文件数据一部分。这一部分数据包括位图文件头、位图信息头和位图阵列三部分。 (一)位图文件头 位图文件头用来记录标志文件大小的一些信息，在文件中占14个字节，存储的内容如下： 字节 1 2 3 4 5 6 7 8 9 10 11 12 13 14 000000 42 4D CC B4 02 00 00 00 00 00 36 00 00 00 其中： 42 4D 为位图的标志，即ASCII码为BM CC B4 02 表示位图文件的总字节数，换算成十进制为 (02B4CC)H=(177356)10，即这副图像的大小为177356字节。 00 00 00 00 00 为保留字节，用来存储文件大小的数据。 36 00 00 00 00 表示位图阵列的起始位置，(36)H=(54)10即54字节开始为位 图阵列。 (二) 位图信息头 位图信息头记录和位图相关的一些信息，在文件中占40个字节，存储的内容如下： 字节 1 2 3 4 5 6 7 8 9 1 0 1 1 1 2 1 3 1 4 1 5 1 6 00000 0 2 8 00001 6 0 2 C 1 C 5 1 1 8 00003 2 0 1 2 B 1 2 B 00004 8 0 其中：
数字图像的傅里叶变换 一. 课程设计目的 （1）了解图像变换的意义和手段 （2）熟悉傅里叶变换的基本性质 （3）热练掌握FFT的方法反应用 （4）通过本实验掌握利用MATLAB编程实现数字图像的傅里叶变换 二.课程设计要求 （1）熟悉并掌握傅立叶变换 （2）了解傅立叶变换在图像处理中的应用 （3）通过实验了解二维频谱的分布特点 （4）用MATLAB实现傅立叶变换仿真 三.设计思路 1.相关知识原理 （1）应用傅里叶变换进行数字图像处理 数字图像处理（digital image processing）是用计算机对图像信息进行处理的一门技术，使利用计算机对图像进行各种处理的技术和方法。 20世纪20年代，图像处理首次得到应用。20世纪60年代中期，随电子计算机的发展得到普遍应用。60年代末，图像处理技术不断完善，逐渐成为一个新兴的学科。利用数字图像处理主要是为了修改图形，改善图像质量，或是从图像中提起有效信息，还有利用数字图像处理可以对图像进行体积压缩，便于传输和保存。数字图像处理主要研究以下内容：傅立叶变换、小波变换等各种图像变换；对图像进行编码和压缩；采用各种方法对图像进行复原和增强；对图像进行分割、描述和识别等。随着技术的发展，数字图像处理主要应用于通讯技术、宇宙探索遥感技术和生物工程等领域。 傅里叶变换在数字图像处理中广泛用于频谱分析，傅里叶变换是线性系统分析的一个有力工具，它使我们能够定量地分析诸如数字化系统，采样点，电子放大器，卷积滤波器，噪声，显示点等地作用（效应）。傅里叶变换（FT）是数字图像处理技术的基础，其通过在时空域和频率域来回切换图像，对图像的信息特
CSDN - 专家门诊 - Delphi 图形处理/多媒体问题 推荐 | 保存 | 关闭窗口 主题：由Delphi中的图像灰度化代码看基本图像处理～～～ 作者： ehom (？！) 等级： 信誉值： 190 所属论坛： Delphi 图形处理/多媒体 问题点数： 33 回复次数： 23 发表时间： 2003-02-27 12:48:11Z [基础篇] 首先看一段实现24位色图像灰度化转换的代码 procedure Grayscale(const Bitmap:TBitmap); var X: Integer; Y: Integer; R,G,B,Gray: Byte; Color: TColor; begin for Y := 0 to (Bitmap.Height - 1) do begin for X := 0 to (Bitmap.Width - 1) do begin Color := Bitmap.Canvas.Pixels[X,Y]; R := Color and $FF; G := (Color and $FF00) shr 8; B := (Color and $FF0000) shr 16; Gray := Trunc(0.3 * R + 0.59 * G + 0.11 * B); Bitmap.Canvas.Pixels[X,Y] := Gray shl 16 or Gray shl 8 or Gray; end end end; {这段代码效率是非常低的，但可以方便我们理解同时一些问题} Delphi的帮助中对TColor已经有了详细的描述，这可以方便我们理解上面的代码！ 首先看： R := Color and $FF;
由于数字图像可以表示为矩阵地形式，所以在计算机数字图像处理程序中，通常用二维数组来存放图像数据.二维数组地行对应图像地高，二维数组地列对应图像地宽，二维数组地元素对应图像地像素，二维数组元素地值就是像素地灰度值.采用二维数组来存储数字图像，符合二维图像地行列特性，同时也便于程序地寻址操作，使得计算机图像编程十分方便. 图像地问题数据是一个二维数组（矩阵），矩阵地每一个元素对应了图像地一个像素，当保存一幅图像时，不但要保存图像地位图数据矩阵，还要将每个像素地颜色保存下来，颜色地记录是利用颜色表来完成地.资料个人收集整理，勿做商业用途 颜色表，也叫颜色查找表，是图像像素数据地颜色索引表. 对于真彩色图像，每个像素占存储空间个字节（位），分别对应, , 三个分量，每个像素地值已经将该像素地颜色记录下来了，不再需要颜色表，因此位真彩色位图没有颜色表.资料个人收集整理，勿做商业用途 彩色图像可以由彩色空间表示.彩色空间是用来表示彩色地数学模型，又被称为彩色模型. 计算计算上显示地图像经常有二值图像、灰度图像、伪彩色图像及真彩色图像等不同格式类型.而灰度和彩色格式是数字图像处理中最常用到地类型.资料个人收集整理，勿做商业用途灰度图像是数字图像地最基本形式，灰度图像可以由黑白照片数字化得到，或从彩色图像进行去色处理得到.灰度图像只表达图像地亮度信息而没有彩色信息，因此，灰度图像地每个像素点上只包含一个量化地灰度级（即灰度值），用来表示该点地亮度水平，并且通常用个字节（个二进制位）来存储灰度值.资料个人收集整理，勿做商业用途 彩色图像数据不仅包含亮度信息，还包含颜色信息. 文件结构及其存取： 数字图像在外存储器设备中地存储形式是图像文件，图像必须按照某个已知地、公认地数据存储顺序和结构进行存储，才能使不同地程序对图像文件顺利进行打开或存盘操作，实现数据共享.资料个人收集整理，勿做商业用途 图像数据子啊文件中地存储顺序和结构称为图像文件格式. 目前广为流传地图像文件格式有许多种，常见地格式包括, , , , , , 等.在各种图像文件格式中，一部分时由某个软硬件厂商提出并广泛接受和采用地格式，如, 和格式.另一部分是由各种国际标准组织提出地形式，例如和，其中是国际静止图像压缩标准组织提出地格式，是由部分厂商组织提出地格式，是医学图像国际标准组织提取地医学图像专用格式.资料个人收集整理，勿做商业用途 文件是操作系统所推荐和支持地图像文件格式，是一种将内存或显示器地图像数据不经过压缩而直接按位存盘地文件格式，所以称为位图()文件，因其文件扩展名为，故称为文件格式，简称文件.资料个人收集整理，勿做商业用途 文件结构： 文件图像被分成部分：位图文件头、位图信息头、颜色表和位图数据. 第一部分为位图文件头，是一个结构体类型，该结构地长度是固定地，为个字节.资料个人收集整理，勿做商业用途 第二部分为位图信息头，也是一个结构体类型地数据结构，该结构地长度也是固定地，为个字节.资料个人收集整理，勿做商业用途 第三部分为颜色表.颜色表实际上时一个结构地数组，数组地长度由指定.结构是一个结构体类型，占个字节.资料个人收集整理，勿做商业用途 第四部分是位图数据，即图像数据，其紧跟在位图文件头、位图信息头和颜色表（如果有颜色表地话）之后，记录了图像地每一个像素值.对于由颜色表地位图，位图数据就是该像素颜色在调色板中地索引值.对于真彩色图，位图数据就是实际地, , 值（三个分量地存贮顺序是, , ）.资料个人收集整理，勿做商业用途
目录 1课程设计目的 (1) 2课程设计要求 (1) 3 正交变换的概述 (1) 3.1 信号的正交分解 (1) 3.2 正交变换的定义 (2) 3.3 正交变换的分类 (3) 3.4 正交变换的标准基 (3) 3.4.1 一维DFT的标准基 (3) 3.4.2 二维DFT (5) 3.4.3 正交变换的标准基图像 (6) 3.5 正交变换在图像处理中的应用 (7) 4 傅里叶变换 (8) 4.1 傅里叶变换的定义及基本概念 (9) 4.2 傅里叶变换代码 (13) 4.3 傅里叶变换与逆变换结果 (14) 5 离散余弦变换 (14) 5.1 离散余弦变换的定义 (14) 5.2 离散余弦变换代码 (17) 5.3 离散余弦变换与逆变换结果 (17) 6 小波变换 (18) 6.1概述 (18) 6.2 小波变换的基本理论 (18) 6.3 小波变换代码 (20) 6.4 小波变换结果 (21) 7 结论 (21) 8 参考文献 (22)
图像处理中正交变换方法对比 1课程设计目的 (1) 理解正交变换的基本概念及分类。 (2) 掌握傅立叶变换及逆变换的基本原理方法。 (3) 掌握离散余弦变换的基本原理方法。 (4) 掌握小波变换的基本原理及方法。 (5) 学会利用matlab 软件进行数字图像处理与分析 2课程设计要求 （1）掌握课程设计的相关知识、概念清晰。 （2）查阅资料，根据不同处理需求，设计完成对数字图像的处理与分析。 （3）熟练掌握matlab 软件的基本操作与处理命令。 （4）进一步理解数字图像处理与分析的过程与意义。 3 正交变换的概述 3.1 信号的正交分解 完备的内积空间称为希尔伯特空间。折X 为一希尔伯特空间,φ1 ,φ2 , ?,φn 是X 空间中的一向量,如果它们是线性独立的,则称之为空间X 中的一组“基”。某一信号x 就可以按这样的一组基向量作分解,即 X=∑=N n n n a 1φ （式3-1） 式（3-1）中a 1 , a 2 , ?, a n 是分解系数, 它们是一组离散值。假设φ1 ,φ2 , ?,φn 是一组两两互相正交的向量,则式(3-1) 称为x 的正交展开, 或正交分解。系数a 1 , a 2 , ?, a N 是x 在各个基向量上的投影 ,若N=3 ,其含义如图3-1 所示。
第ｚ１卷第１期２０００年１月微计算机应用ＭＩＣＲＯＣＯＭＰＵＴＥＲＡＰＰＬＩＣＡＴＩＯＮＳＶ０１．２１，Ｎｏ．１Ｊａｎ．，２０００ Ｄｅｌｐｈｉ中ＪＰＥＧ图像对象的使用技巧” 袁梅字 （云簿ｊ二韭大学｝｝彝祝系琵鹱６５００５１） 擒鬟；本文以实倒介绍如何把婵ＥＧ图像数据写入数据库申并显示以及如何读写ＪＰＥＧ图像数 据文件．另外．还说明了其他编褴语言如何利用ＪＰＥＧ图像对象。 装镰词：ＪＰＥＧ压缩Ｄｅｌｐｈｉ １前意 ＪＰＥＧ（ＪｏｉｎｔＰｈｏｔｏｇｒａｐｈｉｃＥｘｐｅｒｔｓＧｒｏｕｐ）是连续惫诞耱壹藿像懿垂嚣稼壤，基广泛痉曩于｝｝算机秘通信锈域，铡魏电褫阉像悉雅、多媒诲遥信、多媒体计算梳、图像数据瘁等。ＪＰＥＧ的一个最著特点是它的压缩比相辫高，在无可见失真的情况下，可达到１０：１刘２０：１。文献［１］在ＰｏｗｅｒＢｕｉｌｄｅｒ中实现了把ＢＭＰ文件襻＾数据库中并显示，佩缺点是没有压缩过的图像数据占用数据库过大的警间。文献［２］实现了ＪＰＥＧ的压缩算法，并且应用到数据库中，但要每一位程序员都用Ｃ＋十来编ＪＰＥＧ的服雅子铡程，浪费精力最没宥必要。而Ｄｅｔｐｈｉ３、Ｄｅｌｐｈｉ４是支持ＪＰＥＧ戆，照ＪＰＥＧ标准过于复杂，｛嚣虽除Ｄｅｌｐｈｉ静斑线帮动静摄步有壹拜簿襞掰它的资辩，这绘应掰程穿燕带来了穰多塞溪。势越，奉文结合鑫蠢瓣缡程经验，奔绍如何在Ｄｅｌｐｈｉ中使用ＪＰＥＧ对象。 ２ＪＰＥＧ对象 ＴＪＰＥＧＩｍａｇｅ是在Ｄｅｌｐｈｉ中封装的ＪＰＥＧ图像，它支持对ＪＰＥＧ压缩图像数据的读和写。在计算机系统中，我们使用ＴＪＩ，ＥＧＩｍａｇｅ对静止图像压缩秘解压缩。ＴＪＰＥＧＩｍａｇｅ采用ＴＪＰＥＧＤａｔａ对象熬实婀孛翦数援，这些数据包含了褰燕懿ＪＰＥＧ数据漂，劳纛不蕤黪袭。ＴＪＰＥＧＩｍａｇｅ有一内部静包含ＪＰＥＧ图像的位图，蠹２５６龟，它积ＪＰＥＧ的数攥渫一祥是更凄的。ＴＪＰＥＧＩｍａｇｅ对象有不步属性和方法，这些属性和方法决定如何读写ＪＰＥＧ数据。２．１ＴＪＰＥＧＩｍａｇｅ的主要属性 （１）ＣｏｍｐｒｅｓｓｉｏｎＱｕａｌｉｔｙ（压缩质量）属性。该属性用于设置ＪＰＥＧ图像的聪嫡质量。它只用于写（臌缩），而不用于读（鼹聪缩）ＪＰＥＧ图像。该属性的类型是ＴＪＰＥＧＱｕａｌｉｔｙＲａｎｇｅ，为从１到１００辩数。ＴＪＰＥＧＱｕａｌｉｔｙＲａｎｇｅ秘蓬越大，图像静臻璧邈毫，僵銎像文｛孛静疑废也越长。 本文予１９９９一懈一１６收到。１９９９一０６—２ｌ收到修改穑。 ＊本文获蠢南工业大学校立基金资助。 万方数据
数字图像文件的存储格式 在我们的日常生活和教育软件中，计算机通过特殊软件处理的精美图像已经与我们有着密不可分的关系，街上随处可见的广告牌，灯箱，那一幅幅精美的或朦胧、或清晰的图像，都在向人们传递着信息，给人们生活带来方便。图像到底是什么，它为什么有这么大的魅力呢?这些图像又是以什么样的格式来储存和使用的呢?这些格式又有什么各自的特点和我们在什么情况下用他们呢?现在我们就来探讨一下这个问题。 通过计算机处理的图像一般称为数字图像，它与传统照片不同，它可以通过某种软件被任意修改和编辑。但他又与传统照片有密切联系，因为好多图像信息大都由照片扫描而来，另外，离开了照相机的镜头，数字图像也会濒临枯竭。数字图像根据其不同特性，可分为两类：向量图(Vector)和点阵图(又称光栅图( Raster))。向量图不是通过扫描而来，是利用诸如 Core1 DRAW、dobe Illustrator、 FreeHand、Auto CAD这样的软件绘制而成，它记录的是所绘对象的几何形状、线条粗细和色彩等，所占的存储空间很小。但它的缺点是不易制作色彩丰富的图像，而且绘制出来的图像不是很逼真，同时也不宜在不同的软件间进行交换。点阵图有许多点组成，这些点称为像素。它在保存时需记录每个像素的色彩，占用的空间较大，其缺点是在缩放或旋转时会出现失真。随着计算机技术的发展，很多软件都可同时处理向量图形与位图图像。但是当我们处理完后用什么格式存储呢? 这就是本
文要阐明的主要方面。图像格式是指计算机图像信息的存储格式。同一幅图像可以用不同的格式存储，但不同格式之间所包含的图像信息并不完全相同，其图像质量也不同，文件大小也有很大差别。 一、几种常见的图像格式及其特点 1.PCX( *.pcx) Pcx格式最早是由Zsoft公司的PC Paintbrush图形软件所支持的一种经过压缩的 PC位图文件格式。后来， Microsoft 将 PC Paintbrush移植到 Windows环境中， pcx图像格式也就得到了更多的图形图像处理软件的支持。该格式支持的颜色数从最早的16色发展到目前的1677万色。它采用行程编码方案进行压缩，带有一个128字节的文件头。该格式比较简单，适合保存索引和线画稿模式图像。其不足之处是它只有一个颜色通道。 PCX格式支持 I—24位格式颜色深度以及 RGB、索引颜色、灰度和位图颜色模式。 2. TIFF( *.tiff) Tiff格式是由 AIdus为 Macintosh机开发的一种图像文件格式，最早流行于 Macinto sh，现在Windows上主流的图像应用程序都支持该格式。目前，它是 Macintosh和 PC机上使用最广泛的位图格式，在这两种硬件平台上移植tiff图像十分便捷，大多数扫描仪也都可以输出tiff格式的图像文件。该格式支持的色彩数最高可达16M种。其特点是：存储的图像质量高，但占用的存储空间也非常大，其大小