Определение размера *.jpg

[n_o]

Привет! Подскажите, пожалуйста:
Нужно узнать размер *.jpg картинки (высота, ширина) в пикселах или твипах,...Но не загружая ее в контрол, иначе перебор 1200 картинок занимает секунд 10.
Как вариант считать метаданные, но как это сделать я не знаю.
Желательно на VB или чем-нить совместимом.
Спасибо.

[GSerg]

Идёшь на http://www.wotsit.org
Вводишь jpeg.
Узнаёшь, где размеры.

[dizzi]

А как через загрузку в контрол? Как бы я тоже интересуюсь этим же вопросом, только для формата *.tif. 1200 - за 10 секунд, для меня бы оччень даже ничего было бы. Пока ничего лучше чем через импорт в корел я не придумал (при этом все гораздо медленнее проходит)...

[tyomitch]

dizzi, моя обёртка умеет загружать TIFF-ы, и умеет показывать их размеры.

[Gotha]

n_o
не пойдет такой вариант для жпега?

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

Option Explicit
Private Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type

Private Sub Form_Load()
Dim bmp As BITMAP, pic As IPictureDisp

   Set pic = LoadPicture("c:\6.jpg")
   GetObjectAPI pic, Len(bmp), bmp
   Debug.Print bmp.bmWidth & "  " & bmp.bmHeight
   
   Unload Me
End Sub