Mdl_ExifEx メンバ

画像ファイルのExif情報、GPS情報、DNG情報、Canon CRW情報、IPTC情報を取得します。


●メソッドの一覧

名前 引数 戻り値 説明
GetCPUInfo ( ExifStyle , String ) Boolean型 記録したCPU情報を取得します。
GetCRW_Encode なし Text.Encoding型 Canon CRW情報を取り出す時のEncodingを取得します。
GetDispTypeGPSLatitudeAndLongitude なし GPSDispKind GPSの緯度、経度の表示形式を取得します。
GetDNGInfo ( DNGTag , Boolean , strcExifGPSInfo ) Boolean型 指定したDNG情報を取得します。
GetExifFileInfo ( String , [Boolean] , [Integer] , [Integer] ) Boolean型 指定ファイルのExif情報を取得します。
GetExifInfo ( ExifTag , Boolean , strcExifGPSInfo ) Boolean型 指定したExif情報を取得します。
GetGPSFileInfo ( String , [Boolean] , [Integer] , [Integer] ) Boolean型 指定ファイルのGPS情報を取得します。
GetGPSInfo ( GPSTag , Boolean , strcExifGPSInfo ) Boolean型 指定したGPS情報を取得します。
GetIPTC_Encode なし Text.Encoding型 IPTC情報を取り出す時のEncodingを取得します。
GetTIFFAndOtherInfo ( TIFFAndOtherTag , Boolean , strcExifGPSInfo ) Boolean型 指定したTIFFAndOther情報を取得します。
SetCRW_Encode ( Text.Encoding ) なし Canon CRW情報を取り出す時のEncodingを設定します。
SetDispTypeGPSLatitudeAndLongitude ( GPSDispKind ) Boolean型 GPSの緯度、経度の表示形式を設定します。
SetIPTC_Encode ( Text.Encoding ) なし IPTC情報を取り出す時のEncodingを設定します。
SetUserComment_Getdata ( Boolean ) なし ユーザコメントの取得データ方式をセットします。

●Mdl_ExifEx構造体の一覧

名前:strcIPTCInfo

構文:

Public Structure strcIPTCInfo
    Dim Int_IPTC_Count As Integer
    Dim Int_DataNo() As Integer
    Dim Int_IPTC_AppRecocdeNo() As Integer
    Dim Str_Name() As String
    Dim Str_Name2() As String
    Dim Str_Value() As String
End Structure

内容: IPTC情報。

名前 説明
Int_IPTC_Count Integer IPTC情報数。
Int_DataNo() Integer データ番号。
Int_IPTC_AppRecodeNo() Integer IPTCのアプリケーションレコード番号。
Str_Name() String IPTCのアプリケーション名称。
Str_Name2() String IPTCのアプリケーション名称(英語)。
Str_Value() String データ値。

 

名前:strcCRWCanonInfo

構文:

Public Structure strcCRWCanonInfo
    Dim Int_CRW_Count As Integer
    Dim Int_DataNo() As Integer
    Dim Str_Name() As String
    Dim Str_Name2() As String
    Dim Str_Value() As String
    Dim Str_OrgValue() As String
End Structure

内容: CRW情報。

名前 説明
Int_CRW_Count Integer CRW情報数。
Int_DataNo() Integer データ番号。
Str_Name() String CRWの名称。
Str_Name2() String CRWの名称(英語)。
Str_Value() String データ値。
Str_OrgValue() String オリジナル値。
Str_Value() String データ値。

 

名前:strcExifInfo

構文:

Public Structure strcExifInfo
    Dim Lng_IFDOffset As Long
    Dim Int_EntryCount As Integer
    Dim Int_ExifCount As Integer
    Dim Int_GPSCount As Integer
    Dim Int_DNGCount As Integer
    Dim Int_TIFFAndOtherCount As Integer
    Dim Int_EntryTag() As Integer
    Dim Str_EntryName() As String
    Dim Str_EntryName2() As String
    Dim Sho_EntryType() As EntryType
    Dim Lng_EntryDataLen() As Long
    Dim Lng_EntryOffset() As Long
    Dim Str_EntryOrgValue() As String
    Dim Str_EntryValue() As String
    Dim Int_DataPointer() As Integer
    Dim Strc_IPTC As strcIPTCInfo
    Dim Strc_CanonCRW As strcCRWCanonInfo
End Structure

内容: Exif、GPS、DNS、Tiff and Other情報。

