Возвращает значение направления съемки в градусах.

Применяется к:

IExifInfo

Синтаксис:

Visual Basic:

Function GetGPSImgDirection() As Double

Пример:

Dim Tools As ZuluTools
Dim Info As IExifInfo

'Создаем объект ZuluTools
Set Tools = New ZuluTools

'Получаем IExifInfo
Set Info = Tools.GetExifInfo( "d:\images\IMG_0156.JPG")

'Проверяем наличие EXIF тэга, содержащего направление съемки
If  Info.IsTagExists(17)  = True Then

   MsgBox "Direction: " +  Str(Info.GetGPSImgDirection())

End If