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

[chung1206]

作者: mini

都可以.....

SORRY版大，我還是一直有出現錯誤訊息，我可以傳我整個原始專案請您幫我看一下嗎？
謝謝。

[mini]

那要處理的圖檔也不須附上...

[mini]

作者: chung1206

SORRY版大，我還是一直有出現錯誤訊息，我可以傳我整個原始專案請您幫我看一下嗎？
謝謝。

看了一下 請問哪裡出錯 ...

[chung1206]

作者: mini

看了一下 請問哪裡出錯 ...

這是還未加進版大的程式前的，所以沒有錯誤訊息，但加入您調整DPI的程式後就會出現，謝謝。

PS:按另存圖檔後會出現不正確的引用，在這行Open .FileName For Binary Access Read As #1

[mini]

加了個 ChangeFileDPI 副程式
及改良 Command2_Click()

不過你那個存檔方式還是只能存成 BMP格式 (只是改個副檔名成 .jpg實際上是掩耳盜鈴 ...)

Private Sub Command2_Click()
Dim i As Integer
    
    For i = Image1.LBound To Image1.UBound
        Image1(i).Picture = LoadPicture()
    Next
    Picture1.Refresh
    
End Sub

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
            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
        If .FileName = "" Then Exit Sub
        
        SavePicture Picture1.Image, .FileName '存檔成 BMP
        ChangeFileDPI .FileName '改成適當DPI
    End With

End Sub

'改成適當DPI
Private Sub ChangeFileDPI(sFileName As String, Optional iDPI = 300#)  '預設 DPI為 300
Dim lFileID As Long
Dim byteData() As Byte
Dim sDPI As String, sMode As String
Dim bHiByte As Byte, bLoByte As Byte

    sMode = LCase(Right(sFileName, 3)) '得到最右邊的副檔名並統一轉成小寫
    If sMode = "bmp" Then iDPI = iDPI * 39.37 '如果是 BMP檔需換算
    
    sDPI = Right("0000" & Hex(iDPI), 4)     '將數字轉成四位形式的十六進位字串
    bHiByte = CByte("&H" & Left(sDPI, 2))   '取左邊兩個
    bLoByte = CByte("&H" & Right(sDPI, 2))  '取右邊兩個

    lFileID = FreeFile '向系統取得一個尚未被使用的檔案代碼
    
    '**改變 JPEG圖檔 解析度**
    If sMode = "jpg" Then
        ReDim byteData(17) As Byte
        
        '*取出適當的File Header資訊
        Open sFileName For Binary Access Read As #lFileID
        Get #lFileID, , byteData()
        Close #lFileID
        
        '換上所需的 DPI資訊
        byteData(14) = bHiByte
        byteData(15) = bLoByte
        byteData(16) = bHiByte
        byteData(17) = bLoByte

    '**改變 BMP圖檔 解析度**
    ElseIf sMode = "bmp" Then
        ReDim byteData(&H2B) As Byte
        
        Open sFileName For Binary Access Read As #lFileID
        Get #lFileID, , byteData()
        Close #lFileID
    
        byteData(&H26) = bLoByte
        byteData(&H27) = bHiByte
        byteData(&H2A) = bLoByte
        byteData(&H2B) = bHiByte

    Else
        Exit Sub
    End If
        
    '*存回
    Open sFileName For Binary Access Write As #lFileID
    Put #lFileID, , byteData()
    Close #lFileID
            
End Sub

其實 DPI應該根據 像素來算出適當的值
而不是固定用 300等固定值

[chung1206]

感謝版大小弟受益良多，因為之前有使用過Photoshop在Photoshop裡更改DPI的話像素也會跟著改變，但沒想到在程式裡卻不會，斗膽再請教如果更改像素的話會不會比較好？因為我用您的程式複製進去，DPI確實變成300了，但實際像素卻沒改變，謝謝。

[mini]

作者: chung1206

感謝版大小弟受益良多，因為之前有使用過Photoshop在Photoshop裡更改DPI的話像素也會跟著改變，但沒想到在程式裡卻不會，斗膽再請教如果更改像素的話會不會比較好？因為我用您的程式複製進去，DPI確實變成300了，但實際像素卻沒改變，謝謝。

DPI 只是告訴印表機排版系統
這張圖要印出的解析度
如果 DPI大於 像素值
那這個 DPI就沒意義
所以 DPI不能大於像素值

比如
某張圖其 寬=150像素
而 DPI裡的 水平解析度 卻是 300
那像 Photoshop這種智慧專業軟體
就會做出調整

你的程式應該根據要列印的長寬
而倒過來算出 最佳DPI才對
而不是活生生硬著頭皮規定 DPI

[chung1206]

作者: mini

DPI 只是告訴印表機排版系統
這張圖要印出的解析度
如果 DPI大於 像素值
那這個 DPI就沒意義
所以 DPI不能大於像素值

比如
某張圖其 寬=150像素
而 DPI裡的 水平解析度 卻是 300
那像 Photoshop這種智慧專業軟體
就會做出調整

你的程式應該根據要列印的長寬
而倒過來算出 最佳DPI才對
而不是活生生硬著頭皮規定 DPI

感謝版大分享此觀念，那我若想更動像素的話，只需要將sDPI的部份改成pixels就可以了嗎？還是整個語法要重寫？謝謝。
PS:我用另一個方式問，有沒有辦法讓它載入後不改變像素的方式？因為我第一次做的時候是沒問題的，但當時有個問題是
原本一張5M多的檔案載入合併後存檔變成40幾M，後來一直詢問改良變成這樣，但已經忘了那時候到底是什麼方式使它不會
改變原本的像素，謝謝。

[chung1206]

作者: mini

DPI 只是告訴印表機排版系統
這張圖要印出的解析度
如果 DPI大於 像素值
那這個 DPI就沒意義
所以 DPI不能大於像素值

比如
某張圖其 寬=150像素
而 DPI裡的 水平解析度 卻是 300
那像 Photoshop這種智慧專業軟體
就會做出調整

你的程式應該根據要列印的長寬
而倒過來算出 最佳DPI才對
而不是活生生硬著頭皮規定 DPI

感謝大大，我再想想。