溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊(cè)×
其他方式登錄
點(diǎn)擊 登錄注冊(cè) 即表示同意《億速云用戶服務(wù)條款》

VB.NET中怎么獲取二進(jìn)制圖像

發(fā)布時(shí)間:2021-07-19 16:09:35 來(lái)源:億速云 閱讀:251 作者:Leah 欄目:編程語(yǔ)言

VB.NET中怎么獲取二進(jìn)制圖像,相信很多沒(méi)有經(jīng)驗(yàn)的人對(duì)此束手無(wú)策,為此本文總結(jié)了問(wèn)題出現(xiàn)的原因和解決方法,通過(guò)這篇文章希望你能解決這個(gè)問(wèn)題。

從 Byte() 中進(jìn)行VB.NET二進(jìn)制圖像的獲取

  1. Public Function GetImage
    FromStream
    ()Function GetImageFromStream
    (ByVal ImageStream As Byte())
     As Image  

  2. Me.mobjImage = Nothing 

  3. If (ImageStream Is Nothing)
     Then  

  4. Return False  

  5. End If 

  1. Dim index As Integer = 0 

  2. If (((ImageStream(0) = &H15) 
    AndAlso (ImageStream(1) = &H1C)) 
    AndAlso (ImageStream.Length 
    >= 80)) Then  

  3. index = &H4E  

  4. Do While (index < (ImageStream.
    Length - 1))  

  5. If ((ImageStream(index) = &H42)
     AndAlso (ImageStream((index + 
    1)) = &H4D)) Then  

  6. Exit Do  

  7. End If  

  8. index += 1  

  9. Loop  

  10. If ((ImageStream(index) <> &H42)
     OrElse (ImageStream((index 
    + 1)) <> &H4D)) Then  

  11. index = &H87  

  12. End If  

  13. End If 

  1. Try  

  2. Dim stream As New MemoryStream
    (ImageStream, index, 
    (ImageStream.Length - index))  

  3. objImage = Drawing.Image.
    FromStream(stream)  

  4. Catch obj1 As Exception  

  5. return nothing  

  6. End Try  

  7. Return objImage  

  8. End Function  

看完上述內(nèi)容,你們掌握VB.NET中怎么獲取二進(jìn)制圖像的方法了嗎?如果還想學(xué)到更多技能或想了解更多相關(guān)內(nèi)容,歡迎關(guān)注億速云行業(yè)資訊頻道,感謝各位的閱讀!

向AI問(wèn)一下細(xì)節(jié)

免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI