imdata = imread('ngc6543a.jpg');%imdata为rgb数据
imwrite(imdata,'myPic.bmp');%写图片
imshow('myPic.bmp')%显示你写的图片
这样就可以啦
你如果有数据,直接用imwrite写图片就可以了,不用我的第一步读图片数据
RGB转换为灰度值
功能RgbToGray(来源:TColor):TColor;
VAR目标:字节;
开始
目标:= ROUND((0.30 * GetRValue(来源))+
(0.59 * GetGValue(来源))+
(0.11 * GetBValue(来源)));
结果:= RGB(目标,目标,目标);
结束;