by Justin Coleman (6 Submissions)
Category: Graphics
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 10th August 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Convert an 8-bit BMP (Windows Bitmap) to an 8-bit RAW (raw pixel data)
Function BMPtoRAW(fullbmptxt As String, outfilename As String) As Boolean
'This function shaves off the first 1078 characters of the
'bitmap file, then saves the resulting data into a raw file
'off the specified name
On Error Goto err_BMPtoRAW
Dim wrkstr As String
wrkstr = Mid$(fullbmptxt,1079)
Open outfilename For Output As #1
Print #1, wrkstr
Close #1
BMPtoRAW=True
end_BMPtoRAW:
Exit Function
err_BMPtoRAW:
BMPtoRAW=False
End Function
No comments have been posted about Convert an 8-bit BMP (Windows Bitmap) to an 8-bit RAW (raw pixel data). Why not be the first to post a comment about Convert an 8-bit BMP (Windows Bitmap) to an 8-bit RAW (raw pixel data).