[TUTOUR] Cấu trúc file BMP

[chercercer]

Vô trang pages.google.com đi. Upload miễn phí. Băng thông rộng. Dung lượng max : 100MB. Never Die. Được link http thật, chỉ click là down mà không cần vào trang đó và chất vấn.

[trinick_13]

Xin chào mấy đại ca !
Fan mới đây, rất thích "Pascal and Delphi" (không biết lý do). Xin mấy đại ca chỉ dạy !

[nghiphvt]

nich chat cua minh la YeuAnhNha_EmYeu0506 nho nha ai muon lam wen thi cu viec

[vuong_dt1992]

Đây là code lấy thông tin về width + height của JPEG, BMP, GIF, PNG nhưng viết bằng VB chuyển qua pascal hay gì gì chắc cũng chẳng khó đâu.
Public Type ImgDimType
height As Long
width As Long
End Type
Public Function getImgDim(ByVal fileName As String, _
Ext As String) As ImgDimType


'Inputs:
'
'fileName is a string containing the path name of the image file.
'
'ImgDim is passed as an empty type var and contains the height
'and width that's passed back.
'
'Ext is passed as an empty string and contains the image type
'as a 3 letter description that's passed back.
'
'
'Returns:
'
'True if the function was successful.


'declare vars
Dim handle As Integer, isValidImage As Boolean
Dim byteArr(255) As Byte, i As Integer

'init vars
isValidImage = False
ImgDim.height = 0
ImgDim.width = 0

'open file and get 256 byte chunk
handle = FreeFile
On Error GoTo endFunction
Open fileName For Binary Access Read As #handle
Get handle, , byteArr
Close #handle


'check for jpg header (SOI): &HFF and &HD8
' contained in first 2 bytes
If byteArr(0) = &HFF And byteArr(1) = &HD8 Then
isValidImage = True
Else
GoTo checkGIF
End If

'check for SOF marker: &HFF and &HC0 TO &HCF
For i = 0 To 255
If byteArr(i) = &HFF And byteArr(i + 1) >= &HC0 _
And byteArr(i + 1) <= &HCF Then
ImgDim.height = byteArr(i + 5) * 256 + byteArr(i + 6)
ImgDim.width = byteArr(i + 7) * 256 + byteArr(i + 8)
Exit For
End If
Next i

'get image type and exit
Ext = "jpg"
GoTo endFunction


checkGIF:

'check for GIF header
If byteArr(0) = &H47 And byteArr(1) = &H49 And byteArr(2) = &H46 _
And byteArr(3) = &H38 Then
ImgDim.width = byteArr(7) * 256 + byteArr(6)
ImgDim.height = byteArr(9) * 256 + byteArr(8)
isValidImage = True
Else
GoTo checkBMP
End If

'get image type and exit
Ext = "gif"
GoTo endFunction


checkBMP:

'check for BMP header
If byteArr(0) = 66 And byteArr(1) = 77 Then
isValidImage = True
Else
GoTo checkPNG
End If

'get record type info
If byteArr(14) = 40 Then

'get width and height of BMP
ImgDim.width = byteArr(21) * 256 ^ 3 + byteArr(20) * 256 ^ 2 _
+ byteArr(19) * 256 + byteArr(18)

ImgDim.height = byteArr(25) * 256 ^ 3 + byteArr(24) * 256 ^ 2 _
+ byteArr(23) * 256 + byteArr(22)

'another kind of BMP
ElseIf byteArr(17) = 12 Then

'get width and height of BMP
ImgDim.width = byteArr(19) * 256 + byteArr(18)
ImgDim.height = byteArr(21) * 256 + byteArr(20)

End If

'get image type and exit
Ext = "bmp"
GoTo endFunction


checkPNG:

'check for PNG header
If byteArr(0) = &H89 And byteArr(1) = &H50 And byteArr(2) = &H4E _
And byteArr(3) = &H47 Then
ImgDim.width = byteArr(18) * 256 + byteArr(19)
ImgDim.height = byteArr(22) * 256 + byteArr(23)
isValidImage = True
Else
GoTo endFunction
End If

Ext = "png"


endFunction:

'return function's success status
getImgDim = isValidImage


End Function

Tớ thử cho vào 1 module đoạn mã này. Rồi cho
Dim ii As ImgDimType
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ii = getImgDim("C:\6.bmp", "bmp")
MsgBox ii.width
MsgBox ii.height
End Sub
vào form
-> chạy -> báo lỗi không hợp kiểu: getImgDim=isValdImage ?
Chỉ giáo thêm đi bạn!

[that_is_lg]

Cái này để làm gì vậy bà con

[firefly0901]

[/color]
Các bạn thử vào trang http://brackeen.com/vga/ xem thử về cấu trúc của ảnh bitmap, tuy trang này hướng dẫn load ảnh bitmap trong C nhưng mình thấy trình bày về cấu trúc bitmap cũng khá rõ ràng và dễ hiểu. Lại có hướng dẫn thuật toán, có nhiều code ví dụ kể cả file .exe, bạn cũng có thể download về để xem.

[vtnphong]

mấy ngôn ngữ bây giờ đưa nó vào library hết rồi. Cần gì thì tạo cái object của class đó ra (bmp chẳng hạn). Ngồi lục lọi cái format thì mất thời gian lắm, đặc biệt là mấy cái màn nén của nó.

[hienkute]

real_time ơi, em phải lập chương trình đọc file ảnh mà em chưa tìm dược tài liệu nào, real_time có thể send cho em đc hok? thanks nhìu nhìu!

[=========> Bổ sung bài viết <=========]

real_time ơi, em phải lập chương trình đọc file ảnh mà em chưa tìm dược tài liệu nào, real_time có thể send cho em đc hok? thanks nhìu nhìu!

[pascal co ban]

[Vuio]

Dùng Lazarus cho nhanh, hỗ trợ all file ảnh, PNG, JPG, BMP, GIF chơi đc hết, cần gì mà viết thư viện ra tùm lum chi cho mệt