Получить имя файла изображения из управления PictureBox

Question

У меня есть изображение в папке, которую я в состоянии отобразить на PictureBox следующим образом:

PictureBox1.Image = Nothing 'Clearing PictureBox1 
Dim bmPhotos as new Bitmap("C:\Photos\ImageName.gif") 
PictureBox1.Image = bmPhotos 

Я хотел бы получить дополнительную информацию об изображении. В частности, заголовок изображения. Это можно сделать в .Net?

спасибо.

Answer 1

Если вы хотите прочитать метаданные изображения, такие как название, автор, камера Марка, модель и т.д., они сохраняются в заголовке изображения в EXIF.

Их можно найти с помощью PropertyItems. Каждый тег свойства идентифицируется шестнадцатеричным значением, и вы можете найти их here и here.

'Create an Image object. 
Dim img As Image = Image.FromFile("C:\Ashish\apple.jpg") 

'Get the PropertyItems property from image. 
Dim propItems As PropertyItem() = img.PropertyItems 

Dim encoding As New System.Text.ASCIIEncoding() 

Dim title As String = encoding.GetString(propItems(0).Value) 
Dim manufacturer As String = encoding.GetString(propItems(1).Value) 

Очень простая реализация читать EXIF ​​метаданных является available here.

Answer 2

Вы можете получить дополнительную информацию с помощью System.IO.Path и System.IO.File, подобные этим:

System.IO.Path.GetFileName("ImagePathHere") 
System.IO.Path.GetExtension("ImagePathHere") 
System.IO.File.GetCreationTime("ImagePathHere") 
System.IO.File.GetLastAccessTime("ImagePathHere") 

Просто изучить его, и вы можете получить более подробную информацию о файле.

Answer 3

Path.GetFileName Method (String): Возвращает имя файла и расширение указанной строки пути.

Path.GetFileNameWithoutExtension Method (String): Возвращает имя файла указанной строки пути без расширения.

If PictureBox1.Location.ToString <> String.Empty Then 
    Dim image_title, image_title1 As String 
    'To get file name with extension : output=ImageName.gif 
    image_title = Path.GetFileName(picImage.ImageLocation) 

    'To get file name without extension : output=ImageName 
    image_title1 = Path.GetFileNameWithoutExtension(picImage.ImageLocation) 
End If