How to read Dimension of .bmp file ??

[Abhilash007]

Hey guys...
I have got a project which involves reading the dimensions (in pixels) of bitmap files.. i need to find the dim and then copy it to a template excel file..

I am not able to find a way to get the dimensions.. please advice


i am using Visual Studio 2005..


cheers
Abhilash

[Xium]

set picture box autosize = true and scalemode = 3 means pixels

then simply after loading image in picture box u can use scale width and scale heghit for dim

[Abhilash007]

hey..

thx for your reply..

actually i donot need to view the picture... because i will be accepting a folder full of images and hav to read each of their dimensions and write onto excel. is there a way to just read the dimension in pixels off the .bmp file without opening it.


thx
Abhilash

[Xium]

just set visible = false and progamically load each image in picture and calculate its dimension and then load 2nd iimage and so on

[Abhilash007]

hey...
thx for the info.. i understand wad u mean...

but i am new to vb programming... can u please gimme the code for this function... i will be extremely grateful if u can help me out..

i know how to accept the folder from the user and get the filenames (imagenames)... could you gimme the rest of the code.. ie. loading the image and calculating the dimensions and storing them in a variable...



thx a lot
abhilash

[Frans C]

If you don't want to load the picture into a picturebox, you can use the following code:

Option Explicit
Private Type BITMAPFILEHEADER
        bfType(1) As Byte
        bfSize As Long
        bfReserved1 As Integer
        bfReserved2 As Integer
        bfOffBits As Long
End Type
Private Type BITMAPINFOHEADER
        biSize As Long
        biWidth As Long
        biHeight As Long
        biPlanes As Integer
        biBitCount As Integer
        biCompression As Long
        biSizeImage As Long
        biXPelsPerMeter As Long
        biYPelsPerMeter As Long
        biClrUsed As Long
        biClrImportant As Long
End Type
Private Sub GetBitmapSize(ByVal Bitmap As String, ByRef lWidth As Long, ByRef lHeight As Long)
Dim hFile As Integer
Dim bfh As BITMAPFILEHEADER
Dim bih As BITMAPINFOHEADER
    hFile = FreeFile
    Open Bitmap For Binary Access Read Shared As #hFile
    Get #hFile, , bfh
    Get #hFile, , bih
    Close #hFile
    lWidth = bih.biWidth
    lHeight = bih.biHeight
End Sub
Private Sub Command1_Click()
Dim lngWidth As Long
Dim lngHeight As Long
    Call GetBitmapSize("c:\windows\zapotec.bmp", lngWidth, lngHeight)
    MsgBox "Width: " & lngWidth & vbCrLf & "Height: " & lngHeight
End Sub

[RobDog888]

Please do not make duplicate threads.

Original thread in VB.NET forum:
http://vbforums.com/showthread.php?t=460571

[Abhilash007]

Hey Frans

thx a lot for your help


cheers
Abhilash

[Abhilash007]

Hey Frans!!

looks like you gave me a code for VB 6.. i am using VB 2005.. sori to bother you but this code doesnt seem to work on vb 2005... please help..


thx
abhilash

[RobDog888]

This is exactly why you should not make multiple threads in different forums.

For the rest of the replies on the topic please see the vb.net thread of his I linked to in post #7.