WM6下实现照相机自动拍照

Posted on 2011-03-20 15:55 cooska 阅读(348) 评论(0) 编辑收藏举报

我记得这个功能好像以前在某博客上看到过，忘了。现在要用的时候再去找突然又找不到相关的文章。。。。

现在自己把它实现了，记录下来，供以后有人需要的时候查看。

这个功能难度并不大，首先是打开照相机的拍摄对话框，这个在msdn的例子中就有。

然后就是关键，让程序模拟一个拍照的按键和回退按键来进行拍照和关闭返回。

先上我的代码吧：完整代码

界面部分就不上了，一个picturebox和两个button

Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Drawing
Imports Microsoft.WindowsMobile.Forms
Imports System.Threading

Public Class Form1
<DllImport("CoreDll")> Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr
End Function

<DllImport("CoreDll")> Public Shared Function GetForegroundWindow() As IntPtr
End Function

    Dim ccd As CameraCaptureDialog
    Dim tmrCbk As TimerCallback
    Dim tmr As System.Threading.Timer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ccd = New CameraCaptureDialog
        ccd.Mode = CameraCaptureMode.Still
        ccd.Resolution = New Size(240, 180)
        Dim o As Object = New Object()
        tmrCbk = New TimerCallback(AddressOf GetPhoto)
        tmr = New System.Threading.Timer(tmrCbk , o, 6 * 1000, -1)
        If (ccd.ShowDialog() = DialogResult.OK) Then
            PictureBox1.Image = New Bitmap(ccd.FileName)
        End If
    End Sub

    Private Sub GetPhoto(ByVal state As Object)
        Dim hwnd As IntPtr = GetForegroundWindow()
        SendMessage(hwnd, &H312, &H5233, &HC20008) '模拟拍照
        Dim o As Object = New Object()

tmrCbk = New TimerCallback(AddressOf CloseCamera)
tmr = New System.Threading.Timer(tmrCbk , o, 1 * 1000, -1)

End Sub

    Private Sub CloseCamera(ByVal state As Object)
        Dim hwnd As IntPtr = GetForegroundWindow()
        SendMessage(hwnd, &H111, &H1B77, &H7C084600) '模拟返回
        tmr.Dispose()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
        Me.Dispose()
    End Sub
End Class

这个例子我已经测试成功，可以直接拿去使用。

我讲解一下红色字体部分，因为它才是关键，呵呵，其他部分可以查阅相关资料，看msdn就行

SendMessage(hwnd, &H312, &H5233, &HC20008)
这个是我的相机拍照模拟代码

hwnd是获取窗口句柄，

&H312是发送拍照消息，

&H5233是wParam值，第一个消息参数，

&HC20008是lParam值，第二个消息参数

有的人会问这些数据是怎么来的，是否所有相机都统一用这几个参数。

我的回答是这些数据并不适用于所有手机的相机模拟，我是从.net的一个工具remote spy来探测得到的

关于怎么使用remote spy我也做个示范吧

对于安装了wm6环境的电脑上，就有这个工具