jpyc (九品御厨-为delphi学ASP.NE)新版主，解决问题先！

Question

在Delphi中打开一个图形，如何读取图像中象素点的值（色值），可不可以同时考虑灰度问题？

Answer 1

http://218.56.11.178:8020/web/index.aspx->下载基地->例程-经典应用->捕获屏幕颜色-------------------------------------------------http://expert.csdn.net/Expert/topic/1472/1472467.xml?temp=.3614618------------------------------------------------
祝你每天都有好心情！

Answer 2

jpyc(九品御厨-为delphi学ASP.NE)：
我已经弄下来了，和我要求的不一样，如果是指定的从我打开的图片中读取的话，应该怎么做？如何获取该图片的句柄？或者你给我提供一个新的思路，行吗？

Answer 3

色彩的灰度转化 
function RgbToGray(RGBColor : TColor) : TColor;varGray : byte;beginGray := Round((0.30 * GetRValue(RGBColor)) +(0.59 * GetGValue(RGBColor)) +(0.11 * GetBValue(RGBColor )));Result := RGB(Gray, Gray, Gray);end;procedure TForm1.FormCreate(Sender: TObject);beginShape1.Brush.Color := RGB(255, 64, 64);Shape2.Brush.Color := RgbToGray(Shape1.Brush.Color);end;
 

Answer 4

//获得颜色的RGB值
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Canvas.Pen.Color := clRed;
  Memo1.Lines.Add('Red := ' +
                  IntToStr(GetRValue(Form1.Canvas.Pen.Color)));
  Memo1.Lines.Add('Red := ' +
                  IntToStr(GetGValue(Form1.Canvas.Pen.Color)));
  Memo1.Lines.Add('Blue := ' +
                  IntToStr(GetBValue(Form1.Canvas.Pen.Color)));
end;

Answer 5

jpyc (九品御厨-为delphi学ASP.NE)新版主，解决问题先！
我怎么看着这么不舒服？凭什么给你解决问题？欠你的吗？靠，什么东西

Answer 6

chijingde(我真的不是阿德) :
CSDN本来就是学习的地方，我没有什么别的意思，我也没觉着谁欠我的，你到CSDN来谁欠你的？还是你欠别人的？人先自辱，必被辱之，你自重一点！你以为你是谁？大家巴着你理啊！

Answer 7

楼主：  谁也不欠谁的，呵呵  可能我说的有点过，不好意思，道歉先:)  但是这句  jpyc (九品御厨-为delphi学ASP.NE)新版主，解决问题先！  我确实看着不爽,可能你们很熟，那就另当别论了，当我没说
  
  如果不是这样，看你说的理所当然理直气壮的  你想没想过你是在寻求帮助？拜托谦虚点  我是chijingde(我真的不是阿德)，不是什么了不起的人物  

Answer 8

myling(阿德) :
    既然你不是什么了不起的人物，拜托注意你的说话方式；既然你觉着我说的有问题，你在动口之前为什么不用大脑过滤一下，那你又有什么资格说我！

Answer 9

myling(阿德) :
  
   真是说人的人不如人！！！   社会主义的手电筒——myling（阿德）、chijingde(我真的不是阿德) ：光照别人不照自己！！！
  
   今儿我心情好，不和你掰了！谢谢你的谆谆教诲！！！

Answer 10

大家搞技术的，何必争什么口舌之利呢？myling(阿德)：多帮我解决几个问题吧。lizexia(美丽心情)：解决问题就揭贴吧。