关于图像的"规1化"高手帮看看.
关于图像的"规一化"-------------高手帮看看..
最近在研究图像处理,
是这样的,已知有一个BMP图像,假如图像里有文字如下:
ABCDEFGABCAFDCE
但是每个相同的文字的像素点是有差异的,比如A,每个A的图像像素点有几个差异,我现在想把它们统一起来,把这个图输出成统一的没有差异的.
输出后可以不和以前的一图一样,只要相同的文字,比如A能输出一样就行
找了很多方法,发现只有一种比较可行,就是按这个图的长度,分割成一定等份,然后当一个等份里的像素点数量达到一定比例时,就输出一个点.
比如,图像长度为500,高80,则分割成:50*8等份,然后当一个等份内的像素点数量高于一定数量或比例时,画出这个点到一个新图中,以此类推...
但是我的代码好像有点问题,各位帮看看是哪里错了,谢了.
BmpConvert.dfm
------解决方案--------------------
思路应该没问题，
不清楚你说的出问题是什么问题
------解决方案--------------------
那样不会马赛克吗？
最近在研究图像处理,
是这样的,已知有一个BMP图像,假如图像里有文字如下:
ABCDEFGABCAFDCE
但是每个相同的文字的像素点是有差异的,比如A,每个A的图像像素点有几个差异,我现在想把它们统一起来,把这个图输出成统一的没有差异的.
输出后可以不和以前的一图一样,只要相同的文字,比如A能输出一样就行
找了很多方法,发现只有一种比较可行,就是按这个图的长度,分割成一定等份,然后当一个等份里的像素点数量达到一定比例时,就输出一个点.
比如,图像长度为500,高80,则分割成:50*8等份,然后当一个等份内的像素点数量高于一定数量或比例时,画出这个点到一个新图中,以此类推...
但是我的代码好像有点问题,各位帮看看是哪里错了,谢了.
BmpConvert.dfm
object BmpConvertForm: TBmpConvertForm
Left = 272
Top = 132
Width = 937
Height = 536
Caption = '将图片转为固定大小点阵图'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 14
object Image1: TImage
Left = 64
Top = 16
Width = 779
Height = 85
AutoSize = True
OnClick = Image1Click
end
object Image2: TImage
Left = 56
Top = 224
Width = 841
Height = 105
AutoSize = True
end
object Label1: TLabel
Left = 8
Top = 40
Width = 28
Height = 14
Caption = '原图'
end
object Label2: TLabel
Left = 0
Top = 224
Width = 28
Height = 14
Caption = '新图'
end
object Label3: TLabel
Left = 0
Top = 400
Width = 56
Height = 14
Caption = '远近参数'
end
object Label4: TLabel
Left = 64
Top = 440
Width = 42
Height = 14
Caption = 'Label4'
end
object BitBtn1: TBitBtn
Left = 776
Top = 384
Width = 121
Height = 41
Caption = '转换'
TabOrder = 0
OnClick = BitBtn1Click
end
object TrackBar1: TTrackBar
Left = 64
Top = 392
Width = 601
Height = 45
Max = 100
Min = 1
Position = 1
TabOrder = 1
OnChange = TrackBar1Change
end
object Button1: TButton
Left = 672
Top = 384
Width = 75
Height = 41
Caption = '打开文件'
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 776
Top = 440
Width = 121
Height = 33
Caption = '转换2'
TabOrder = 3
OnClick = Button2Click
end
object OpenPictureDialog1: TOpenPictureDialog
Left = 856
Top = 40
end
end
------解决方案--------------------
思路应该没问题，
不清楚你说的出问题是什么问题
------解决方案--------------------
那样不会马赛克吗？