名前 説明
Lng_IFDOffset Long IFD Offset。
Int_EntryCount Integer エントリ数。
Int_ExifCount Integer Exif情報数。
Int_GPSCount Integer GPS情報数。
Int_DNGCount Integer DNG情報数。
Int_TIFFAndOtherCount Integer TIFF And Other情報数。
Int_EntryTag() Integer エントリのTAG値。
Str_EntryName() String エントリ名。
Str_EntryName2() String エントリ名2(英語)。
Sho_EntryType() EntryType エントリタイプ。
Lng_EntryDataLen() Long エントリの長さ。
Lng_EntryOffset() Long エントリのオフセット。
Str_EntryOrgValue() String エントリのオリジナル値。
Str_EntryValue() String エントリ値。
Int_DataPointer() Integer データポインタ。
Strc_IPTC strcIPTCInfo IPTC情報。
Strc_CanonCRW strcCRWCanonInfo Canon CRW情報。

 

名前:strcExifGPSInfo

構文:

Public Structure strcExifGPSInfo
    Dim Int_Tag As Integer
    Dim Str_Name As String
    Dim Str_Name2 As String
    Dim Sho_Type As EntryType
    Dim Int_DataLen As Integer
    Dim Str_Value As String
    Dim Int_OrgSize As Integer
    Dim Byte_OrgValue() As Byte
End Structure

内容: Exif、GPS、DNS、Tiff and Other情報。

名前 説明
Int_Tag Integer TAG。
Str_Name String Entry名。
Str_Name2 String Entry名(英語)。
Sho_Type EntryType Type。
Int_DataLen Integer 長さ。
Str_Value String 値。
Int_OrgSize Integer 元の値のサイズ。
Byte_OrgValue() Byte 元の値 (0 〜 Int_OrgSize - 1)。

 


●Mdl_ExifEx定数の一覧

名前:EntryType (Type値)

名前 内容
TYPE_BYTE 8ビット符号なし整数。
TYPE_ASCII 一つの7ビットASCIIコードを納めた8ビットバイト。最後のバイトはNULLで終端する。ASCIIのカウントはNULLも含めた値とする。
TYPE_SHORT 16ビット(2バイト)符号なし整数。
TYPE_INTEGER 32ビット(4バイト)符号なし整数。
TYPE_RATIONAL TYPE_INTEGER 2個。最初のTYPE_INTEGERは分子、2個目のTYPE_INTEGERは分母を表す。
TYPE_UNDEFINED フィールドの定義により、どんな値をとってもよい8ビットバイト。
TYPE_SSHORT 16ビット(2バイト)符号付き整数(2の補数表現)。
TYPE_SLOG 32ビット(4バイト)符号付き整数(2の補数表現)。
TYPE_SRATIONAL TYPE_SLOG 2個。最初のTYPE_SLOGは分子、2個目のTYPE_SLOGは分母を表す。

 

名前:ExifTag (Exif)

名前 内容
ImageWidth イメージ画像の幅
ImageHeight イメージ画像の高さ
BitsPerSample ピクセルあたりの分解値
Compression 圧縮の種類
PhotometricInterpretation 画像構成
Orientation 画像方向
SamplesPerPixel 1ピクセルあたりのデータ数
PlanarConfiguration 画像データの並び
YCbCrSubSampling YCbCr形式のサンプリング比率
YCbCrPositioning YCCの画素構成
XResolution 画像幅の解像度
YResolution 画像高さの解像度
ResolutionUnit 解像度の単位
StripOffsets 画像データのロケーション
RowsPerStrip ストリップ中のライン数
StripByteCounts ストリップのデータ量
JPEGInterchangeFormat JPEGのSOIへのオフセット
JPEGInterchangeFormatLength JPEGデータのバイト数
TransferFunction 再生階調カーブ特性
WhitePoint ホワイトポイント
PrimaryChromaticities 原色の色度座標値
YCbCrCoefficients 色変換マトリックス係数
ReferenceBlackWhite 画像情報の黒点・白点値
DateTime ファイル変更日時
ImageDescription 画像タイトル
Make メーカー名
Model モデル名
Software 使用ソフトウェア名
Artist 作者名
Copyright 著作権情報
ExifVersion Exifのバージョン
FlashPixVersion フラッシュピックスのバージョン
ColorSpace 色空間
Gamma ガンマ
ComponentsConfiguration 各コンポーネントの意味
CompressedBitsPerPixel 圧縮率
PixelXDimension 画像の幅
PixelYDimension 画像の高さ
MakerNote メーカー依存データ
UserComment ユーザーコメント
RelatedSoundFile 音声ファイルの名前
DateTimeOriginal 原画像データの作成日時
DateTimeDigitized デジタルデータの作成日時
SubSecTime ファイル変更日時の小数点以下の時刻
SubSecTimeOriginal 原画像データの作成日時の小数点以下の時刻
SubSecTimeDigitized デジタルデータの作成日時の小数点以下の時刻
ExposureTime 露出時間
FNumber レンズF値
ExposureProgram 露出プログラム
SpectralSensitivity スペクトル感度
ISOSpeedRatings ISOスピードレート
OECF OECF
ShutterSpeedValue シャッタースピード
ApertureValue レンズ絞り値
BrightnessValue 対象物の明るさ
ExposureBiasValue 露光補正量
MaxApertureValue レンズの開放F値
SubjectDistance 被写体までの距離
MeteringMode 自動露出の測光モード
LightSource 光源
Flash フラッシュ
FocalLength レンズの焦点距離
SubjectArea Subject area
FlashEnergy フラッシュ強度
SpatialFrequencyResponse 入力装置情報
FocalPlaneXResolution CCDの画素密度(幅)
FocalPlaneYResolution CCDの画素密度(高さ)
FocalPlaneResolutionUnit CCD画素密度の単位
SubjectLocation 被写体位置
ExposureIndex CCD感度
SensingMethod イメージセンサーの形式
FileSource ファイルソース
SceneType シーンタイプ
CFAPattern CFAパターン
CustomRendered カスタム画像処理
ExposureMode 露出モード
WhiteBalance ホワイトバランス
DigitalZoomRatio デジタルズーム
FocalLengthIn35mmFilm レンズの焦点距離(35mm)
SceneCaptureType 撮影シーンタイプ
GainControl ゲインコントロール
Contrast コントラスト
Saturation 彩度
Sharpness シャープネス
DeviceSettingDescription デバイス設定の説明
DeviceSettingDescription 被写体までの距離
ImageUniqueID 画像識別ID
InteroperabilityIFDPointer ExifR98拡張情報
InteroperabilityIndex Interoperability Identification
ExifIFDPointer Exif Tag

 

