Сводка

[kirill_fox]

Можно как-нибудь вытащить информацию из сводки изображения, снятого камерой (например выдержку, дату снимка, наличие вспышки)

[VVitafresh]

Это называется -- метаданные. Или еще Exchangeable Image File Format (EXIF).
Как извлекать программно не знаю но, возможно, поиск по ключевым словам даст результат. Если у кого-то есть готовый пример кода -- выкладывайте думаю многим может пригодиться.

[VVitafresh]

Вот нашел: Reading EXIF и под дот НЕТ: The ExifWorks class. У кого есть еще свои испытанные варианты, выкладывайте.

[tyomitch]

Моя обёртка умеет.

[VVitafresh]

tyomitch, а пример использования? Дока по обертке есть (кроме F2)?

[tyomitch]

Дока прикреплена в этом же форуме, на три темы ниже

Вот, откопал пример использования:

Код: Выделить всё

Option Explicit

Private Sub Form_DblClick()
Dim JPEGImage As prjGDIplus.Image
Dim PropertyItem As PropertyItem
Dim StringFormat As StringFormat, Output As String
    Set JPEGImage = CreateImageFromUrl("http://www.exif.org/samples/fujifilm-mx1700.jpg")
With CreateGraphics(hDC)
    .DrawImage JPEGImage, 0, 0, ScaleWidth, ScaleHeight
    .TextContrast = 10 'valid range is 0..12
    Set StringFormat = DefaultStringFormat
    StringFormat.FormatFlags = StringFormat.FormatFlags Or StringFormatFlagsNoWrap
    StringFormat.SetTabStops 0, 70, 70, 70, 70, 70, 70, 70, 70
    For Each PropertyItem In JPEGImage.Properties
        Output = Output & Hex(PropertyItem.ID) & vbTab & PropertyItem.LookupID & vbTab & PropertyItem.StringValue & vbCrLf
    Next
    .DrawString _
      CreateFont("Microsoft Sans Serif", FontStyleBold, 12, UnitPoint), _
      CreateBrush(ARGB(vbCyan, 92)), _
      Output, _
      0, 0, ScaleWidth, ScaleHeight, _
      StringFormat
End With
End Sub

Private Sub Form_Load()
    ScaleMode = vbPixels
End Sub


[VVitafresh]

tyomitch, спасибо.
Боюсь дока "на три темы ниже" со временем может затеряться, на всякий случай сделаю ссылку: http://bbs.vbstreets.ru/viewtopic.php?t=11588#76589

P.S. Альфа-версия предполагает бета- и релиз?
P.P.S. Неплохо бы окончательную версию разместить на сайте (в "Статьи", например).