Nicola Pievani
178 lines
5.5 KiB
VB.net
178 lines
5.5 KiB
VB.net
'/******************************************************************************
|
|
'* *
|
|
'* PROJECT : EOS Digital Software Development Kit EDSDK *
|
|
'* NAME : GetPropertyCommand.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 GetPropertyCommand
|
|
Inherits Command
|
|
|
|
Private propertyID As Integer
|
|
|
|
|
|
Public Sub New(ByVal model As CameraModel, ByVal propertyID As Integer)
|
|
MyBase.new(model)
|
|
Me.propertyID = propertyID
|
|
End Sub
|
|
|
|
'// Execute a command.
|
|
Public Overrides Function execute() As Boolean
|
|
|
|
Dim err As Integer = EDS_ERR_OK
|
|
|
|
'//Get a property.
|
|
|
|
err = getProperty(Me.propertyID)
|
|
|
|
'// Notify Error.
|
|
If err <> EDS_ERR_OK Then
|
|
|
|
'// Retry when the camera replys deviceBusy.
|
|
If (err & EDS_ERRORID_MASK) = EDS_ERR_DEVICE_BUSY Then
|
|
|
|
MyBase.model.notifyObservers(warn, err)
|
|
|
|
Return False
|
|
|
|
End If
|
|
|
|
MyBase.model.notifyObservers(errr, err)
|
|
|
|
End If
|
|
|
|
Return True
|
|
|
|
End Function
|
|
|
|
|
|
Private Function getProperty(ByVal id As Integer) As Integer
|
|
Dim err As Integer = EDS_ERR_OK
|
|
Dim dataType As EdsDataType = EdsDataType.kEdsDataType_Unknown
|
|
Dim dataSize As Integer = 0
|
|
|
|
|
|
If id = kEdsPropID_Unknown Then
|
|
'// If the propertyID is invalidID,
|
|
'// you should retry to get properties.
|
|
'// InvalidID is able to be published for the models elder than EOS30D.
|
|
|
|
If err = EDS_ERR_OK Then
|
|
err = getProperty(kEdsPropID_AEMode)
|
|
End If
|
|
If err = EDS_ERR_OK Then
|
|
err = getProperty(kEdsPropID_Tv)
|
|
End If
|
|
If err = EDS_ERR_OK Then
|
|
err = getProperty(kEdsPropID_Av)
|
|
End If
|
|
If err = EDS_ERR_OK Then
|
|
err = getProperty(kEdsPropID_ISOSpeed)
|
|
End If
|
|
If err = EDS_ERR_OK Then
|
|
err = getProperty(kEdsPropID_ImageQuality)
|
|
End If
|
|
|
|
If err = EDS_ERR_OK Then
|
|
err = getProperty(kEdsPropID_BodyIDEx)
|
|
End If
|
|
|
|
If err = EDS_ERR_OK Then
|
|
err = getProperty(kEdsPropID_OwnerName)
|
|
End If
|
|
|
|
Return err
|
|
End If
|
|
|
|
'// Get propertysize.
|
|
If err = EDS_ERR_OK Then
|
|
|
|
err = EdsGetPropertySize( _
|
|
MyBase.model.getCameraObject(), _
|
|
id, _
|
|
0, _
|
|
dataType, _
|
|
dataSize)
|
|
|
|
End If
|
|
|
|
If err = EDS_ERR_OK Then
|
|
|
|
Dim data As Integer
|
|
If dataType = EdsDataType.kEdsDataType_UInt32 Then
|
|
'// Get a property.
|
|
Dim ptr As IntPtr = Marshal.AllocHGlobal(dataSize)
|
|
|
|
err = EdsGetPropertyData(MyBase.model.getCameraObject(), _
|
|
id, _
|
|
0, _
|
|
dataSize, _
|
|
ptr)
|
|
|
|
data = Marshal.PtrToStructure(ptr, GetType(Integer))
|
|
Marshal.FreeHGlobal(ptr)
|
|
|
|
If err = EDS_ERR_OK Then
|
|
|
|
MyBase.model.setPropertyUInt32(id, data)
|
|
|
|
End If
|
|
End If
|
|
|
|
If dataType = EdsDataType.kEdsDataType_String Then
|
|
|
|
Dim str As String 'char[EDS_MAX_NAME]
|
|
Dim ptr As IntPtr = Marshal.AllocHGlobal(EDS_MAX_NAME)
|
|
|
|
'// Get a property.
|
|
err = EdsGetPropertyData(MyBase.model.getCameraObject(), _
|
|
id, _
|
|
0, _
|
|
dataSize, _
|
|
ptr)
|
|
|
|
str = Marshal.PtrToStringAnsi(ptr)
|
|
Marshal.FreeHGlobal(ptr)
|
|
|
|
'// Stock the property .
|
|
If err = EDS_ERR_OK Then
|
|
|
|
MyBase.model.setPropertyString(id, str)
|
|
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
'// Notify updating.
|
|
If err = EDS_ERR_OK Then
|
|
|
|
MyBase.model.notifyObservers(updt, id)
|
|
|
|
End If
|
|
|
|
Return err
|
|
|
|
End Function
|
|
|
|
End Class
|