I got a hard question... I think

Hello everyone.. I got a question..

well say that if i open a picture file (bmp or Jpeg or whatever) as binary.

for example open blah.jpg for binary as 1
then get ALL the content of the binary file (using the LOF stuff)...

Now I got the whole picture loaded in a variable, as Binary. HOW THE HECK DO I Make the picture or image control to recognize the picture and show it.. do u guys get what I'm sayin? I hope u do if not then reply and I reply back

[AndrewPrescott]

Why don't you use the LoadPicture function, if you need to put into a variable why not put it into IPictureDisp. If you need to open a image file like you send you have to take into considerations like bitmap headers, Palettes and the pixel data which are all saved as in the file.

If you look about you might find some one has posted the source for an image application. :)

Final note:
Opening Jpegs thru Open is much longer proccess than doing the bitmaps, My advice just use the LoadPicture function ;) Unless you want to save the images, cos SavePicture function only will save bitmap format, where the load handles a few formats. :cool:

[/\/\isanThr0p]

Is there a special reason why you want to load the picture by getting the binay data? Do you want to save memory by loading a jpg like this?

I think you'll have to load the picture with the LoadPicture Func. Of course in Memory it is stored as bitmap after this.

So please post the reason why you want to load it in your way!

Well, i really don't want to explain why i want to do this. All i wanted to know if I could use it.. and yes I know about the load picture and all that other crap.. I needed to know if I could get the picture box to accept binary data on the fly. for the REAL thing we wont be using Picture box but instead DirectX.. it's stuff I'm working on.. I can't say what I'm working on yet.. but all I can say is that it loads a picture as binary, reads the whole thing, and whether or not I can use the binary data to display a picture..??

[/\/\isanThr0p]

Yes you can use the binary data if you uses a bmp but not the JPG

you can get the handle (hdc) to the image and then use createSurfacefromDC or similar

That's all

[AndrewPrescott]

If you are going to use DirectX why arn't you wanting to use the DDraw.CreateSurfaceFromFile() ??

Now, I asked the question, there's probably a reason that I'm not using the createsurfacefromfile function.. Ok? so stop asking me why the hell I don't do this and that.. cause May be because, I'm doing something else... Cool? if u can't help me.. then don't ask me those questions. I know how to use DirectDraw and Direct3D and Direct Play.. I'm not freaking dumb..

[AndrewPrescott]

Seeing I don't know you or your current level DX7, It would be fair to say, I asked a reasonable question. I'm sorry if upset you :D. If you still insist on loading bitmaps in through binary then try this function.:cool:
Picture1 is a Picturebox.

Declare Function StretchDIBits Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal DX As Long, ByVal DY As Long, ByVal SrcX As Long,_
ByVal SrcY As Long, ByVal wSrcWidth As Long, ByVal wSrcHeight As Long, lpBits As Any, lpBitsInfo As BITMAPINFO, ByVal wUsage As Long, ByVal dwRop As Long) As Long
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Type RGBQUAD
rgbBlue As Byte
rgbGreen As Byte
rgbRed As Byte
rgbReserved As Byte
End Type

Type ImageFile
ImageWidth As Long
ImageHeight As Long
ImageBPP As Byte
ImagePalette() As RGBQUAD
ImageData() As Byte
End Type

Type BITMAPINFOHEADER '40 bytes
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

Type BITMAPINFO
bmiHeader As BITMAPINFOHEADER
bmiColors(0 To 255) As RGBQUAD
End Type

Type BITMAPFILEHEADER
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type

Sub cmdLoad_Click()
Dim Img as ImageFile
Dim Filename as String
Filename = "Any Valid Bitmap path"
LoadBMP Filename, Img
Picture1.Width = Img.ImageWidth + (Picture1.Width - Picture1.ScaleWidth)
Picture1.Height = Img.ImageHeight + (Picture1.Height - Picture1.ScaleHeight)
DrawImage Picture1.hdc, Img
Picture1.Refresh
End Sub
Sub DrawImage(DC As Long, ByRef pImage As ImageFile)
bmi.bmiHeader.biSize = 40 'Simply the size of the header type
bmi.bmiHeader.biWidth = pImage.ImageWidth 'Width of Image
bmi.bmiHeader.biHeight = -pImage.ImageHeight 'Height of image (reversed)
bmi.bmiHeader.biPlanes = 1 'The image has 1 plane
bmi.bmiHeader.biBitCount = pImage.ImageBPP 'How many Bits Per Pixel.
bmi.bmiHeader.biCompression = 0 'No Compression used.
If pImage.ImageBPP = 8 Then CopyMemory bmi.bmiColors(0), pImage.ImagePalette(0), 256 * 4
'Now take this information and copy the data onto the main pictures HDC.
'Remember that StretchDIBits also draws from the bottom left corner upwards, so if our
'data is stored from top to bottom, then we must negate the height value which will
'flip the image.
StretchDIBits DC, 0, 0, pImage.ImageWidth, pImage.ImageHeight, 0, 0, pImage.ImageWidth, pImage.ImageHeight, pImage.ImageData(1), bmi, DIB_RGB_COLORS, vbSrcCopy
End Sub
Sub LoadBMP(Filename As String, ByRef pImage As ImageFile)

