'/******************************************************************************
'*                                                                             *
'*   PROJECT : EOS Digital Software Development Kit EDSDK                      *
'*      NAME : GetPropertyDescCommand.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 GetPropertyDescCommand
    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.
    Overrides Function execute() As Boolean

        Dim err As Integer = EDS_ERR_OK

        '//Get an available property list.
        err = getPropertyDesc(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 getPropertyDesc(ByVal id As Integer) As Integer

        Dim err As Integer = EDS_ERR_OK
        Dim propertyDesc As New EdsPropertyDesc

        If id = kEdsPropID_Unknown Then

            '// If the propertyID is invalidID,
            '// you should retry to get available property lists.
            '// InvalidID is able to be published for the models elder than EOS30D.

            If err = EDS_ERR_OK Then
                err = getPropertyDesc(kEdsPropID_AEMode)
            End If
            If err = EDS_ERR_OK Then
                err = getPropertyDesc(kEdsPropID_Tv)
            End If
            If err = EDS_ERR_OK Then
                err = getPropertyDesc(kEdsPropID_Av)
            End If
            If err = EDS_ERR_OK Then
                err = getPropertyDesc(kEdsPropID_ISOSpeed)
            End If

            Return err
        End If

        '// Get available property lists.
        If err = EDS_ERR_OK Then

            err = EdsGetPropertyDesc(MyBase.model.getCameraObject(), _
                  id, _
                  propertyDesc)
        End If

        '// Stock the available property list.	
        If err = EDS_ERR_OK Then

            MyBase.model.setPropertyDesc(id, propertyDesc)

        End If

        '// Notify updating.
        If err = EDS_ERR_OK Then

            MyBase.model.notifyObservers(upls, id)

        End If

        Return err

    End Function

End Class