Trang 4 / 4 FirstFirst 1234
Hiển thị kết quả từ 31 đến 40 / 40
  1. #31
    Tham gia
    05-07-2006
    Bài viết
    555
    Like
    0
    Thanked 5 Times in 3 Posts
    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.

  2. Thành viên Like bài viết này:


  3. #32
    Tham gia
    14-11-2006
    Location
    Đà Nẵng, miền Trung, Việt Nam, Thế Giới đủ chưa?
    Bài viết
    84
    Like
    0
    Thanked 1 Time in 1 Post
    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 !

  4. Thành viên Like bài viết này:


  5. #33
    Tham gia
    22-12-2007
    Bài viết
    2
    Like
    0
    Thanked 1 Time in 1 Post
    nich chat cua minh la YeuAnhNha_EmYeu0506 nho nha ai muon lam wen thi cu viec

  6. Thành viên Like bài viết này:


  7. #34
    Tham gia
    30-12-2007
    Bài viết
    7
    Like
    0
    Thanked 1 Time in 1 Post

    code lỗi

    Quote Được gửi bởi real_time View Post
    Đâ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!

  8. Thành viên Like bài viết này:


  9. #35
    Tham gia
    06-03-2008
    Bài viết
    42
    Like
    0
    Thanked 1 Time in 1 Post
    Cái này để làm gì vậy bà con

  10. Thành viên Like bài viết này:


  11. #36
    Tham gia
    15-04-2008
    Location
    Hồ Chí Minh
    Bài viết
    55
    Like
    0
    Thanked 0 Times in 0 Posts

    Thông tin

    [/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.
    Được sửa bởi firefly0901 lúc 17:13 ngày 18-04-2008 Reason: Bổ sung bài viết

  12. #37
    Tham gia
    17-03-2008
    Bài viết
    790
    Like
    0
    Thanked 3 Times in 3 Posts
    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ó.

  13. Thành viên Like bài viết này:


  14. #38
    Tham gia
    24-03-2009
    Location
    Hải Dương
    Bài viết
    1
    Like
    0
    Thanked 1 Time in 1 Post
    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!
    Được sửa bởi hienkute lúc 16:14 ngày 24-03-2009 Reason: Bổ sung bài viết

  15. Thành viên Like bài viết này:


  16. #39
    Tham gia
    24-03-2010
    Location
    Lâm Đồng
    Bài viết
    27
    Like
    0
    Thanked 1 Time in 1 Post

  17. Thành viên Like bài viết này:


  18. #40
    Tham gia
    22-05-2017
    Bài viết
    12
    Like
    1
    Thanked 0 Times in 0 Posts
    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

Trang 4 / 4 FirstFirst 1234

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •