vb.net2003如何將二進制流轉換成圖片顯示在網頁上?

好像沒有什么好辦法，你只有不用數(shù)值型的文本框，還是改用字符型的，這樣不論點擊哪里光標都會出現(xiàn)在最前面，然后在代碼中用val()函數(shù)將其轉換為數(shù)值型

創(chuàng)新互聯(lián)專注于企業(yè)全網營銷推廣、網站重做改版、雜多網站定制設計、自適應品牌網站建設、HTML5、購物商城網站建設、集團公司官網建設、外貿網站建設、高端網站制作、響應式網頁設計等建站業(yè)務，價格優(yōu)惠性價比高，為雜多等各大城市提供網站開發(fā)制作服務。

VB 把D:\1.bmp 圖片轉成二進制數(shù)據(jù)流放入 Form1.Text1.Text

如圖：

圖片文件:2562.bmp

1、讀 BMP 文件，并將字節(jié)內容顯示在窗體 Text1 中

'按二進制格式讀取BMP文件

Dim FileNum As Long

Dim FileName As String

Dim tmpStr As Byte

'??? Dim i As Integer

Dim readStr As String

FileName = "D:\vbtemp\2562.bmp"

FileNum = FreeFile()

Open FileName For Binary As FileNum

readStr = ""

Text1.Text = ""

'?? i = 1

Do While Not EOF(FileNum)

Get #FileNum, , tmpStr

If Len(Hex(tmpStr)) = 1 Then

readStr = readStr "0" Hex(tmpStr)

Else

readStr = readStr Hex(tmpStr)

End If

'???? i = i + 1

Loop

Text1 = readStr

Close FileNum

2、將該窗體中 Text1中的內容保存為另一個 BMP 文件

'把Text1 中的內容按二進制格式寫入 BMP 文件

Dim FileNum As Long

Dim FileName As String

Dim tmpStr As Byte

Dim i As Integer

Dim readStr As String

FileName = "D:\vbtemp\256-2.bmp"

FileNum = FreeFile()

Open FileName For Binary As FileNum

readStr = ""

For i = 1 To Len(Text1) Step 2

readStr = "H" Mid(Text1, i, 2)

tmpStr = Val(readStr)

Put #FileNum, , tmpStr

Next i

Close FileNum

3、這里需要注意的是：bmp文件不能太大，因為兩段程序都是循環(huán)讀寫文件，如果bmp文件的字節(jié)太大，直接影響讀寫的效果，而且?TextBox 控件中存放字符串的長度也有限制。我提供的源圖2562.bmp 文件大小為4K.

vb.net 中如何將圖片保存到SQL數(shù)據(jù)庫

保存路徑最好，我?guī)讉€項目都是這樣。

具體如何保存，需要看你使用什么樣的上傳控件才可以定。

個人推薦一個是CFUPDATE，不錯的控件，你可以了解，如果有不清楚，可以再問我。

VB.net中如何把一個圖片轉換成xml存放起來

我不是大神。。我我我我我。。?？床欢阍僬f什么。。制作圖片么？

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

這個做法應該是圖方便的加密解密做法。按你的C#代碼來改的話是這樣的。

'Imports System.IO

Public Function MapPath(ByVal virtualPath As String) As String

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

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

' 如果不是那就自己還原原來C#代碼里的那個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ù)組轉換成字符串

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中如何將圖片轉換成二進制保存到Accees中

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

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ù)庫添加存儲了圖片數(shù)據(jù)的二進制數(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()?'關閉數(shù)據(jù)庫連接

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

網頁題目：vb.net圖片轉換為流,VB窗體圖片轉換
文章地址：http://jinyejixie.com/article32/hojpsc.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供網站收錄、外貿建站、建站公司、搜索引擎優(yōu)化、做網站、微信小程序

廣告

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