名前:GPSTag (GPS)

名前

内容

GPSVersionID GPSタグバージョン
GPSLatitudeRef 緯度(N/S)
GPSLatitude 緯度(数値)
GPSLongitudeRef 経度(E/W)
GPSLongitude 経度(数値)
GPSAltitudeRef 高度基準
GPSAltitude 高度(数値)
GPSTimeStamp GPS時間(UTC)
GPSSatellites GPS衛星情報
GPSStatus GPS受信機の状態
GPSMeasureMode GPSの測定方法
GPSDOP 測定の正確性
GPSSpeedRef 速度の単位
GPSSpeed 速度(数値)
GPSTrackRef 進行方向基準
GPSTrack 進行方向(数値)
GPSImgDirectionRef 撮影画像の方向基準
GPSImgDirection 撮影画像の方向(数値)
GPSMapDatum 測地測量
GPSDestLatitudeRef 目的地の緯度(N/S)
GPSDestLatitude 目的地の緯度(数値)
GPSDestLongitudeRef 目的地の経度(E/W)
GPSDestLongitude 目的地の経度(数値)
GPSDestBearingRef 目的地の方角基準
GPSDestBearing 目的地の方角
GPSDestDistanceRef 目的地までの距離の単位
GPSDestDistance 目的地までの距離
GPSProcessingMethod GPS処理方法
GPSAreaInformation GPS地域情報
GPSDateStamp GPS日付
GPSDifferential GPS補正情報
GPSInfoIFDPointer GPS Tag

 

名前:DNGTag (DNG)

名前

内容

