Возвращает интерфейс IExifInfo для получения информации об EXIF тэгах заданного файла изображения.

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

ZuluTools

Синтаксис:

Visual Basic:

Function GetExifInfo(Path As String) As IExifInfo

Path - имя файла изображения.

Описание:

Параметр Path должен содержать полный путь файла.

Пример:

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.GetStatus = -1 Then

   MsgBox "Файл не содержит EXIF данных"

End If