Как получить размеры битмапа в пикселях?

[Leon_]

Как получить размеры битмапа (пусть это файл C:\picture.bmp) в пикселях. Те самые значения, которые показывает Проводник в "Свойствах файла" -- высота= 123 точек, ширина= 45 точек.

[Konst_One]

загрузи его в Image со свойством Stretch=True и посмотри потом его размеры

[Leon_]

Ну да, загрузил в Image (только Stretch=False). Как получить размеры в пикселях? Свойства Image.Width=9345, Height=7995. Это же не пиксели?

[Konst_One]

это твипы, а если подумать:

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

xPx=Image1.Width/ screen.TwipsPerPixelX
yPx=Image1.Height/ screen.TwipsPerPixelY

[Leon_]

Спасибо

PS: но если еще есть варианты без использования BITMAPINFOHEADER, прошу высказываться.

[ALX_2002]

Ну можно ещё и так... без объектов на форме и без API.

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

Dim PIC As IPictureDisp
Dim PictureWidth As Long
Dim PictureHeight As Long
Private Sub Form_Load()
Set PIC = LoadPicture("C:\WINDOWS\SYSTEM32\setup.bmp")

PictureWidth = ScaleX(PIC.Width, vbHimetric, vbPixels)
PictureHeight = ScaleY(PIC.Height, vbHimetric, vbPixels)

MsgBox PictureWidth & " x " & PictureHeight

Set PIC = Nothing
End Sub

[Odrick]

Тю, зачем же его еще грузить? Достаточно посмотреть спецификацию bmp-формата. В определенных байтиках лежай высота и ширина битмапа. Далее читаем их, делаем несложные арифметические операции и готово. Домой прийду - закину