In questi giorni sto dando uno sguardo allo standard exif per i tag nelle
immagini jpeg.
Devo dire che e' una giungla.. ci si deve barcamenare tra un formato e
l'altro... tra una marca di fotocamera e l'altra.. comunque gli standard si sono
evoluti da exif 2.1 a exif 2.2 (dove sono stati inclusi i geotag - gps).
Di seguito qualche esempio di codice Visual Basic / VbScript:
' -- where param sMime is "image/jpeg"
Private Function GetEncoderInfo(ByVal sMime As String) As
System.Drawing.Imaging.ImageCodecInfo
Dim objEncoders As System.Drawing.Imaging.ImageCodecInfo()
Dim objReturn
Dim iLoop As Integer
' This function finds and returns an Image Encoder
' according to the wanted MIME type...
objEncoders = System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders()
For iLoop = 0 To (objEncoders.Length - 1)
If objEncoders(iLoop).MimeType = sMime Then
Return objEncoders(iLoop)
End If
Next iLoop
End Function
Esempio numero 2:
public DateTime GetDateTaken(Image targetImg)
{
//Property Item 306 corresponds to the Date Taken
PropertyItem propItem = targetImg.GetPropertyItem(306);
DateTime dtaken;
Dim MyInfo as Image = New Bitmap(OpenFileDialog1.FileName) Dim AProp as PropertyItem
For Each AProp In MyInfo.PropertyItems
Try
Select Case AProp.Id.ToString("x")
Case "10e" 'Image name
ts = Trim(Replace(encoding.GetString(AProp.Value), Chr(0), ""))
Case "a002" ' Width
W = BitConverter.ToInt32(AProp.Value, 0)
Case "a003" ' Height
H = BitConverter.ToInt32(AProp.Value, 0)
End Select
Catch ex as Exception
End Try
Next