讀取圖片轉DPI- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1626

會員總數：245798
討論主題：189428

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> VB.NET >> 讀取圖片轉DPI

[]

[我要回覆]

讀取圖片轉DPI
價值 : 50 QP 點閱數:338 回應數:1

樓主

MStone Lin

0	91
1788	122

發送站內信

請問

我讀取一張圖片後

要將其DPI值 120->72

試了許久
還是失敗

請問正確應怎麼寫

Dim path1 As String = "C:\inetpub\www\signature\casepic"
        Dim path2 As String = "\\192.168.10.1\rpt\MMSE"

Dim filename As String = Session("schartno") & "-" & (Year(Now) - 1911) & Right("0" & Month(Now()), 2) & Right("0" & Day(Now()), 2) & ".html"
        Dim filename1 As String = Session("schartno") & "-" & (Year(Now) - 1911) & Right("0" & Month(Now()), 2) & Right("0" & Day(Now()), 2) & ".jpg"

Dim FileNamePath1 As String = path1 & "\" & filename
        Dim FileNamePath2 As String = path1 & "\" & filename1
        Dim FileNamePath3 As String = path1 & "\a" & filename1

'---A方法------------
        Dim photo() As Byte = File.ReadAllBytes(FileNamePath3)
        Dim Bmp As Bitmap

Using mStream As New IO.MemoryStream(photo)
            Bmp = Image.FromStream(mStream)
            Bmp.SetResolution(72, 72) '<--- 設定 DPI.
            Bmp.Save(FileNamePath2, Imaging.ImageFormat.Jpeg)
        End Using

'----B方法----------------  
        'Dim Bmp As Bitmap = Image.FromFile(FileNamePath3)
        'Bmp.SetResolution(72, 72) '<--- 設定 DPI.
        'Bmp.Save(FileNamePath2, Imaging.ImageFormat.Jpeg)

搜尋相關Tags的文章： [ image ] , [ dpi ] ,
本篇文章發表於2018-11-07 11:53

1樓

作者回應

MStone Lin

網路上找的

多加一行
Dim Bmp1 As Bitmap = Image.FromFile(FileNamePath3)
Dim newBitmap As Bitmap = New Bitmap(Bmp1) <----多這行，原因?
newBitmap.SetResolution(72, 72) '<--- 設定 DPI.
newBitmap.Save(FileNamePath2, Imaging.ImageFormat.Jpeg)

本篇文章回覆於2018-11-07 13:54

== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.