Dario Sassi
0ebb17b14a
- aggiunta gestione log (aggiunte dipendenze da EgtBasisX64.dll e EgtDotNetBasis.dll) - aggiunta gestione comando '8' (preavviso di chiusura con Kill).
112 lines
3.5 KiB
VB.net
112 lines
3.5 KiB
VB.net
'/******************************************************************************
|
|
'* *
|
|
'* PROJECT : EOS Digital Software Development Kit EDSDK *
|
|
'* NAME : CameraController.vb *
|
|
'* *
|
|
'* Description: This is the Sample code to show the usage of EDSDK. *
|
|
'* *
|
|
'* *
|
|
'*******************************************************************************
|
|
'* *
|
|
'* Written and developed by Camera Design Dept.53 *
|
|
'* Copyright Canon Inc. 2006 All Rights Reserved *
|
|
'* *
|
|
'*******************************************************************************
|
|
'* File Update Information: *
|
|
'* DATE Identify Comment *
|
|
'* ----------------------------------------------------------------------- *
|
|
'* 06-03-22 F-001 create first version. *
|
|
'* *
|
|
'******************************************************************************/
|
|
|
|
Option Explicit On
|
|
Imports System.Runtime.InteropServices
|
|
|
|
|
|
|
|
Public Class CameraController
|
|
|
|
'// Camera model
|
|
Protected model As CameraModel
|
|
|
|
'// Command processing
|
|
Protected processor As New Processor
|
|
|
|
|
|
'// Constractor
|
|
Public Sub New()
|
|
model = Nothing
|
|
End Sub
|
|
|
|
'// Destructor
|
|
Protected Overrides Sub Finalize()
|
|
End Sub
|
|
|
|
|
|
Public Sub setCameraModel(ByVal model As CameraModel)
|
|
Me.model = model
|
|
End Sub
|
|
|
|
|
|
'// Start processor thread
|
|
Public Sub run()
|
|
|
|
processor.start()
|
|
|
|
'The communication with the camera begins
|
|
StoreAsync(New OpenSessionCommand(model))
|
|
|
|
End Sub
|
|
|
|
|
|
Public Sub actionPerformed(ByVal strEvent As String, ByVal inObject As IntPtr)
|
|
If strEvent = "download" Then
|
|
'StoreAsync(New DownloadCommand(model, inObject)) '
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Public Sub actionPerformed(ByVal strEvent As String)
|
|
|
|
If strEvent = "opensession" Then
|
|
StoreAsync(New OpenSessionCommand(model))
|
|
|
|
ElseIf strEvent = "takepicture" Then
|
|
StoreAsync(New TakePictureCommand(model))
|
|
|
|
ElseIf strEvent = "close" Then
|
|
model.notifyObservers(clse)
|
|
processor.setCloseCommand(New CloseSessionCommand(model))
|
|
processor.stopTh()
|
|
processor.join()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Public Sub actionPerformed(ByVal strEvent As String, ByVal id As Integer, Optional ByVal data As Integer = 0)
|
|
|
|
If strEvent = "get" Then
|
|
StoreAsync(New GetPropertyCommand(model, id))
|
|
|
|
ElseIf strEvent = "set" Then
|
|
StoreAsync(New SetPropertyCommand(model, id, data))
|
|
|
|
ElseIf strEvent = "getlist" Then
|
|
StoreAsync(New GetPropertyDescCommand(model, id))
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
'// Receive a command
|
|
Protected Sub StoreAsync(ByVal command As Command)
|
|
|
|
If Not IsNothing(command) Then
|
|
processor.enqueue(command)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
End Class
|