此代码
svc 1
在某些页面上运行正常但在
处与其他页面冲突Dim vImageFlag As Integer = 0
If System.IO.File.Exists(Row("Image")) Then
vImageFlag = 1
Dim vDirectories = MetadataExtractor.ImageMetadataReader.ReadMetadata(Row("Image"))
Dim vSub = vDirectories.OfType(Of MetadataExtractor.Formats.Exif.ExifIfd0Directory)().FirstOrDefault
If Not vSub Is Nothing Then
Dim vOrientationObj = vSub.GetObject(MetadataExtractor.Formats.Exif.ExifDirectoryBase.TagOrientation)
If Not vOrientationObj Is Nothing Then
If Not vOrientationObj.Equals(DBNull.Value) Then
vOrientationNumber = Convert.ToInt16(vOrientationObj)
vOrientationFlag = 1
End If
End If
End If
For Each vDirectory In vDirectories
vEXIF += vDirectory.Name & vbCr
For Each vTag In vDirectory.Tags
vEXIF += vbTab & " " & vTag.Name & " " & vTag.Description & vbCr
IsEXIF = 1
Next
Next
End If
真的难倒这个 - 但它可能正盯着我的脸: - )
谢谢
堆栈跟踪
Dim vSub = vDirectories.OfType(Of MetadataExtractor.Formats.Exif.ExifIfd0Directory)().FirstOrDefault