疑問 - VB6.0載入圖片解析度限制

[chung1206]

各位先進們好，想請教一下，我載入圖片至Image裡後存檔成jpg後，我的原圖解析度是300另存jpg檔後解析度變成70而且可以做一般瀏覽而已，無法使用photoshop開啟，但若存成bmp檔photoshop可以開啟，但解析度依然只有70而已，請問可以限制他載入的解析度大小嗎？謝謝。

[mini]

不知道你的 jpg存檔函式(如何存檔的程式碼)是...?

DPI 是 像素/英吋
只是一個記錄於 jpg檔之檔頭上的資訊
要改變的話
只要將檔頭資訊取出，改變 XResolution、YResolution 兩個參數的值，再寫回檔頭便可以了

可以用二進位開檔方式將資訊取出
改寫後再寫回

檔案是以 十六進制 方式記載
位址在 第14+15位元組 及 第16+17位元組 上
比如 水平及垂直解析度都是96 dpi的話就是
第十四位元組 --> 00 60 00 60 <--第十七位元組

Private Sub Command3_Click()
Dim byteData(17) As Byte

    Open "r:\hh.jpg" For Binary Access Read As #1
    Get #1, , byteData()
    Close #1
    
    '將影像解析度改成 72 DPI
    byteData(15) = 72
    byteData(17) = 72
    
    Open "r:\hh.jpg" For Binary Access Write As #1
    Put #1, , byteData()
    Close #1
    Erase byteData

End Sub

[chung1206]

我的存檔程式碼如下，請版大多多指教，謝謝。

Private Sub Command3_Click()
   Dim i As Integer, X As Long, Y As Long
   Picture1.AutoRedraw = True
   Picture1.Width = Image1(0).Width * 4
   Picture1.Height = Image1(0).Height * 2
   X = 0: Y = 0
   For i = 0 To 7
   If Image1(i).Picture = 0 Then
   Else
      Picture1.PaintPicture Image1(i).Picture, X, Y, Image1(i).Width, Image1(i).Height
   End If
      X = X + Image1(0).Width
      If i = 3 Then
         X = 0
         Y = Y + Image1(0).Height
      End If
   Next
   With CommonDialog2
        .FileName = ""
        .Filter = "JPEG files (*.jpg) |*.jpg|BMP files (*.bmp) |*.bmp"
        .ShowSave
    End With
    If CommonDialog2.FileName = "" Then Exit Sub
    SavePicture Picture1.Image, CommonDialog2.FileName
End Sub

[mini]

改成

   Dim sTmp As String
   With CommonDialog2
        .FileName = ""
        .Filter = "JPEG files (*.jpg) |*.jpg|BMP files (*.bmp) |*.bmp"
        .ShowSave
        If .FileName = "" Then Exit Sub
        
        sTmp = LCase(Right(.FileName,3)) '得到最右邊的副檔名並統一轉成小寫
             If sTmp = "bmp" Then
            SavePicture Picture1.Image, .FileName

        ElseIf sTmp = "jpg" Then
            SaveJPG Picture1.Image, .FileName, 100 '品質從1~100
            'SaveJPG 參考 http://forum.slime.com.tw/thread250858.html#post2179045
            '**圖像改解析度**
            Dim byteData(17) As Byte

            Open .FileName For Binary Access Read As #1
            Get #1, , byteData()
            Close #1
    
            '將影像解析度改成 300 dpi = 十六進制 01 2C
            byteData(14) = &H01
            byteData(15) = &H2C
            byteData(16) = &H01
            byteData(17) = &H2C
    
            Open .FileName For Binary Access Write As #1
            Put #1, , byteData()
            Close #1
            '**************
        EndIf
   End With

[chung1206]

版大您好，如果我只要存成bmp檔就好dpi300這樣會不會比較簡單點？JPG的部份蠻複雜的，我真得看不太懂，謝謝。

[mini]

作者: chung1206

版大您好，如果我只要存成bmp檔就好dpi300這樣會不會比較簡單點？JPG的部份蠻複雜的，我真得看不太懂，謝謝。

根據 http://www.atlaspost.com/landmark-339129.htm 上的 Bitmap File Header
其水平與垂直解析度記載於
0026h H-Resolution 4 水平解析度（單位：像素/公尺）【註８】
002Ah V-Resolution 4 垂直解析度（單位：像素/公尺）
...

【註８】若要換算為 dpi，則將此欄數值要除以39.37（吋/公尺）
　　　　例如，此欄數值若為 2834 (pixels per meter), 
　　　　則 2834 ÷ 39.37 = 72 (pixels per inch) = 72 dpi

所以改成

            '**圖像改解析度**
            Dim byteData(&h2B) As Byte

            Open .FileName For Binary Access Read As #1
            Get #1, , byteData()
            Close #1
    
            '將影像解析度改成 150 dpi = 150*39.37 =取整數=> 5906 = 十六進制 17 12
            byteData(&H26) = &H12
            byteData(&H27) = &H17
            byteData(&H2A) = &H12
            byteData(&H2B) = &H17

            Open .FileName For Binary Access Write As #1
            Put #1, , byteData()
            Close #1
            '**************

300 dpi的話是 300*39.37=11811=2E 23

因為電腦讀檔案是以堆疊方式讀出
所以寫入時也就是用倒序方式寫入讀檔
所以要倒過來先填入 &H23 再填 &H2E
byteData(&H26) = &H23
byteData(&H27) = &H2E

[chung1206]

感謝版大，我發現我錯了，我發現它一載入圖片時解析度就變成72，而不是存檔後才改變的，這樣我是不是要在開啟圖檔那就要改了？謝謝。