亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

獲得jpg文件的實際尺寸

2019-11-18 20:34:48
字體：大 中 小
來源：轉載
供稿：網友
bask

把它編譯成組件就可以用了，還支持png


'I have released this source code into the public domain.  You may use it
'with no strings attached.
'Just call GetImageSize with a string containing the filename, and
'it will return a user defined type 'ImageSize'  (see below)
'Return values of 0 indicate an error of some sort.  The error handling
'in this module is limited.  There is *NO* error handling on the test
'form.  This routine is limited to X or Y sizes of 32767 pixels, but that
'should not be a 'I may add support for more file types.

'supported in this version:
'JPEG
'GIF
'PNG

'This routine does not require any royalty fees for Unisys as it
'does nothing with the compressed part of GIF files.  It simply reads
'4 bytes to determine image size.

Option Explicit
Public WImg As Long
Public HImg As Long
Public Type ImageSize
    Width As Long
    Height As Long
End Type

Public Sub GetImageSize(sFileName As String)
    On Error Resume Next        'you'll want to change this
    Dim iFN As Integer
    Dim bTemp(3) As Byte
    Dim lFlen As Long
    Dim lPos As Long
    Dim bHmsb As Byte
    Dim bHlsb As Byte
    Dim bWmsb As Byte
    Dim bWlsb As Byte
    Dim bBuf(7) As Byte
    Dim bDone As Byte
    Dim iCount As Integer

    lFlen = FileLen(sFileName)
    iFN = FreeFile
    Open sFileName For Binary As iFN
    Get #iFN, 1, bTemp()
        
    'PNG file
    If bTemp(0) = &H89 And bTemp(1) = &H50 And bTemp(2) = &H4E _
    And bTemp(3) = &H47 Then
        Get #iFN, 19, bWmsb
        Get #iFN, 20, bWlsb
        Get #iFN, 23, bHmsb
        Get #iFN, 24, bHlsb
        'GetImageSize.Width = CombineBytes(bWlsb, bWmsb)
        'GetImageSize.Height = CombineBytes(bHlsb, bHmsb)
        WImg = CombineBytes(bWlsb, bWmsb)
        HImg = CombineBytes(bHlsb, bHmsb)
    End If
    
    'GIF file
    If bTemp(0) = &H47 And bTemp(1) = &H49 And bTemp(2) = &H46 _
    And bTemp(3) = &H38 Then
        Get #iFN, 7, bWlsb
        Get #iFN, 8, bWmsb
        Get #iFN, 9, bHlsb
        Get #iFN, 10, bHmsb
        'GetImageSize.Width = CombineBytes(bWlsb, bWmsb)
        'GetImageSize.Height = CombineBytes(bHlsb, bHmsb)
        WImg = CombineBytes(bWlsb, bWmsb)
        HImg = CombineBytes(bHlsb, bHmsb)
    End If
    
    
    'JPEG file
    If bTemp(0) = &HFF And bTemp(1) = &HD8 And bTemp(2) = &HFF Then
    Debug.Print "JPEG"
        lPos = 3
        Do
            Do
                Get #iFN, lPos, bBuf(1)
                Get #iFN, lPos + 1, bBuf(2)
                lPos = lPos + 1
            Loop Until (bBuf(1) = &HFF And bBuf(2) <> &HFF) Or lPos > lFlen
        
            For iCount = 0 To 7
                Get #iFN, lPos + iCount, bBuf(iCount)
            Next iCount
            If bBuf(0) >= &HC0 And bBuf(0) <= &HC3 Then
                bHmsb = bBuf(4)
                bHlsb = bBuf(5)
                bWmsb = bBuf(6)
                bWlsb = bBuf(7)
                bDone = 1
            Else
                lPos = lPos + (CombineBytes(bBuf(2), bBuf(1))) + 1
            End If
        Loop While lPos < lFlen And bDone = 0
        'GetImageSize.Width = CombineBytes(bWlsb, bWmsb)
        'GetImageSize.Height = CombineBytes(bHlsb, bHmsb)
        WImg = CombineBytes(bWlsb, bWmsb)
        HImg = CombineBytes(bHlsb, bHmsb)
    End If
    Close iFN
    
End Sub
Private Function CombineBytes(lsb As Byte, msb As Byte) As Long
    CombineBytes = CLng(lsb + (msb * 256))