Dim bmfh As BITMAPFILEHEADER 'Stores file header
Dim bmih As BITMAPINFOHEADER 'Stores info header
Dim bmRGBQuad(0 To 255) As RGBQUAD 'Stores colour palette
Dim bmData() As Byte 'Stores pixel data
Dim offset1 As Long, Offset2 As Long

Open Filename For Binary Access Read As #1
'Get the file header
Get #1, , bmfh
'Get the Bitmap Info (i.e size/colour depth etc)
Get #1, , bmih
'Depending on the colour depth, we will need
'to resize our palette array to hold the
'required amount of colours.
Select Case bmih.biBitCount
Case 8
'If the bitmap is 8bpp then it uses a palette
'so read it in, otherwise skip it.
Get #1, , bmRGBQuad
Case 24
'Our favourite format =)
Case Else
Erase bmData
MsgBox "Image format unsupported", vbCritical, "Error"
Close #1
Exit Sub
End Select
'Dimension the data array to store our image.
ReDim bmData(1 To bmih.biSizeImage)
'Get the image data
Get #1, , bmData
Close #1

'Copy this data into our custom image object (which was passed).
'Remember that Bitmaps are stored from bottom to top, so we need
'to switch the order as we load (hence starting from the bottom line)
pImage.ImageBPP = bmih.biBitCount
pImage.ImageWidth = bmih.biWidth
pImage.ImageHeight = bmih.biHeight
If pImage.ImageBPP = 8 Then
ReDim pImage.ImagePalette(0 To 255)
CopyMemory pImage.ImagePalette(0), bmRGBQuad(0), 256 * 4
ReDim pImage.ImageData(1 To (pImage.ImageWidth * pImage.ImageHeight))
offset1 = UBound(pImage.ImageData): offset1 = offset1 - (pImage.ImageWidth - 1)
Offset2 = 1
For i = pImage.ImageHeight - 1 To 0 Step -1
CopyMemory pImage.ImageData(offset1), bmData(Offset2), pImage.ImageWidth
offset1 = offset1 - (pImage.ImageWidth)
Offset2 = Offset2 + (pImage.ImageWidth)
Next i
Else
ReDim pImage.ImageData(1 To ((pImage.ImageWidth * pImage.ImageHeight) * 3))
Erase pImage.ImagePalette
offset1 = UBound(pImage.ImageData): offset1 = offset1 - ((pImage.ImageWidth * 3) - 1)
Offset2 = 1
For i = pImage.ImageHeight - 1 To 0 Step -1
CopyMemory pImage.ImageData(offset1), bmData(Offset2), (pImage.ImageWidth * 3)
offset1 = offset1 - (pImage.ImageWidth * 3)
Offset2 = Offset2 + (pImage.ImageWidth * 3)
Next i
End If
Erase bmData

Sub DrawImage(DC As Long, ByRef pImage As ImageFile)
bmi.bmiHeader.biSize = 40 'Simply the size of the header type
bmi.bmiHeader.biWidth = pImage.ImageWidth 'Width of Image
bmi.bmiHeader.biHeight = -pImage.ImageHeight 'Height of image (reversed)
bmi.bmiHeader.biPlanes = 1 'The image has 1 plane
bmi.bmiHeader.biBitCount = pImage.ImageBPP 'How many Bits Per Pixel.
bmi.bmiHeader.biCompression = 0 'No Compression used.
If pImage.ImageBPP = 8 Then CopyMemory bmi.bmiColors(0), pImage.ImagePalette(0), 256 * 4
'Now take this information and copy the data onto the main pictures HDC.
'Remember that StretchDIBits also draws from the bottom left corner upwards, so if our
'data is stored from top to bottom, then we must negate the height value which will
'flip the image.
StretchDIBits DC, 0, 0, pImage.ImageWidth, pImage.ImageHeight, 0, 0, pImage.ImageWidth, pImage.ImageHeight, pImage.ImageData(1), bmi, DIB_RGB_COLORS, vbSrcCopy
End Sub

This only handles bitmap, Jpegs is completly different.

[Edited by AndrewPrescott on 07-20-2000 at 04:03 AM]

alright, thanks a lot for helping.. I'll look at this function to read the bitmaps.. :) sorry I was kinda pissed off at something..