VintaSoft Imaging .NET SDK and Plug-ins Discussions

Hello,

Here is a snippet of code which shows how to get information about EXIF tags of JPEG file:

Imports System.IO
Imports Vintasoft.Imaging
Imports Vintasoft.Imaging.Codecs.Jpeg
Imports Vintasoft.Imaging.Codecs.Tiff

Module Module1

    Sub Main()
        Using jpegStream As FileStream = New FileStream("..\..\Exif.jpg", FileMode.Open, FileAccess.Read)
            Using jpeg As JpegFile = New JpegFile(jpegStream)

                Dim exif As ExifData = jpeg.Page.Exif
                If exif Is Nothing Then
                    Console.WriteLine("JPEG file does not have EXIF data.")
                Else
                    WriteTagsData("EXIF", exif.ExifTags)
                    WriteTagsData("GPS", exif.GpsTags)
                End If

            End Using
        End Using

        Console.WriteLine("Press any key to continue...")
        Console.ReadKey()
    End Sub

    Sub WriteTagsData(ByRef tagsName As String, ByRef tags As TiffTagCollection)
        If tags.Count = 0 Then
            Console.WriteLine(String.Format("No {0} data.", tagsName))
        Else
            Console.WriteLine(String.Format("{0} data [{1}]:", tagsName, tags.Count))
            For i = 0 To tags.Count - 1
                Console.WriteLine(String.Format("- {0}", tags(i)))
            Next
        End If
        Console.WriteLine()
    End Sub

End Module

Best regards, Alexander

You need to use this code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using jpegStream As FileStream = New FileStream("..\..\geotag005.jpg", FileMode.Open, FileAccess.Read)
        Using jpeg As JpegFile = New JpegFile(jpegStream)

            Dim exif As ExifData = jpeg.Page.Exif
            If exif Is Nothing Then
                TextBox1.Text = "JPEG file does not have EXIF data."
            Else
                WriteTagsData("EXIF", exif.ExifTags)
                WriteTagsData("GPS", exif.GpsTags)
            End If

        End Using
    End Using
End Sub

Private Sub WriteTagsData(ByRef tagsName As String, ByRef tags As TiffTagCollection)
    If tags.Count = 0 Then
        TextBox1.Text = TextBox1.Text + String.Format("No {0} data.", tagsName) & vbCrLf
    Else
        TextBox1.Text = TextBox1.Text + String.Format("{0} data [{1}]:", tagsName, tags.Count) & vbCrLf
        Dim tag As TiffTag
        For i = 0 To tags.Count - 1
            tag = tags(i)
            TextBox1.Text = TextBox1.Text + String.Format("- Name={0}, Id={1}, Type={2}, Data={3}", tag.Name, tag.Id, tag.Type, tag.Data) & vbCrLf
        Next
    End If
    TextBox1.Text = TextBox1.Text + vbCrLf
End Sub

Best regards, Alexander

Hello,

You need to convert arrays to string.

Here is a snippet of code:

Private Sub WriteTagsData(ByRef tagsName As String, ByRef tags As TiffTagCollection)
    If tags.Count = 0 Then
        TextBox1.Text = TextBox1.Text + String.Format("No {0} data.", tagsName) & vbCrLf
    Else
        TextBox1.Text = TextBox1.Text + String.Format("{0} data [{1}]:", tagsName, tags.Count) & vbCrLf
        Dim tag As TiffTag
        Dim tagData As Object
        Dim tagDataAsArray As Array
        Dim tagDataAsString As String
        ' for each tag in tag collection
        For i = 0 To tags.Count - 1
            ' get tag
            tag = tags(i)

            ' get tag data
            tagData = tag.Data
            ' if tag data is array
            If IsArray(tagData) Then
                tagDataAsString = "[ "
                tagDataAsArray = CType(tagData, Array)
                For j = 0 To tagDataAsArray.Length - 1
                    tagDataAsString = tagDataAsString + tagDataAsArray(j).ToString + "; "
                Next
                tagDataAsString = tagDataAsString + "]"

            ' if tag data is NOT array
            Else
                tagDataAsString = tagData.ToString()
            End If

            ' add information about tag to textbox
            TextBox1.Text = TextBox1.Text + String.Format("- Name={0}, Id={1}, Type={2}, Data={3}", tag.Name, tag.Id, tag.Type, tagDataAsString) & vbCrLf
        Next
    End If
    TextBox1.Text = TextBox1.Text + vbCrLf
End Sub

Best regards, Alexander

We have fixed bug in version 4.3.35.5 of SDK and now your code will work correctly.

But the following code is better:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using jpegStream As FileStream = New FileStream("..\..\geotag005.jpg", FileMode.Open, FileAccess.Read)
        Using jpeg As JpegFile = New JpegFile(jpegStream)

            Dim exif As ExifData = jpeg.Page.Exif
            If exif Is Nothing Then
                TextBox1.Text = "JPEG file does not have EXIF data."
            Else
                WriteTagsData("EXIF", exif.ExifTags, GetType(ExifTagId))
                WriteTagsData("GPS", exif.GpsTags, GetType(GpsTagId))
            End If

        End Using
    End Using
End Sub

Private Sub WriteTagsData(ByRef tagsName As String, ByRef tags As TiffTagCollection, ByRef tagIdEnumType As Type)
    If tags.Count = 0 Then
        TextBox1.Text = TextBox1.Text + String.Format("No {0} data.", tagsName) & vbCrLf
    Else
        TextBox1.Text = TextBox1.Text + String.Format("{0} data [{1}]:", tagsName, tags.Count) & vbCrLf
        Dim tag As TiffTag
        Dim tagData As Object
        Dim tagDataAsArray As Array
        Dim tagDataAsString As String
        ' for each tag in tag collection
        For i = 0 To tags.Count - 1
            ' get tag
            tag = tags(i)

            ' get tag data
            tagData = tag.Data
            ' if tag data is array
            If IsArray(tagData) Then

                tagDataAsString = "[ "
                tagDataAsArray = CType(tagData, Array)
                For j = 0 To tagDataAsArray.Length - 1
                    tagDataAsString = tagDataAsString + tagDataAsArray(j).ToString + "; "
                Next
                tagDataAsString = tagDataAsString + "]"

                ' if tag data is NOT array
            Else
                tagDataAsString = tagData.ToString()
            End If

            ' add information about tag to textbox
            TextBox1.Text = TextBox1.Text + String.Format("- Name={0}, Id={1}, Type={2}, Data={3}", tag.GetName(tagIdEnumType), tag.Id, tag.Type, tagDataAsString) & vbCrLf
        Next
    End If
    TextBox1.Text = TextBox1.Text + vbCrLf
End Sub

Best regards, Alexander

Hey guys don't know if this post is still active, but still worth a shot
I have tried to use the latest code Alex gave, but ended up with three errors.
These probably where trivial errors on my part (I'm something of a novice ;) ) but I haven't been able to solve it, so here goes:

Using jpeg As JpegFile = New JpegFile(jpegStream) --- "jpeg is not defined"
Private Sub WriteTagsData(ByRef tagsName As String, ByRef tags As TiffTagCollection, ByRef tagIdEnumType As Type) --- "TiffTagCollection is not defined"
Dim tag As TiffTag --- "TiffTag is not defined"

Hope you can shed some light, I have spent the last three days endlessly searching for how to extract GPS info from an image in Visual Basic
Thanks for any help you can give, it will be greatly appreciated