将元数据写入 .NET 中的 PNG 图像

Question

我看到很多问题询问如何从图像中读取元数据，但我还没有看到那么多问题询问如何编写元数据。基本上，我需要将一项元数据（“ImageDescription”）添加到我动态生成的 PNG 图像中（创建一个 Bitmap 对象并按程序生成其中的所有内容）。

在将文件写入磁盘之前或之后，使用 .NET 将元数据添加到图像的最佳方法是什么？

Answer 1

您可以使用 FreeImage.NET 库，我相信它可以读取和写入 PNG 文件，以及他们的元数据。

Answer 2

您可以使用 System.Windows.Media.Imaging 中的 BitmapMetadata 写入 iTXt 值。
VB 示例：

' Imports System.Windows.Media.Imaging
' Imports System.Windows.Media

Dim width = 256
Dim height = 256
Dim pngMetadata = New BitmapMetadata("png")

' PNG spec: http://www.libpng.org/pub/png/book/chapter11.html - Info on the iTXt chunk (and other custom metadata tags). 

pngMetadata.SetQuery("/iTXt/Keyword", "SomeKeyword".ToCharArray())
pngMetadata.SetQuery("/iTXt/TextEntry", "SomeValue")

Dim bitmap = New WriteableBitmap(width, height, 96, 96, PixelFormats.Gray8, Nothing)
Dim pixels = New Byte(width * height - 1) {}
For y = 0 To height - 1
    For x = 0 To width - 1
        pixels(y * width + x) = CByte(x)
    Next
Next

bitmap.WritePixels(New Int32Rect(0, 0, width, height), pixels, width, 0)
Dim encoder = New PngBitmapEncoder()
encoder.Frames.Add(BitmapFrame.Create(bitmap, Nothing, pngMetadata, Nothing))

Using stream = File.Create("c:\pngWithMetaData.png")
    encoder.Save(stream)
End Using

Answer 3

需要将一些简单的元数据至少写入 .png 和 .jpg 中，而不必将另一个第 3 方库拖到我的程序中。几个小时后似乎没有任何效果，即使所有文件类型都不同等等。

考虑只是存储在图像旁边的文件中或保留一个小型文件“数据库”和我需要的数据。

对我来说，我只是在重新加载图像时再次需要数据。数据包含一个转换系数，告诉我有多少像素 = 1 毫米。

剧透...如果您不喜欢黑客行为，请立即离开。

基本上在文件的末尾，我用二进制“@Conv=”编写，后跟该值的 8 字节双精度值。

我的程序以二进制读取方式打开图像...查找末尾减去我的“hack”中的总字节数，并查找“@Conv=”。如果找到，则读取该值。然后，程序可以选择在确定比例因子后进行保存，而不必每次打开时都进行测量和输入值。

我有代码来读取/查询、更新和添加数据。

适用于 .png、.jpg 以及可能的其他类型。

我执行此操作的文件是复制的并且是本地的。显然，如果从其他应用程序重写文件，数据就会丢失，但对于许多应用程序的任何元数据来说可能都是如此。

我最终存储了一些数据项，包括图像的“原点”位置（以像素为单位）和首选旋转（0,90,180,270）。

一些vbcode只是为了好玩。

Shared arr_magic As Byte() = {CByte(AscW("@"c)), CByte(AscW("C"c)), CByte(AscW("o"c)), CByte(AscW("n"c)), CByte(AscW("v"c)), CByte(AscW("2"c)), CByte(AscW("="c))}

Const metaSize As Integer = 8 + 4 + 4 + 4
Function FileCheckScale(fn As String, ByRef origin As Point, ByRef angle As Integer, update As Boolean) As Double
    Dim fr = New IO.StreamReader(fn)

    Dim br As New IO.BinaryReader(fr.BaseStream)

    fr.BaseStream.Seek(-(metaSize + arr_magic.Length), IO.SeekOrigin.End)

    For i = 0 To arr_magic.Length - 1
        If br.ReadByte() <> arr_magic(i) Then
            fr.Close()
            Return 0.0 ' <= 0 means not found
        End If
    Next

    Dim v As Double = br.ReadDouble

    If update Then
        origin.X = br.ReadInt32
        origin.Y = br.ReadInt32
        angle = br.ReadInt32
    End If

    fr.Close()

    Return v
End Function


Sub FileUpdateScale(fn As String, v As Double, origin As Point, angle As Integer)
    Dim fr = New IO.FileStream(fn, IO.FileMode.Open, IO.FileAccess.Write)

    Dim br As New IO.BinaryWriter(fr)

    fr.Seek(-(metaSize + arr_magic.Length), IO.SeekOrigin.End)

    br.Write(arr_magic)
    br.Write(v)
    br.Write(origin.X)
    br.Write(origin.Y)
    br.Write(angle)

    fr.Close()
End Sub

Sub FileAddScale(fn As String, v As Double, origin As Point, angle As Integer)
    Dim fr = New IO.StreamWriter(fn, True)
    Dim br As New IO.BinaryWriter(fr.BaseStream)

    fr.BaseStream.Seek(0, IO.SeekOrigin.End)

    br.Write(arr_magic)
    br.Write(v)
    br.Write(origin.X)
    br.Write(origin.Y)
    br.Write(angle)

    fr.Close()
End Sub