' Wrappers from Samsung Mobile SDK Wrapper Example converted to VB.NET 2005 by Jinan (http://jinanrealm.com)
'
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices

Namespace SamsungMobileSdk
    Public Enum SmiResultCode
        Success = &H0
        Unknown = &H1
        DeviceNotFound = &H2
        DeviceDisabled = &H3
        PermissionDenied = &H4
        InvalidParameter = &H5
        CannotActivateServer = &H6

        HapticsInvalidHandle = &H10020000
        HapticsOutOfHandles = &H10020001

        LedColorNotSupported = &H10030000

    End Enum


    Public Structure SdkVersion
        Public major As UInteger
        Public minor As UInteger
        Public patch As UInteger
    End Structure

    Public Class [Shared]
        Public Const SamsungMobileSDKDllName As String = "SamsungMobileSDK_1.dll"

        <DllImport(SamsungMobileSDKDllName, EntryPoint:="SmiGetSdkVersion")> _
        Private Shared Function SmiGetSdkVersion(ByRef version As SdkVersion) As IntPtr
        End Function

        Public Shared Function GetVersion(ByRef version As SdkVersion) As String
            Dim v As IntPtr = SmiGetSdkVersion(version)
            Return Marshal.PtrToStringUni(v)
        End Function
    End Class
End Namespace