DNGVersion DNGバージョン
DNGBackwardVersion DNG Backwardバージョン
UniqueCameraModel カメラモデル
LocalizedCameraModel 限定カメラモデル
CFAPlaneColor CFAプレーンColor
CFALayout CFAレイアウト
LinearizationTable 線形化テーブル
BlackLevelRepeatDim 黒レベルのサイズ
BlackLevel 黒レベル
BlackLevelDeltaH 黒レベルデルタH
BlackLevelDeltaV 黒レベルデルタV
WhiteLevel 白レベル
DefaultScale デフォルトスケール
BestQualityScale 高品質スケール
DefaultCropOrigin デフォルト切取り基点
DefaultCropSize デフォルト切取りサイズ
CalibrationIlluminant1 光源キャリブレーション1
CalibrationIlluminant2 光源キャリブレーション2
ColorMatrix1 カラーマトリックス1
ColorMatrix2 カラーマトリックス2
CameraCalibration1 カメラキャリブレーション1
CameraCalibration2 カメラキャリブレーション2
ReductionMatrix1 縮小マトリックス1
ReductionMatrix2 縮小マトリックス2
AnalogBalance アナログバランス
AsShotNeutral ニュートラルショット
AsShotWhiteXY ホワイトX-Yショット
BaselineExposure ベースライン露出
BaselineNoise ベースラインノイズ
BaselineSharpness ベースラインシャープネス
BayerGreenSplit ベイヤーグリーン分割
LinearResponseLimit 線型反応限界
CameraSerialNumber カメラシリアル番号
LensInfo レンズ情報
ChromaBlurRadius 彩度ぼけ半径
AntiAliasStrength カメラのアンチエイリアスフィルタの相対的な強度
ShadowScale シャドウスケール
DNGPrivateData DNGプライベートデータ
MakerNoteSafety メーカーノートセーフティ
RawDataUniqueID RAWデータユニークID
OriginalRawFileName オリジナルRAWファイル名
OriginalRawFileData オリジナルRAWファイルデータ
ActiveArea アクティブ領域
MaskedAreas マスク領域
AsShotICCProfile 撮影時ICCプロファイル
AsShotPreProfileMatrix 撮影時プロファイルマトリックス
CurrentICCProfile カレントICCプロファイル
CurrentPreProfileMatrix カレントプロファイルマトリックス
ColorimetricReference 比色分析参照
CameraCalibrationSignature カメラキャリブレーションの署名
ProfileCalibrationSignature プロファイルキャリブレーションの署名
ExtraCameraProfiles 他のカメラプロフィール
AsShotProfileName 撮影時プロフィール名
NoiseReductionApplied 適用ノイズリダクション
ProfileName プロフィール名
ProfileHueSatMapDims 色境界
ProfileHueSatMapData1 色相Sat.マップデータプロフィール1
ProfileHueSatMapData2 色相Sat.マップデータプロフィール2
ProfileToneCurve トーンカーブプロフィール
ProfileEmbedPolicy プロフィール埋め込み方針
ProfileCopyright プロフィール著作権
ForwardMatrix1 前行列1
ForwardMatrix2 前行列2
PreviewApplicationName プレビューアプリケーション名
PreviewApplicationVersion プレビューアプリケーションバージョン
PreviewSettingsName プレビュー設定名
PreviewSettingsDigest プレビュー設定要約
PreviewColorSpace プレビュー色空間
PreviewDateTime プレビュー日時
RawImageDigest RAWイメージ要約
OriginalRawFileDigest オリジナルRAWファイル要約
SubTileBlockSize サブタイトルブロックサイズ
RowInterleaveFactor 列を挟む要因
ProfileLookTableDims 表示テーブルデータプロフィールのサイズ
ProfileLookTableData 表示テーブルデータプロフィール
OpcodeList1 Opcode リスト1
OpcodeList2 Opcode リスト2
OpcodeList3 Opcode リスト3
NoiseProfile ノイズプロファイル

 

名前:TIFFAndOtherTag (TIFF and Other)

名前

内容

NewSubfileType New Subfile Type
SubfileType Subfile Type
Threshholding Thresh holding
CellWidth Cell Width
CellLength Cell Length
FillOrder Fill Order
DocumentName Document Name
MinSampleValue Min Sample Value
MaxSampleValue Max Sample Value
PageName Page Name
XPosition X Position
YPosition Y Position
FreeOffsets Free Offsets
FreeByteCounts Free Byte Counts
GrayResponseUnit Gray Response Unit
GrayResponseCurve Gray Response Curve
T4Options T4 Options
T6Options T6 Options
PageNumber Page Number
HostComputer Host Computer
Predictor Predictor
ColorMap Color Map
HalftoneHints Halftone Hints
TileWidth Tile Width
TileLength Tile Length
TileOffsets Tile Offsets
TileByteCounts Tile Byte Counts
BadFaxLines Bad Fax Lines
CleanFaxData Clean Fax Data
ConsecutiveBadFaxLines Consecutive Bad Fax Lines
SubIFDs Sub IFDs
InkSet Ink Set
InkNames Ink Names
NumberOfInks Number Of Inks
DotRange Dot Range
TargetPrinter Target Printer
ExtraSamples Extra Samples
SampleFormat Sample Format
SMinSampleValue S Min Sample Value
SMaxSampleValue S Max Sample Value
TransferRange Transfer Range
ClipPath Clip Path
XClipPathUnits X Clip Path Units
YClipPathUnits Y Clip Path Units
Indexed Indexed
JPEGTables JPEG Tables
OPIProxy OPI Proxy
GlobalParametersIFD Global Parameters IFD
ProfileType Profile Type
FaxProfile Fax Profile
CodingMethods Coding Methods
VersionYear Version Year
ModeNumber Mode Number
Decode Decode
ImageBaseColor Image Base Color
T82Options T82 Options
JPEGProc JPEG Proc
JPEGLosslessPredictors JPEG Lossless Predictors
JPEGPointTransforms JPEG Point Transforms
JPEGQTables JPEG Q Tables
JPEGDCTables JPEG DC Tables
JPEGACTables JPEG AC Tables
StripRowCounts Strip Row Counts
XML XML
RATING Rating
RATING_PERCENT RatingPercent
ImageID Image ID
AnnotationData Annotation Data
ModelPixelScaleTag Model Pixel ScaleTag
IPTC IPTC
INGRPacketDataTag INGR Packet Data Tag
INGRFlagRegisters INGR Flag Registers
IrasBTransformationMatrix IrasB Transformation Matrix
ModelTiepointTag Model Tiepoint Tag
ModelTransformationTag Model Transformation Tag
PhotoshopSettings Photoshop Settings
ICCProfile ICC Profile
GeoKeyDirectoryTag Geo Key Directory Tag
GeoDoubleParamsTag Geo Double Params Tag
GeoAsciiParamsTag Geo Ascii Params Tag
ImageLayer Image Layer
ImageSourceData Image Source Data
TITLE TITLE
COMMENTS COMMENTS
AUTHOR AUTHOR
KEYWORDS KEYWORDS
SUBJECT SUBJECT
GDAL_METADATA GDAL METADATA
GDAL_NODATA GDAL NODATA
OceScanjobDescription Oce Scanjob Description
OceApplicationSelector Oce Application Selector
OceIdentificationNumber Oce Identification Number
OceImageLogicCharacteristics Oce Image Logic Characteristics
PrintIM Print IM
ExifInfo Exif情報
AliasLayerMetadata Alias Layer Metadata
TimeZoneOffset Time Zone Offset
CFARepeatPatternDim CFA Repeat Pattern Dim
BatteryLevel Battery Level
Interlace Interlace
SelfTimerMode Self Timer Mode
Noise Noise
ImageNumber Image Number
SecurityClassification Security Classification
ImageHistory Image History
TIFF_EPStandardID TIFF/EP Standard ID
TIFF_FlashEnergy Flash Energy
TIFF_SpatialFrequencyResponse Spatial Frequency Response
TIFF_FocalPlaneXResolution Focal Plane X Resolution
TIFF_FocalPlaneYResolution Focal Plane Y Resolution
TIFF_FocalPlaneResolutionUnit Focal Plane Resolution Unit
TIFF_ExposureIndex Exposure Index
TIFF_SensingMethod Sensing Method
TIFF_CFAPattern CFA Pattern

 