End Function

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
日韩美女激情视频| 91色在线视频| 国产精品美女av| 国产精品女主播| 自拍偷拍亚洲区| 国产日韩av在线播放| 国产一区二区三区高清在线观看| 51久久精品夜色国产麻豆| 午夜精品三级视频福利| 在线播放日韩专区| 亚洲天堂av在线免费观看| 国产精品免费视频久久久| 4444欧美成人kkkk| 亚洲人成伊人成综合网久久久| 国产精品情侣自拍| 午夜精品福利在线观看| 97欧美精品一区二区三区| 精品亚洲国产成av人片传媒| 97超碰国产精品女人人人爽| 性欧美视频videos6一9| 日本精品性网站在线观看| 精品国产一区久久久| 91精品国产乱码久久久久久久久| 国产噜噜噜噜噜久久久久久久久| 成人中文字幕+乱码+中文字幕| 欧美视频裸体精品| 国产一区二区三区18| 亚洲美女又黄又爽在线观看| 久久精品国产v日韩v亚洲| 日韩精品中文在线观看| 久久久久久97| 久久久久久久一区二区| 中文字幕一区日韩电影| 欧美性xxxxx| 国内精品视频在线| 国产精品久久久久久搜索| 精品久久久久久久久久国产| 日韩精品在线影院| 亚洲欧美日韩区| 欧美一区二区.| 欧美精品videossex性护士| 日韩在线激情视频| 久久大大胆人体| 久久在线精品视频| 成人免费高清完整版在线观看| 欧美亚洲成人免费| 色中色综合影院手机版在线观看| 中文字幕久精品免费视频| 69精品小视频| 国产欧美日韩91| 欧美在线视频一区二区| 在线精品国产成人综合| 欧美巨猛xxxx猛交黑人97人| 91探花福利精品国产自产在线| 51视频国产精品一区二区| 日韩高清av一区二区三区| 国产亚洲成av人片在线观看桃| 亚洲国产精品资源| 日韩久久精品电影| 成人免费网站在线| 久久97久久97精品免视看| 韩国欧美亚洲国产| 亚洲一区二区免费在线| 国产精品免费看久久久香蕉| 日韩av免费在线| 97av视频在线| 欧美自拍视频在线| 96国产粉嫩美女| 91高清视频免费观看| 久久久久久久久久久免费| 97福利一区二区| 2025国产精品视频| 精品色蜜蜜精品视频在线观看| 亚洲精品乱码久久久久久金桔影视| 麻豆国产va免费精品高清在线| 日韩在线视频免费观看| 日韩精品免费视频| 亚洲a级在线播放观看| 日韩在线视频观看正片免费网站| 国产精品男人的天堂| 国产精品欧美在线| 亚洲欧美一区二区精品久久久| 国产精品88a∨| 国产亚洲综合久久| 亚洲欧美另类国产| 国产亚洲成av人片在线观看桃| 亚洲第一福利网站| 操人视频在线观看欧美| 亚洲一区二区三区在线免费观看| 91沈先生在线观看| 亚洲一区二区自拍| 91免费电影网站| 97精品久久久中文字幕免费| 国产亚洲精品成人av久久ww| 日韩成人激情在线| 蜜臀久久99精品久久久久久宅男| 欧美成人免费在线视频| 清纯唯美亚洲激情| 色偷偷噜噜噜亚洲男人| 国产精品国产福利国产秒拍| 91免费视频国产| 91社影院在线观看| 日韩中文字幕视频在线| 上原亚衣av一区二区三区| 成人在线中文字幕| 福利精品视频在线| 69av在线播放| 亚洲欧美日韩中文在线制服| 69**夜色精品国产69乱| 国产精品亚发布| 97精品免费视频| 久久精品99久久久久久久久| 伊人久久免费视频| 久久精品电影网站| 久久国产精品久久久久| 久久国产精品久久久久久久久久| 色综合影院在线| 91精品国产高清| 青青草原成人在线视频| 欧美在线视频在线播放完整版免费观看| 91香蕉嫩草神马影院在线观看| 国产香蕉一区二区三区在线视频| 欧美激情亚洲一区| 日韩中文字幕在线视频播放| 91黑丝高跟在线| 国产精品 欧美在线| 欧美激情第一页xxx| 国产成人精品亚洲精品| 亚洲精品美女久久久| 亚洲一区二区久久久久久久| 55夜色66夜色国产精品视频| 久久久久久91香蕉国产| 亚洲国产高清自拍| 91精品91久久久久久| 亚洲欧美国产精品久久久久久久| 欧美一级高清免费播放| 2018中文字幕一区二区三区| 日本三级久久久| 永久555www成人免费| 国产欧美一区二区三区久久人妖| 国产女人18毛片水18精品| 久久亚洲精品小早川怜子66| 最近2019年手机中文字幕| 欧美精品久久久久久久久久| 日韩欧美中文第一页| 欧美日韩在线观看视频| 亚洲色图25p| 久久久视频免费观看| 亚洲国产成人一区| 亚洲激情第一页| 国产精品www| 91高清视频在线免费观看| 成人亚洲欧美一区二区三区| 亚洲欧美一区二区精品久久久| 欧美放荡办公室videos4k| 国产精品日韩欧美综合| 国产综合香蕉五月婷在线| 国产日韩一区在线| 精品久久久国产精品999| 日韩av免费在线播放| 国产福利精品av综合导导航| zzijzzij亚洲日本成熟少妇| 成人欧美在线观看| 亚洲欧洲偷拍精品|