老生长谈(怎样把图片改成黑白,jpg格式的)。 转换成BMP,设置pixelformat即可,然后转换回来即可。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 jpg图片载入后还得送入TBitmap进行处理,给你一段C++Builder的源程序,你自己改吧:(这儿处理完是24位位图)// 灰化void __stdcall Gray(Graphics::TBitmap *Bitmap) { if(Bitmap->PixelFormat!=pf24bit) { Bitmap->PixelFormat = pf24bit; } for(int j=0; j<Bitmap->Height; j++) { Byte *ptr = (Byte *)Bitmap->ScanLine[j]; for(int i=0; i<Bitmap->Width*3; i+=3) { int gray = (int)ptr[i]*0.114+(int)ptr[i+1]*0.587+(int)ptr[i+2]*0.299; if(gray>255) { gray = 255; } ptr[i] = (Byte)gray; ptr[i+1] = (Byte)gray; ptr[i+2] = (Byte)gray; } }} to ->Kingron(戒网中……) 能不能简单的写一句做为例子让小弟看一下。 听说Image组件有个属性可以设为黑白,请问那位高手知道. 是变成灰度图象,还是2值图象结果可是大大了不一样呀如果是后者,把Transparent设成true就行了 有人做过继承TDataSet的系统吗,请指教它要注意的事项. BDE中文乱码问题~急 如何將一個目錄下的所有文件名稱抓取放到一個數組中并按名稱自動排序? 有关Timage控件过渡色失真的问题 @@@@@@@@@各位大哥 谁有进销存的软件代码 我急需 要多少分都给@@@@@@@@@ 屏蔽系统功能键----为什么不起作用 用Delphi4编译的控件在Delphi5下不能使用 报表是什么概念,能不能说具体一点!!!!!!!!! 老狼:祝假日愉快!我是老刺 HOT第一急,高分求救! 关于SQL语句请教高手,解决必给分 哪位老兄有cadsys控件???如果分不够的话,可以再加!!!!!
(这儿处理完是24位位图)// 灰化
void __stdcall Gray(Graphics::TBitmap *Bitmap) {
if(Bitmap->PixelFormat!=pf24bit) {
Bitmap->PixelFormat = pf24bit;
}
for(int j=0; j<Bitmap->Height; j++) {
Byte *ptr = (Byte *)Bitmap->ScanLine[j];
for(int i=0; i<Bitmap->Width*3; i+=3) {
int gray = (int)ptr[i]*0.114+(int)ptr[i+1]*0.587+(int)ptr[i+2]*0.299;
if(gray>255) {
gray = 255;
}
ptr[i] = (Byte)gray;
ptr[i+1] = (Byte)gray;
ptr[i+2] = (Byte)gray;
}
}
}
能不能简单的写一句做为例子让小弟看一下。
结果可是大大了不一样呀
如果是后者,把Transparent设成true就行了