名前:IPTCApp2 (IPTCのアプリケーション2)

名前

内容

RecordVersion Record Version
ObjectTypeReference Object Type Reference
Intellectual_genre Intellectual_genre
Title Title
EditStatus Edit Status
EditorialUpdate Editorial Update
Urgency Urgency
IPTC_Subject_Code IPTC Subject Code
Category Category
SupplementalCategories Supplemental Categories
FixtureIdentifier Fixture Identifier
Keywords Keywords
ContentLocationCode Content LocationCode
ContentLocationName Content Location Name
ReleaseDate Release Date
ReleaseTime Release Time
ExpirationDate Expiration Date
ExpirationTime Expiration Time
Instructions Instructions
ActionAdvised Action Advised
ReferenceService Reference Service
ReferenceDate Reference Date
ReferenceNumber Reference Number
DateCreated Date Created
TimeCreated Time Created
DigitalCreationDate Digital Creation Date
DigitalCreationTime Digital Creation Time
OriginatingProgram Originating Program
ProgramVersion Program Version
ObjectCycle Object Cycle
Creator Creator
AuthorTitleCreators_Jobtitle Author Title Creators Jobtitle
City City
Sublocation Sublocation
Province_State Province State
ISO_Country_Code ISO Country Code
Country Country
OriginalTransmissionReference Original Transmission Reference
Headline Headline
Credit_Line Credit Line
Source Source
CopyrightNotice Copyright Notice
Contact_Information Contact Information
Caption Caption
LocalCaption Local Caption
Description_writer Description writer
RasterizedCaption Rasterized Caption
ImageType Image Type
ImageOrientation Image Orientation
LanguageIdentifier Language Identifier
AudioType Audio Type
AudioSamplingRate Audio Sampling Rate
AudioSamplingResolution Audio Sampling Resolution
AudioDuration Audio Duration
AudioOutcue Audio Outcue
JobID Job ID
MasterDocumentID Master Document ID
ShortDocumentID Short Document ID
UniqueDocumentID Unique Document ID
OwnerID Owner ID
ObjectDataPreviewFileFormat Object Data Preview File Format
ObjectDataPreviewFileFormatVersion Object Data Preview File Format Version
ObjectDataPreviewData Object Data Preview Data
Prefs Prefs
ClassifyState Classify State
SimilarityIndex Similarity Index
DocumentNotes Document Notes
DocumentHistory Document History
ExifCameraInfo Exif Camera Info

 

名前:GPSDispKind (GPSの表示形式)

名前

内容

