English
资源说明：procedure GrayScale(const Image:TImage)
var
BytesPerScan: Integer
iWidth, iHeight: Integer
pScanLine: pByteArray
R,G,B: Byte
begin
try
BytesPerScan := Abs(Integer(Image.Picture.Bitmap.ScanLine[1])-
Integer(Image.Picture.Bitmap.ScanLine[0]))
except
raise exception.create(‘Error’)
end
for iHeight := 0 to Image.Picture.Bitmap.Height - 1 do
begin
pScanLine := Image.Picture.Bitmap.ScanLine[iHeight]
iWidth := 0
while(iWidth <= BytesPerScan - 1) do
begin
R := pScanLine^[iWidth + 2]
G := pScanLine^[iWidth + 1]
B := pScanLine^[iWidth + 0]
pScanLine^[iWidth + 2] := Byte(Round(0.299 * R + 0.587 * G + 0.114 * B))
pScanLine^[iWidth + 1] := Byte(Round(0.299 * R + 0.587 * G + 0.114 * B))
pScanLine^[iWidth + 0] := Byte(Round(0.299 * R + 0.587 * G + 0.114 * B))
iWidth := iWidth + 3
end
end
Image.Refresh
end
本源码包内暂不包含可直接显示的源代码文件，请下载源码包。
-
- VirtualPrinter.v1.0.Source.Code.zip虚拟打印机的一些源码(有C++和Delphi写的) 虚拟打印机的一些源码(有C++和Delphi写的) ...
- DelphiDllDemo.rar用于串口服务器的调用控件，delphi语言
- scan.rar用delphi写的简单的端口扫面工具，短小精悍，初学者考参考
- delphi.rardelphi实例大全尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码 ...
- ModBus_CRC.rarModBus_CRC校验码计算Delphi源程序，很实用的程序代码。
- Delphi.rar清华大学申旻主编的delphi教程，适用于有一定基础的delphi用户，是一本不错的辅导书！ ...
- object-pascal.rardelphi 编程语言object pascal说明书
- delphifr_GLIBWMI-VCL-COMPONENT-LIBRARY-8B___Page.GLibWMI is a library of components for Delphi classes to encapsulate access to W ...
- DelphiSWFSDK2[1].4.rarDelphi SWF SDK 无水印版 for D7，验证过了，可以运行
- xiaobai.rar本代码适合初学者参考学习，里面都是些初学Delphi者基本功能的实现，参考一下，可以更 ...
-
- qqdelphiprog.rarP2P即时通讯源码(DELPHI编写)，无加密，组件齐全，调试非常简单方便！ 发送联机或脱机 ...
- cbuilder.zip站长95年时想写的模拟Delphi界面的生成C语言界面的一个程序，名字就叫CBuilder，那时C ...
- Delphi 7.1 Update 升级包.rarDelphi 7.1 Update 升级包
- 挡案管理系统.rar挡案管理系统,包含一定数据文件,Delphi编写
- Socket编程的技巧.zip能够监视另一台机子的屏幕，并且可以在该机上执行任何操作的程序(其中有许多关于Socke ...
- VCLSkinv5.30FS.rarVCLSkin5.30 FS支持最新Delphi2010正式版版本。
- ftpsrv.zipDelphi/C++Builder
- am2000.zip一套用于Delphi/C++Builder的菜单控件源码
- xpidea_ocr_setup.zip免费的OCR SDK！市面上唯一免费的OCR SDK，可用于您的项目中，只要附上版权宣告就行了 ...
- FastNet.rarDELPHI里面一些常用的控件，有D6的所有控件！
