02-22-2005, 09:09 AM
Code:
type BMPHeaderInfo
BIid as string*2
BIfilesize as long
BIreserved as integer
BIreserved2 as integer
BIoffset as long
BIheadersize as long
BIwidth as long
BIheight as long
BIplanes as integer
BIbpp as integer
BIcompressionfactor as long
BIimagesize as long
BIpelwidth as long
BIpelheight as long
BIcolorused as long
BIimportantcolors as long
end type
type RGBQuad
b as byte
g as byte
r as byte
pad as byte
end type
dim header as BMPHeaderInfo
dim colors(255) as RGBQuad
open "whatever.bmp" for binary as #1
get #1,, header
for grabcolors = 0 to 255
get #1,, colors(grabcolors)
next
close #1
while inkey$ = "":wend
can anyone tell me why this isnt working, i get strange output when i check the variables in the header after loading a bmp...