LatitudeAndLongitudeMark 記号 xx°xx.xx’
LatitudeAndLongitudeMarkDMS 記号 xx°xx’xx”
LatitudeAndLongitudeString 文字 xx度xx.xx分
LatitudeAndLongitudeStringDMS 文字 xx度xx分xx秒
LatitudeAndLongitudePercentage 百分率

 

名前:ExifStyle (ExifまたはGPSの指定用)

名前

内容

Exif Exifを示します。
GPS GPSを示します。

●Mdl_ExifExメソッド の説明

名前:GetCPUInfo
構文:Public Function GetCPUInfo( ExifStyle, CPU ) As Boolean

機能:記録したCPU情報を取得します。

引数:

名前 引数渡しの方法 説明
ExifStyle ExifStyle 値渡し(ByVal) 取得する種類を渡します。
CPU String 参照渡し(ByRef) CPU情報を戻します。
  II:インテル
  MM:モトローラ

戻り値:Boolean

戻り値の説明:

True:成功。
False:失敗、エラー発生。

使用例:

Dim Str_CPU As String

    If Mdl_ExifEx.GetExifFileInfo("C:\Exif情報.JPG") Then
        If Mdl_ExifEx.GetCPUInfo(ExifStyle.Exif, Str_CPU) Then
            MsgBox("記録CPU情報:" & Str_CPU)
        End If
    End If

 

名前:GetCRW_Encode

構文:Public Function GetCRW_Encode() As System.Text.Encoding

機能:Canon CRW情報を取り出す時のEncodingを取得します。

引数:なし

戻り値:System.Text.Encoding

戻り値の説明:

Canon CRW情報を取り出す時に使用するEncodingを戻します。

使用例:

Dim CRWEncode As System.Text.Encoding = Mdl_ExifEx.GetCRW_Encode()

 

名前:GetDispTypeGPSLatitudeAndLongitude
構文:Public Function GetDispTypeGPSLatitudeAndLongitude() As GPSDispKind

機能:GPSの緯度、経度の表示形式を取得します。

引数:なし

戻り値:GPSDispKind

戻り値の説明:

表示形式を戻します。

使用例:

Dim Str_Msg As String = Nothing
Select Case Mdl_ExifEx.GetDispTypeGPSLatitudeAndLongitude()
    Case Mdl_ExifEx.GPSDispKind.LatitudeAndLongitudeMark
        Str_Msg = "記号 xx°xx.xx’"
    Case Mdl_ExifEx.GPSDispKind.LatitudeAndLongitudeMarkDMS
        Str_Msg = "記号 xx°xx’xx”"
    Case Mdl_ExifEx.GPSDispKind.LatitudeAndLongitudeString
        Str_Msg = "文字 xx度xx.xx分"
    Case Mdl_ExifEx.GPSDispKind.LatitudeAndLongitudeStringDMS
        Str_Msg = "文字 xx度xx分xx秒"
    Case Mdl_ExifEx.GPSDispKind.LatitudeAndLongitudePercentage
        Str_Msg = "百分率"
End Select
MsgBox("GPS表示種類:" & Str_Msg)

 

名前:GetDNGInfo
構文:Public Function GetDNGInfo( DNGTag , Nothing , DNGInfo ) As Boolean

機能:指定したDNG情報を取得します。

GetExifFileInfoでExif情報を先に取得して下さい。

引数:

名前 引数渡しの方法 説明
DNGTag DNGTag 値渡し(ByVal) 取得するTAG値を渡します。
Nothing Boolean 参照渡し(ByRef) 取得情報の有無を戻します。
True :情報なし。
False:情報あり。
DNGInfo strcExifGPSInfo 参照渡し(ByRef) DNG情報を戻します。

戻り値:Boolean

戻り値の説明:

True:成功。
False:失敗、エラー発生。

使用例:

Dim Bln_Nothing    As Boolean                              ' 確認変数.
Dim Strc_DNGInfo   As Mdl_ExifEx.strcExifGPSInfo = Nothing ' Exif情報.

    If Mdl_ExifEx.GetExifFileInfo("C:\Exif情報.JPG") Then
        If Mdl_ExifEx.GetDNGInfo(DNGTag.DNGVersion, Bln_Nothing, Strc_DNGInfo) Then
            If Not Bln_Nothing Then
                MsgBox(Strc_DNGInfo.Str_Name & ":" & Strc_DNGInfo.Str_Value)
            Else
                MsgBox("情報がありません。")
            End If
        Else
            MsgBox("DNG情報が取得できませんでした。")
        End If
    End If

 

名前:GetExifFileInfo
構文:Public Function GetExifFileInfo( FileName , [ExifTagOffset] , [NotJpgTiff] , [SetEntryValueSize] ) As Boolean

機能:指定ファイルのExif、DNG、IPTC、Canon CRW、Tiff and Other情報を取得します。

