'/******************************************************************************
'*                                                                             *
'*   PROJECT : EOS Digital Software Development Kit EDSDK                      *
'*      NAME : SetPropertyCommand.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 Strict Off
Option Explicit On 

Imports System.Runtime.InteropServices


Public Class SetPropertyCommand
    Inherits Command

    Private propertyID As Integer
    Private data As Integer


    Public Sub New(ByVal model As CameraModel, ByVal propertyID As Integer, ByVal data As Integer)
        MyBase.new(model)
        Me.propertyID = propertyID
        Me.data = data
    End Sub

    '// Execute a command.	
    Public Overrides Function execute() As Boolean

        Dim err As Integer = EDS_ERR_OK

        '// Stock the property.

        err = EdsSetPropertyData(MyBase.model.getCameraObject(), Me.propertyID, 0, Marshal.SizeOf(Me.data), Me.data)


        '// Notify Error.
        If err <> EDS_ERR_OK Then
            '// Retry when the camera replys deviceBusy.
            If err = 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

End Class