delphi中关于对bmp或jpg文件进行图像处理(对比度、亮度调节等)的问题(200分)

  • 主题发起人 主题发起人 吉花
  • 开始时间 开始时间
我也要 hubdog@Chinaren.com
 
高?xWolf用proxy啊,
 
我是在公司里通过局域网上网的,已经用上了公司了的Proxy了
 
不过我今天回到了学校,这速度可真是怎一个爽字得了!
 
请Dick给我也email 一份,有这么好的东东,不早点
献出,太那个了吧?
开开玩笑啦!“真正的程序员用VC,聪明的程序员用delphi”
嘛!快点给我啦!
 
dick的东西不错,不过速度稍微慢了一点
 
cAkk:快发一份给我啦!我已经等不及了!
 
Dick:拜托了,给我发一份.多谢!
我的E-Mail:damon_nomad@263.net
 
Dick,cAkk兄:
可否给小弟也寄一份EnvisionImage控件组呀,这么好的东东口水都快下来了...:)
My e_mail:jbzhao@cmmail.com
 
我已经上载到
http://202.97.166.10/files/delphi/delphi.htm
 
多人接受答案了。
 
Dick,cAkk兄:
可否给小弟也寄一份EnvisionImage控件组?先谢谢了。
Mail:arcore@163.com
 
// Bitmap.ScanLine[X] 可以获取图像象素的内存地址,24Bits的Bitmap的每一象
// 素是以三原色RGB的次序存放的,改变RGB的值就可调节Bitmap的色彩.
// R, G, B: -255~255
procedure RGB(var Bmp: TBitmap; R, G, B: Integer);
var
X, Y: Integer;
I: Byte;
ColorTable: array[0..255] of TRGBColor;
pRGB: PRGBColor;
begin
for I := 0 to 255 do
begin
ColorTable.R := Byte(I + R);
ColorTable.G := Byte(I + G);
ColorTable.B := Byte(I + B);
end;

for Y := 0 to Bmp.Height - 1 do
begin
pRGB := Bmp.ScanLine[Y];
for X := 0 to Bmp.Width - 1 do
begin
pRGB.R := ColorTable[pRGB.R].R;
pRGB.G := ColorTable[pRGB.G].G;
pRGB.B := ColorTable[pRGB.B].B;
end;
Inc(pRGB);
end;
end;
//=================================
在变量定义中有如下
var
X, Y: Integer;
I: Byte;
ColorTable: array[0..255] of TRGBColor;
pRGB: PRGBColor;
请问,TRGBColor, PRGBColor 如何引用,
请指点?

 
给我也mail一个把,
kefujun@zju.edu.cn,
谢了
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部