vb.net 圖片轉(zhuǎn)換二進(jìn)制代碼

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

路南ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書(shū)未來(lái)市場(chǎng)廣闊！成為創(chuàng)新互聯(lián)的ssl證書(shū)銷售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：028-86922220（備注：SSL證書(shū)合作）期待與您的合作！

Dim MyStream As New System.IO.MemoryStream

Me.PictureBox1.Image.Save(MyStream, System.Drawing.Imaging.ImageFormat.Jpeg)

Dim MyBytes(MyStream.Length) As Byte

MyStream.Read(MyBytes, 0, MyStream.Length)

MyStream.Close()

Dim strText As String

strText = BitConverter.ToString(MyBytes)

Me.TextBox1.Text = strText

End Sub

vb.net如何讀寫二進(jìn)制文件？ 有各種類型的變量

open函數(shù)用來(lái)打開(kāi)一個(gè)文件，其調(diào)用的一般形式為：

文件指針名=fopen(文件名,使用文件方式);

其中，

“文件指針名”必須是被說(shuō)明為FILE

類型的指針變量；

“文件名”是被打開(kāi)文件的文件名；

“使用文件方式”是指文件的類型和操作要求。

“文件名”是字符串常量或字符串?dāng)?shù)組。

例如：

FILE

*fp；

fp=("file

a","r");

其意義是在當(dāng)前目錄下打開(kāi)文件file

a，只允許進(jìn)行“讀”操作，并使fp指向該文件。

又如：

FILE

*fphzk

fphzk=("c:\\hzk16","rb")

其意義是打開(kāi)C驅(qū)動(dòng)器磁盤的根目錄下的文件hzk16，這是一個(gè)二進(jìn)制文件，只允許按二進(jìn)制方式進(jìn)行讀操作。兩個(gè)反斜線“\\

”中的第一個(gè)表示轉(zhuǎn)義字符，第二個(gè)表示根目錄。

使用文件的方式共有12種，下面給出了它們的符號(hào)和意義。

文件使用方式

意義

“rt”

只讀打開(kāi)一個(gè)文本文件，只允許讀數(shù)據(jù)

“wt”

只寫打開(kāi)或建立一個(gè)文本文件，只允許寫數(shù)據(jù)

“at”

追加打開(kāi)一個(gè)文本文件，并在文件末尾寫數(shù)據(jù)

“rb”

只讀打開(kāi)一個(gè)二進(jìn)制文件，只允許讀數(shù)據(jù)

“wb”

只寫打開(kāi)或建立一個(gè)二進(jìn)制文件，只允許寫數(shù)據(jù)

“ab”

追加打開(kāi)一個(gè)二進(jìn)制文件，并在文件末尾寫數(shù)據(jù)

“rt+”

讀寫打開(kāi)一個(gè)文本文件，允許讀和寫

“wt+”

讀寫打開(kāi)或建立一個(gè)文本文件，允許讀寫

“at+”

讀寫打開(kāi)一個(gè)文本文件，允許讀，或在文件末追加數(shù)據(jù)

“rb+”

讀寫打開(kāi)一個(gè)二進(jìn)制文件，允許讀和寫

“wb+”

讀寫打開(kāi)或建立一個(gè)二進(jìn)制文件，允許讀和寫

“ab+”

讀寫打開(kāi)一個(gè)二進(jìn)制文件，允許讀，或在文件末追加數(shù)據(jù)

對(duì)于文件使用方式有以下幾點(diǎn)說(shuō)明：

1)

文件使用方式由r,w,a,t,b，+六個(gè)字符拼成，各字符的含義是：

r(read):

讀

w(write):

寫

a(append):

追加

t(text):

文本文件，可省略不寫

b(banary):

二進(jìn)制文件

+:

讀和寫

2)

凡用“r”打開(kāi)一個(gè)文件時(shí)，該文件必須已經(jīng)存在，且只能從該文件讀出。

3)

用“w”打開(kāi)的文件只能向該文件寫入。若打開(kāi)的文件不存在，則以指定的文件名建立該文件，若打開(kāi)的文件已經(jīng)存在，則將該文件刪去，重建一個(gè)新文件。

4)

若要向一個(gè)已存在的文件追加新的信息，只能用“a”方式打開(kāi)文件。但此時(shí)該文件必須是存在的，否則將會(huì)出錯(cuò)。

5)

在打開(kāi)一個(gè)文件時(shí)，如果出錯(cuò)，fopen將返回一個(gè)空指針值NULL。在程序中可以用這一信息來(lái)判別是否完成打開(kāi)文件的工作，并作相應(yīng)的處理。因此常用以下程序段打開(kāi)文件：

6)

if((fp=fopen("c:\\hzk16","rb")==NULL)

{

printf("\nerror

on

open

c:\\hzk16

file

vb.net 將文件轉(zhuǎn)化成二進(jìn)制

首先引入System.IO命名空間

Imports System.IO

然后使用文件流來(lái)讀入數(shù)組：

Dim bytes() As Byte

Using fs As New FileStream(文件路徑,FileMode.Open)

ReDim bytes(fs.Length-1)

fs.Read(bytes,0,fs.Length)

fs.Close()

End Using

這樣bytes就是整個(gè)文件的所有字節(jié)了

從字節(jié)生成Image：

Dim img As Image = Image.FromStream(New MemoryStream(bytes))

img就是圖片了

vb.net 二進(jìn)制讀取文件

VB.NET打開(kāi)二進(jìn)制文件用fileopen完成，打開(kāi)二進(jìn)制文件的形式為：openmode.binary

讀取二進(jìn)制文件用的是fileget方法，寫入二進(jìn)制文件用的是fileput方法。

應(yīng)用示例：將一批隨機(jī)數(shù)保存在一個(gè)dat文件中，然后再將其提取到文本框中。

二進(jìn)制文件的讀寫一批隨機(jī)數(shù)的存取，程序?yàn)椋?/p>

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x, i, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

For i = 1 To 8

x = Int(Rnd() * 100)

s = s + Str(x)

FilePut(fn, x)

Next

FileClose(fn)

TextBox1.Text = s

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim x, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

Do While Not EOF(fn)

FileGet(fn, x)

s = s + Str(x) + " "

Loop

FileClose(fn)

TextBox1.Text = s

End Sub

文章標(biāo)題：vb.net字符轉(zhuǎn)2進(jìn)制,vb十六進(jìn)制轉(zhuǎn)二進(jìn)制
路徑分享：http://chinadenli.net/article48/dseophp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供建站公司、關(guān)鍵詞優(yōu)化、搜索引擎優(yōu)化、手機(jī)網(wǎng)站建設(shè)、軟件開(kāi)發(fā)、云服務(wù)器

廣告

聲明：本網(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í)需注明來(lái)源： 創(chuàng)新互聯(lián)