在VB.net中如何將圖片轉(zhuǎn)換成二進(jìn)制保存到Accees中

在access數(shù)據(jù)庫里將字段的類型設(shè)置為ole對(duì)象

專業(yè)領(lǐng)域包括網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、商城網(wǎng)站定制開發(fā)、微信營(yíng)銷、系統(tǒng)平臺(tái)開發(fā)， 與其他網(wǎng)站設(shè)計(jì)及系統(tǒng)開發(fā)公司不同，創(chuàng)新互聯(lián)的整合解決方案結(jié)合了幫做網(wǎng)絡(luò)品牌建設(shè)經(jīng)驗(yàn)和互聯(lián)網(wǎng)整合營(yíng)銷的理念，并將策略和執(zhí)行緊密結(jié)合，為客戶提供全網(wǎng)互聯(lián)網(wǎng)整合方案。

Public img As Byte() '圖片處理用的字節(jié)數(shù)組

img=My.Computer.FileSystem.ReadAllBytes(filePath)'filePath是你圖片文件的路徑

剩下的就是數(shù)據(jù)庫插入操作了

Dim?cn?As?New?OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data?Source=Data.mdb")

Dim?comm?As?OleDb.OleDbCommand

comm?=?New?OleDb.OleDbCommand(?_

"INSERT?INTO?Photo(BuFan_F,PhotoNo,Photo)?Values('"??Me.CobBuFan.Text.Trim??"','"??Me.txtNo.Text.Trim??"',@image)",?cn)

'向數(shù)據(jù)庫添加存儲(chǔ)了圖片數(shù)據(jù)的二進(jìn)制數(shù)組

comm.Parameters.Add("@image",?_

OleDb.OleDbType.Binary,?img.Length).Value?=?img

If?cn.State?=?ConnectionState.Closed?Then?cn.Open()?'打開數(shù)據(jù)庫連接

comm.ExecuteNonQuery()?'執(zhí)行數(shù)據(jù)庫命令

If?cn.State?=?ConnectionState.Open?Then?cn.Close()?'關(guān)閉數(shù)據(jù)庫連接

MessageBox.Show("圖片成功保存到數(shù)據(jù)庫",?"完成",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

vb.net(2008)把圖片(或其它類型文件)轉(zhuǎn)換成字符串存入.txt文件中，并從.txt中讀出生成圖片

這個(gè)做法應(yīng)該是圖方便的加密解密做法。按你的C#代碼來改的話是這樣的。

'Imports System.IO

Public Function MapPath(ByVal virtualPath As String) As String

' Return System.Web.Hosting.MapPath(virtualPath)

' 猜想是這個(gè) MapPath 函數(shù)

' 如果不是那就自己還原原來C#代碼里的那個(gè)MapPath

End Function

Public Sub GetImage()

Dim s As System.IO.Stream = System.IO.File.Open(MapPath("33.jpg"), System.IO.FileMode.Open)

Dim leng As Integer = 0

If s.Length Int32.MaxValue Then

leng = s.Length

End If

Dim by(leng) As Byte

s.Read(by, 0, leng) ' 把圖片讀到字節(jié)數(shù)組中

s.Close()

Dim str As String = Convert.ToBase64String(by) ' 把字節(jié)數(shù)組轉(zhuǎn)換成字符串

Dim sw As System.IO.StreamWriter = System.IO.File.CreateText(MapPath("11.txt")) ' 存入11.txt文件

sw.Write(str)

sw.Close()

sw.Dispose()

End Sub

' 把字符串還原成圖片

Public Sub CreateImg()

Dim sr As New System.IO.StreamReader(MapPath("11.txt"))

Dim s As String = sr.ReadToEnd()

sr.Close()

Dim buf As Byte() = Convert.FromBase64String(s) ' 把字符串讀到字節(jié)數(shù)組中

Dim ms As New System.IO.MemoryStream(buf)

Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(ms)

img.Save(MapPath("12.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)

ms.Close()

ms.Dispose()

End Sub

VB.net中如何把一個(gè)圖片轉(zhuǎn)換成xml存放起來

我不是大神。。我我我我我。。。看不懂你再說什么。。制作圖片么？

本文題目：Vb.net圖片轉(zhuǎn)字符串 圖片轉(zhuǎn)字符串的生成
分享網(wǎng)址：http://vcdvsql.cn/article34/hepgse.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供關(guān)鍵詞優(yōu)化、App設(shè)計(jì)、網(wǎng)站制作、域名注冊(cè)、網(wǎng)站建設(shè)、商城網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)