有关图片的旋转与放缩问题

lowxiong · 发表于 2014-3-14 23:41:48

lemondian 发表于 2014-3-14 22:41
先行谢谢了！
同时还有几个问题：
1。有些图片旋转，有些不要！能不能判断图像是否需要旋转（最好系能判 ...

修改了下，可以自动判断旋转，但不能判断往哪个方向转，只顺时针转

lemondian · 发表于 2014-3-15 09:32:01

再次谢谢！

xmxoxo · 发表于 2014-3-15 10:21:58

找个人脸识别的算法

xmxoxo · 发表于 2014-3-15 13:39:55

写了个简单的算法，可以输出旋转的角度，我看楼上的不是用GDI做旋转，旋转的就不改了。
简单做了下优化，时间在1.5秒左右；不算太好。：

得分情况：scoreX:308,scoreY:1115,scoreU:400,scoreD:1023
旋转角度:-90
计算用时:1.34375
-------------
得分情况：scoreX:33964,scoreY:36196,scoreU:1084,scoreD:69076
旋转角度:-180
计算用时:1.59375
-------------

回头再发整个项目程序；

Option Explicit
'Add by xmxoxo 用于分析图像
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long
'2014-3-15 add by xmxoxo
'判断图像需要旋转的方向；思路：二值化后保留头发，判断头发所在的方位
Public Function GetDirection(objPic As PictureBox, sngBright As Single) As Integer
Dim x As Long, y As Long
Dim scoreX As Long, scoreY As Long
Dim scoreU As Long, scoreD As Long
Dim lngColor As Long
Dim intBright As Integer
'寻找黑色的头发所在的地方
For x = 1 To objPic.width
For y = 1 To objPic.Height
lngColor = GetPixel(objPic.hDC, x, y)
If lngColor < 8323072 Then
intBright = Bright(lngColor)
If intBright < sngBright Then
If x <= objPic.width / 2 Then
scoreX = scoreX + 1
Else
scoreY = scoreY + 1
End If
If y <= objPic.Height / 2 Then
scoreU = scoreU + 1
Else
scoreD = scoreD + 1
End If
End If
End If
Next
Next
Debug.Print "得分情况：scoreX:" & scoreX & ",scoreY:" & scoreY & ",scoreU:" & scoreU & ",scoreD:" & scoreD
If Abs(scoreX - scoreY) / (scoreX + scoreY) < 0.5 Then
'左右基本对称，判断上下
If Abs(scoreU - scoreD) / (scoreU + scoreD) < 0.5 Then
GetDirection = 0 '上下基本对称,图像可能不是一个头像
Else
If scoreU > scoreD Then
GetDirection = 0 '头在上，正确
Else
GetDirection = -180 '头在下，翻转180
End If
End If
Else
If scoreX > scoreY Then
GetDirection = 90
Else
GetDirection = -90
End If
End If
End Function
'计算像素点的亮度
Private Function Bright(value As Long) As Integer
On Error Resume Next
Dim sHex As String
Dim lngT As Long
Dim r As Byte, g As Byte, b As Byte
If Color < 0 Then
Bright = 0
Exit Function
End If
r = value Mod 256
lngT = value / 256
g = lngT Mod 256
lngT = lngT / 256
b = lngT Mod 256
If r > g Then
If r > b Then
Bright = r * 100 / 255
Else
Bright = b * 100 / 255
End If
Else
If g > b Then
Bright = g * 100 / 255
Else
Bright = b * 100 / 255
End If
End If
If Err Then
Err.Clear
End If
End Function

复制代码

lemondian · 发表于 2014-3-15 22:29:30

用了lowxiong 的方法，整合到自已的学生图片导入中了！
比较了一下：缩小同一比例生成的图片：bmp的比jpg的大三倍左右！
不知是否有解决的方法？

xmxoxo · 发表于 2014-3-15 23:14:58

图片缩放处理还是要用GDI+，保存成JPG的格式；
晚上在搞另一个算法，一会回来整合下这个算法；

xmxoxo · 发表于 2014-3-17 01:48:39

完成了程序整合，顺便加上了保存成JPG格式，不过生成缩略图的算法还是用楼上的；
楼主可以用程序里带的方法来自己处理下，优化后处理时间只要0.X秒。
附程序运行截图：几种处理的情况，由于样本不够，准确性测不出来。
楼主用的时候可以调整一下程序里的亮度参数：45

最后附上源码包：

lemondian · 发表于 2014-3-17 11:01:14

本帖最后由 lemondian 于 2014-3-17 11:09 编辑

xmxoxo :
今天我用一张2448*3264的图片（jpg格式，约1.67MB，图片大放不上来就不放了）进行测试（缩小为0.04倍），转换用时0.97秒。缩小后为98*131，3.5KB。
但后来又做了一个批量转换：51张（格式如上所说），速度极差（用时已超20分钟，程式进入假死，最后还是可以转换）。
不知是什么原因？
================================
同时说明：
用了lowxiong 的方法，转一张2448*3264的图片也成功（只是缩小后约为38KB），但进行批量转换时，速度会快很多，居然出现所有图片只是空白！
为什么呢？

xmxoxo · 发表于 2014-3-17 14:00:43

请问你是怎么进行批量转换的？

还有一个过程我没有处理，就是缩略部份的算法，直接用GDI+读取文件生成缩略会比较快。
而且缩略的方式应该是：指定要生成的缩略图的大小，比如所有的图都转换成100*130
而不是根据缩小倍数来，这样应该会比较方便直接。

如果你的项目没有保密性问题的话，可以把51张图片样本发到我的邮箱 (xmxoxo at QQ.com)。
稍后我抽时间把缩略功能也改成GDI+，这样整个转换，识别过程都在内存中执行，就很快了。

另外，你没有提到51张照片转换完成后，对方向的识别是否都正确，正确率有多少？

lemondian · 发表于 2014-3-17 14:24:29

本帖最后由 lemondian 于 2014-3-17 14:36 编辑

'就是重复调用函数TurnPic呀
For i = 1 To 51
         If i < 10 Then
            file = app.path  & "aa\12150" & i & ".jpg"
         Else
            file = app.path  & "aa\1215" & i & ".jpg"
         End If
         If Dir(file) <> "" Then
            If Not TurnPic(file, file & "-tmp.jpg", 0.04) Then MsgBox "图片转换失败，可能不是图像或没找到图像"
         Else
            file = ""
         End If
      Next i
==================
1.方向的识别好象也有问题！
2."指定要生成的缩略图的大小，比如所有的图都转换成100*130"---->这样的设定最好了！当然缩小倍数的也有就更好！
3.51张象片已发送到你邮箱！

		自动登录	找回密码
密码			立即注册

VBGood网站全文搜索

[求助] 有关图片的旋转与放缩问题

本帖子中包含更多资源

评分

点评

点评

本帖子中包含更多资源

点评