引数:

名前 引数渡しの方法 説明
FileName String 値渡し(ByVal) ファイル名(フルパス名)を渡します。
[ExifTagOffset] Boolean 値渡し(ByVal) ExifTagのオフセット用タグを情報に追加する。
True :追加します。
False:追加しません(規定)。
[NotJpgTiff] Integer 値渡し(ByVal) JpegまたはTiffでもない場合にチェックするサイズを渡します。(規定値:0)
※-1はファイル全体で確認します。
[SetEntryValueSize] Integer 値渡し(ByVal) EntryValueに設定するサイズを渡します。(規定値:256)

戻り値:Boolean

戻り値の説明:

True:成功。
False:失敗、エラー発生。

使用例:

If Mdl_ExifEx.GetExifFileInfo("C:\Exif情報.JPG") Then
    MsgBox("Exif情報を取得しました。")
Else
    MsgBox("Exif情報の取得に失敗しました。")
End If

 

名前:GetExifInfo
構文:Public Function GetExifInfo( ExifTag , Nothing , ExifInfo ) As Boolean

機能:指定したExif情報を取得します。

GetExifFileInfoでExif情報を先に取得して下さい。

引数:

名前 引数渡しの方法 説明
ExifTag ExifTag 値渡し(ByVal) 取得するTAG値を渡します。
Nothing Boolean 参照渡し(ByRef) 取得情報の有無を戻します。
True :情報なし。
False:情報あり。
ExifInfo strcExifGPSInfo 参照渡し(ByRef) Exif情報を戻します。

戻り値:Boolean

戻り値の説明:

True:成功。
False:失敗、エラー発生。

使用例:

Dim Bln_Nothing    As Boolean                              ' 確認変数.
Dim Strc_ExifInfo  As Mdl_ExifEx.strcExifGPSInfo = Nothing ' Exif情報.

    If Mdl_ExifEx.GetExifFileInfo("C:\Exif情報.JPG") Then
        If Mdl_ExifEx.GetExifInfo(ExifTag.Make, Bln_Nothing, Strc_ExifInfo) Then
            If Not Bln_Nothing Then
                MsgBox(Strc_ExifInfo.Str_Name & ":" & Strc_ExifInfo.Str_Value)
            Else
                MsgBox("情報がありません。")
            End If
        Else
            MsgBox("Exif情報が取得できませんでした。")
        End If
    End If

 

名前:GetGPSFileInfo
構文:Public Function GetGPSFileInfo( FileName , [ExifTagOffset] , [NotJpgTiff] , [SetEntryValueSize] ) As Boolean

機能:指定ファイルのGPS情報を取得します。

引数:

名前 引数渡しの方法 説明
FileName String 値渡し(ByVal) ファイル名(フルパス名)を渡します。
[ExifTagOffset] Boolean 値渡し(ByVal) ExifTagのオフセット用タグを情報に追加する。
True :追加します。
False:追加しません(規定)。
[NotJpgTiff] Integer 値渡し(ByVal) JpegまたはTiffでもない場合にチェックするサイズを渡します。(規定値:0)
※-1はファイル全体で確認します。
[SetEntryValueSize] Integer 値渡し(ByVal) EntryValueに設定するサイズを渡します。(規定値:256)

戻り値:Boolean

戻り値の説明:

True:成功。
False:失敗、エラー発生。

使用例:

If Mdl_ExifEx.GetGPSFileInfo("C:\GPS情報.JPG") Then
    MsgBox("GPS情報を取得しました。")
Else
    MsgBox("GPS情報の取得に失敗しました。")
End If

 

名前:GetGPSInfo
構文:Public Function GetGPSInfo( GPSTag , Nothing , GPSInfo ) As Boolean

機能:指定したGPS情報を取得します。

GetGPSFileInfoでGPS情報を先に取得して下さい。

引数:

名前 引数渡しの方法 説明
GPSTag GPSTag 値渡し(ByVal) 取得するTAG値を渡します。
Nothing Boolean 参照渡し(ByRef) 取得情報の有無を戻します。
True :情報なし。
False:情報あり。
GPSInfo strcExifGPSInfo 参照渡し(ByRef) GPS情報を戻します。

戻り値:Boolean

戻り値の説明:

True:成功。
False:失敗、エラー発生。

使用例:

Dim Bln_Nothing  As Boolean                                ' 確認変数.
Dim Strc_GPSInfo As Mdl_ExifEx.strcExifGPSInfo = Nothing   ' GPS情報.

    If Mdl_ExifEx.GetGPSFileInfo("C:\Exif情報.JPG") Then
        If Mdl_ExifEx.GetGPSInfo(GPSTag.GPSLatitude, Bln_Nothing, Strc_GPSInfo) Then
            If Not Bln_Nothing Then
                MsgBox(Strc_GPSInfo.Str_Name & ":" & Strc_GPSInfo.Str_Value)
            Else
                MsgBox("情報がありません。")
            End If
        Else
            MsgBox("GPS情報が取得できませんでした。")
        End If
    End If

 

