#Region "二進(jìn)制文件的存儲(chǔ)函數(shù)" Public Function BinaryToFile(ByRef TableRowColItem As Object, ByVal FileName As String) As Boolean Dim data As Byte() = TableRowColItem

成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、灤南網(wǎng)絡(luò)推廣、小程序定制開發(fā)、灤南網(wǎng)絡(luò)營銷、灤南企業(yè)策劃、灤南品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等,從售前售中售后,我們都將竭誠為您服務(wù),您的肯定,是我們最大的嘉獎(jiǎng);成都創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供灤南建站搭建服務(wù),24小時(shí)服務(wù)熱線:028-86922220,官方網(wǎng)址:chinadenli.net
Dim myfilestream As New System.IO.FileStream(FileName, IO.FileMode.Create)
myfilestream.Write(data, 0, data.Length)
myfilestream.Close()
Return True
End Function Public Function BinaryToImage(ByRef TableRowColItem As Object, ByRef image As Image) As Boolean Dim data As Byte() = TableRowColItem Dim imgStream As New System.IO.MemoryStream '(data)
imgStream.Write(data, 0, data.Length)
image = System.Drawing.Image.FromStream(imgStream)
imgStream.Close()
imgStream.Dispose() Return True
End Function
Public Function BinaryFromFile(ByVal FileName As String, ByRef TableRowColItem As Object) As Boolean Using myfilestream As New FileStream(FileName, FileMode.Open, FileAccess.Read)
Dim data() As Byte
ReDim data(myfilestream.Length - 1)
myfilestream.Read(data, 0, myfilestream.Length)
myfilestream.Close()
TableRowColItem = data End Using
Return True
End Function Public Function BinaryFromImage(ByRef Image As Image, ByRef TableRowColItem As Object) As Boolean
Dim imgStream As New MemoryStream
Dim b As New Bitmap(Image) b.Save(imgStream, System.Drawing.Imaging.ImageFormat.Jpeg) Dim data As Byte() = imgStream.GetBuffer
TableRowColItem = data
data = TableRowColItem
imgStream.Close()
imgStream.Dispose() Return True
End Function Public Function BinaryFromImage(ByVal Image As Image, ByRef TableRowColItem As Object, ByVal imgFormat As System.Drawing.Imaging.ImageFormat) As Boolean
Dim imgStream As New MemoryStream
'Image.Save(imgStream, imgFormat)
'Dim b As New Bitmap(Image)
'b.Save("c:\a.bmp", imgFormat)
'b.Save("c:\a.bmp", imgFormat) Dim data As Byte() = imgStream.GetBuffer TableRowColItem = data
data = TableRowColItem
imgStream.Close()
Return True
End Function
#End Region
將PictureBox控件里的圖片,保存為文件:
1,文件格式不變化:
PictureBox1.Image.Save("C:\" Format(Now, "HH-mm-ss") ".bmp")
2,文件格式有變化:
PictureBox1.Image.Save("C:\" Format(Now, "HH-mm-ss") ".bmp", System.Drawing.Imaging.ImageFormat.Bmp)
在VB 學(xué)習(xí)中,絕對(duì)路徑就是指帶有盤符的固定的路徑,比如“c:\windows\systems\a.exe” 而相對(duì)路徑則可用APP.PATH連接文件名來表示,比如:App.Path "\a.exe"
以vb學(xué)習(xí)中加載圖片為例,這樣就容易弄明白了。假設(shè)我們要在vb中加載一幅圖片,假設(shè)我們把這個(gè)加載圖片的程序保存在如下位置:"E:\aa-vbnew\加載圖片講解"而我們的圖片在"D:\My Files\圖畫\tong.jpg"
那么情況如下:1,在代碼中直接以絕對(duì)路徑表示加載到form1中,如圖所示:
顯示結(jié)果如下:
2,換一種方式,以相對(duì)路徑直接加載也可以。程序如圖:
結(jié)果如上圖。
下面分析如下:
第一種方式,我們使用的是圖片的完整路徑,就稱之為絕對(duì)路徑,也就是說不管我們的這個(gè)VB程序放到硬盤的任何位置,都完全可以顯示出來這幅圖片,因?yàn)閳D片的路徑是絕對(duì)的,只要不改變圖片的路徑,那么就是絕對(duì)不變的。
第二種方式,我們使用的是圖片的相對(duì)路徑,相對(duì)于誰呢?是相對(duì)于我們的VB這個(gè)應(yīng)用程序和這幅圖片自身位置的。一旦我們的程序位置發(fā)生變化或者圖片的位置發(fā)生改變,那么這個(gè)程序都不可以執(zhí)行,不會(huì)顯示這幅圖片。所以說這就是相對(duì)路徑,是以一個(gè)參考對(duì)象而存在的。
我理解你
我寫過圖片網(wǎng)絡(luò)傳輸?shù)暮湍阋蟮囊粯?/p>
為了不把圖片寫到硬盤 又從硬盤讀取
而直接保存圖片內(nèi)存流 進(jìn)行網(wǎng)絡(luò)傳輸
從網(wǎng)絡(luò)讀取的圖片byte數(shù)組轉(zhuǎn)成圖片代碼如下
Dim mStream As New IO.MemoryStream
mStream.Write(b, 0, b.length) '這里b就是你的一維數(shù)組了
Dim Img As New Bitmap(mStream)
mStream.Close()
mStream.Dispose()
下面是把圖片保存到一維數(shù)組的方法
Dim Stream As New IO.MemoryStream
im.Save(Stream, System.Drawing.Imaging.ImageFormat.Jpeg)
im = Nothing
Stream.Flush()
Dim b As Byte() = Stream.ToArray
Stream.Dispose()
網(wǎng)站欄目:vb.net照片如何存儲(chǔ) vb 保存圖片
鏈接地址:http://chinadenli.net/article0/ddoddoo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供用戶體驗(yàn)、企業(yè)建站、ChatGPT、品牌網(wǎng)站設(shè)計(jì)、電子商務(wù)、網(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)