| Вопрос: Структура BMP | Добавлено: 23.11.07 19:05 |
Автор вопроса:  Docal | ICQ: 408802757 |
|
помогите роздуплитса где то вообще не то что нада выбивает гдето вообще ничего вот например Planes должно быть 1 а оно мне выбивает 0.И как вообще загрузить картинку?Теорию я знаю а вот з практикой трдновото
Вот мой код Public BITMAPFILEHEADER As BITMAPFILEHEADER
Public Struct As Struct Type BITMAPFILEHEADER Type As String * 2 Size As Long Reserved1 As String * 2 Reserved2 As String * 2 OffBits As Long End Type Type Struct Size As Long Width As Long Height As Long Planes As Long BitCount As Long Compression As Long SizeImage As Long XPelsPerMeter As Long YPelsPerMeter As Long ClrUsed As Long ClrImportant As Long End Type Type Image RedMask As Byte GreenMask As Byte BlueMask As Byte AlphaMask As Byte CSType As Byte 'CIEXYZTRIPLE Endpoints; GammaRed As Byte GammaGreen As Byte GammaBlue As Byte End Type Private Sub main() Get_Struct "c:\docal.bmp" End Sub Public Function Get_BITMAPFILEHEADER(FileName As String) Open FileName For Binary As #1 Get #1, 1, BITMAPFILEHEADER.Type Get #1, 2, BITMAPFILEHEADER.Size Get #1, 6, BITMAPFILEHEADER.Reserved1 Get #1, 8, BITMAPFILEHEADER.Reserved2 Get #1, 10, BITMAPFILEHEADER.OffBits Close #1 End Function Public Function Get_Struct(FileName As String) Open FileName For Binary As #1 Get #1, 14, Struct.Size Get #1, 18, Struct.Width Get #1, 22, Struct.Height Get #1, 26, Struct.Planes Get #1, 28, Struct.BitCount Get #1, 30, Struct.Compression Get #1, 34, Struct.SizeImage Get #1, 38, Struct.XPelsPerMeter Get #1, 42, Struct.YPelsPerMeter Get #1, 46, Struct.ClrUsed Get #1, 50, Struct.ClrImportant Close #1 MsgBox Struct.Size MsgBox Struct.Width MsgBox Struct.Height MsgBox Struct.Planes MsgBox Struct.BitCount MsgBox Struct.Compression MsgBox Struct.SizeImage MsgBox Struct.XPelsPerMeter MsgBox Struct.YPelsPerMeter MsgBox Struct.ClrUsed MsgBox Struct.ClrImportant End Function |
| Ответы | Всего ответов: 20 |
|
Номер ответа: 1 Автор ответа:  Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #1 | Добавлено: 23.11.07 22:54 |
|
Ща вспомнил, как я настойчиво и долго пытался заставить картинки загружаться)) с трудом нашел файлик
Private Declare Function SetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
'Private Declare Function ReadFile Lib "kernel32.dll" (ByVal hfile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long Private 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 Private Type BITMAPFILEHEADER '14 bytes bfType As String * 2 '"magic cookie" - must be "BM" bfSize As Long bfReserved1 As Integer bfReserved2 As Integer bfOffBits As Long End Type Private Type BITMAPINFO bmiHeader As BITMAPINFOHEADER bmiColors() As Long 'array of RGBQUADs End Type Private Type paletteX G As Byte R As Byte B As Byte End Type Public Function BMPFillInfoStruct(ByVal filename As String) As Boolean Dim bmih As BITMAPINFOHEADER, palette As paletteX, hfile As Long, bfh As BITMAPFILEHEADER Dim WritePos As Long hfile = FreeFile() On Error Resume Next Open filename For Binary Access Read As #hfile Get #hfile, , bfh Get #hfile, 15, bmih 'start at the 15th byte WritePos = 55 For yy = bmih.biHeight - 1 To 0 Step -1 For xx = 0 To bmih.biWidth - 1 Get #hfile, WritePos, palette SetPixel Picture1.hdc, xx, yy, RGB(palette.R, palette.G, palette.B) WritePos = WritePos + Len(palette) Next xx WritePos = X4(WritePos) Picture1.Refresh Next yy Close #hfile 'Close file BMPFillInfoStruct = True 'indicate success End Function Private Sub Command1_Click() BMPFillInfoStruct "G:\Мои документы\Мои рисунки\VectorCell2DesktopWallpaper.bmp" End Sub Public Function X4(Number As Long) As Long Do While Number Mod 4 <> 0 Number = Number + 1 Loop X4 = Number End Function Private Sub Form_Resize() Picture1.Width = ScaleWidth Picture1.Height = ScaleHeight End Sub |
||
|
Номер ответа: 2 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #2 | Добавлено: 23.11.07 22:56 |
код ооочень медленный. Но смысл был в том чтоб файл открыть хоть как нибудь
|
||
|
Номер ответа: 3 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #3 | Добавлено: 23.11.07 23:47 |
|
Видимо мне очень хотелось чтоб программа сама читала файл... Есть способ проще и во много раз быстрее - через SetDIBitsToDevice
Private Declare Function SetDIBitsToDevice 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 Scan As Long, ByVal NumScans As Long, Bits As Any, BitsInfo As BITMAPINFO, ByVal wUsage As Long) As Long
Private 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 Private Type BITMAPFILEHEADER '14 bytes bfType As String * 2 '"magic cookie" - must be "BM" bfSize As Long bfReserved1 As Integer bfReserved2 As Integer bfOffBits As Long End Type Private Type BITMAPINFO bmiHeader As BITMAPINFOHEADER bmiColors() As Long 'array of RGBQUADs End Type Public Function BMPFillInfoStruct(ByVal filename As String) As Boolean Dim bmih As BITMAPINFOHEADER, hfile As Long, bfh As BITMAPFILEHEADER Dim BMi As BITMAPINFO Dim WritePos As Long Dim FileDat() As Byte hfile = FreeFile() 'On Error Resume Next ReDim FileDat(FileLen(filename) - 54) Open filename For Binary Access Read As #hfile Get #hfile, , bfh Get #hfile, 15, BMi.bmiHeader 'start at the 15th byte Get #hfile, 55, FileDat Close #hfile 'Close file Call SetDIBitsToDevice(Picture1.hdc, 0, 0, BMi.bmiHeader.biWidth, BMi.bmiHeader.biHeight, 0, 0, 0, BMi.bmiHeader.biHeight, FileDat(0), BMi, 0) Picture1.Refresh BMPFillInfoStruct = True 'indicate success End Function p.s. кстати почему-то в первом примере без выравнивания (функ. X4) всё работает правильнее. Может оно и не нужно... |
||
|
Номер ответа: 4 Автор ответа: Docal ICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #4 | Добавлено: 24.11.07 13:04 |
| Пасиба Winand.Просто очень в етом хочу разобтартса.)) | ||
|
Номер ответа: 5 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #5 | Добавлено: 24.11.07 13:31 |
|
Если я щас ляпну тупость, то поправьте меня.
Почему вы не юзаете LoadPicture? |
||
|
Номер ответа: 6 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #6 | Добавлено: 24.11.07 13:37 |
|
А-а, понял!
Так можно же саму картинку загружать LoadPicture, а ее атрибуты этими функциями? |
||
|
Номер ответа: 7 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #7 | Добавлено: 24.11.07 14:36 |
| Сам недавно писал читалку BMP - ничего сложного | ||
|
Номер ответа: 8 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #8 | Добавлено: 24.11.07 14:56 |
|
А если не 24разрядный рисунок?
А если сжатие RLE (слышал бывает)? |
||
|
Номер ответа: 9 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #9 | Добавлено: 24.11.07 17:27 |
|
не 24 рисунок - не знаю как у тебя, а у меня хоть монохромный, хоть какой - читает. Не читает только 32разрядный и 64разрядный.
А вот насчет RLE - не знаю |
||
|
Номер ответа: 10 Автор ответа: ENIX ICQ: 238819245 Вопросов: 9 Ответов: 76 |
Профиль | | #10 | Добавлено: 25.11.07 13:10 |
|
Насчет RLE так по памяти это простейший алгоритм сжатия за счет повторений:
Например: >11ААFFFFAAAAAA (Hex) Применив RLE получим -> 001100AA02FF03AA |
||
|
Номер ответа: 11 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #11 | Добавлено: 25.11.07 16:55 |
|
и где там произошло сжатие? я думал что при сжатии данные должны занимать меньше места.
Кстати лежит у меня примерчик на vb с кучей разных кодировщиков-упаковщиков. Оч класно, ток vb-код слишком медленный |
||
|
Номер ответа: 12 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #12 | Добавлено: 25.11.07 21:06 |
| а, насчет сжатия уже понял. Просто сначала принцип не увидел | ||
|
Номер ответа: 13 Автор ответа: DocalICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #13 | Добавлено: 26.11.07 00:28 |
| Винанд ты не прав твой код читает не все когда в бмп 256 цветов оно тупит картинку.На 32 битах оно тоже не будет работать так как там один цвет не три байта а 4 | ||
|
Номер ответа: 14 Автор ответа: DocalICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #14 | Добавлено: 26.11.07 00:30 |
| А из 48 битными битмапи вообще мало прог работает | ||
|
Номер ответа: 15 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #15 | Добавлено: 26.11.07 19:23 |
|
а 48 бит мониторы поддерживают?
Docal, я не говорил, что мой код всё читает Говорил я это например в Ответе №8 |
||