名前:GetIPTC_Encode
構文:Public Function GetIPTC_Encode() As System.Text.Encoding

機能:IPTC情報を取り出す時のEncodingを取得します。

引数:なし

戻り値:System.Text.Encoding

戻り値の説明:

IPTC情報を取り出す時に使用するEncodingを戻します。

使用例:

Dim DefEncode As System.Text.Encoding = Mdl_ExifEx.GetIPTC_Encode()

 

名前:GetTIFFAndOtherInfo
構文:Public Function GetTIFFAndOtherInfo( TIFFAndOtherTag , Nothing , TIFFAndOtherInfo ) As Boolean

機能:指定したTIFFAndOther情報を取得します。

GetExifFileInfoでExif情報を先に取得して下さい。

引数:

名前 引数渡しの方法 説明
TIFFAndOtherTag TIFFAndOtherTag 値渡し(ByVal) 取得するTAG値を渡します。
Nothing Boolean 参照渡し(ByRef) 取得情報の有無を戻します。
True :情報なし。
False:情報あり。
TIFFAndOtherInfo strcExifGPSInfo 参照渡し(ByRef) TIFFAndOther情報を戻します。

戻り値:Boolean

戻り値の説明:

True:成功。
False:失敗、エラー発生。

使用例:

Dim Bln_Noting         As Boolean                              ' 確認変数.
Dim Strc_TIFFAndOther  As Mdl_ExifEx.strcExifGPSInfo = Nothing ' TIFFAndOther情報.

    If Mdl_ExifEx.GetExifFileInfo(Me!Text1.Text) Then
        If Mdl_ExifEx.GetTIFFAndOtherInfo(TIFFAndOtherTag.NewSubfileType, _
                                         Bln_Noting, Strc_TIFFAndOther) Then
            If Not Bln_Noting Then
                MsgBox(Strc_TIFFAndOther.Str_Name & ":" & Strc_TIFFAndOther.Str_Value)
            Else
                MsgBox("情報がありません。")
            End If
        Else
            MsgBox("TIFFAndOther情報が取得できませんでした。")
        End If
    End If

 

名前:SetCRW_Encode
構文:Public Sub SetCRW_Encode( Encode )

機能:Canon CRW情報を取り出す時のEncodingを設定します。

引数:

名前 引数渡しの方法 説明
Encode System.Text.Encoding 値渡し(ByVal) Canon CRW情報を取り出す時のEncodingを渡します。

戻り値:なし

使用例:

Mdl_ExifEx.SetCRW_Encode(System.Text.Encoding.UTF8)

 

名前:SetDispTypeGPSLatitudeAndLongitude
構文:Public Function SetDispTypeGPSLatitudeAndLongitude( LatitudeAndLongitude ) As Boolean

機能:GPSの緯度、経度の表示形式を設定します。

引数:

名前 引数渡しの方法 説明
LatitudeAndLongitude GPSDispKind 値渡し(ByVal) 表示形式を渡します。

戻り値:Boolean

戻り値の説明:

True:成功。
False:失敗、エラー発生。

使用例:

Mdl_ExifEx.SetDispTypeGPSLatitudeAndLongitude(Mdl_ExifEx.GPSDispKind.LatitudeAndLongitudeMark)

 

名前:SetIPTC_Encode
構文:Public Sub SetIPTC_Encode( Encode )

機能:IPTC情報を取り出す時のEncodingを設定します。

引数:

名前 引数渡しの方法 説明
Encode System.Text.Encoding 値渡し(ByVal) IPTC情報を取り出す時のEncodingを渡します。

戻り値:なし

使用例:

Mdl_ExifEx.SetIPTC_Encode(System.Text.Encoding.UTF8)

 

名前:SetUserComment_Getdata
構文:Public Sub SetUserComment_Getdata( DataOrOffset )

機能:ユーザコメントの取得データ方式をセットします。

引数:

名前 引数渡しの方法 説明
DataOrOffset Boolean 値渡し(ByVal) 取得データ方式を渡します。
True :データで取得します。
False:オフセットで取得します。

戻り値:なし

使用例:

Mdl_ExifEx.SetUserComment_Getdata(True)
If Mdl_ExifEx.GetExifFileInfo("C:\Exif情報.JPG") Then
    MsgBox("Exif情報を取得しました。")
Else
    MsgBox("Exif情報の取得に失敗しました。")
End If

Copyright (C) 2010 Nihon System Developer Corp. All Rights Reserved.