Как преобразовать файл изображения BMP в текстовый файл в VB
Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Dim OpenFileDialog1 As OpenFileDialog
'If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
'PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
'End If
Dim openFileDialog1 As OpenFileDialog = New OpenFileDialog
' Set filter options and filter index.
openFileDialog1.Filter = "BMP Files (*.bmp)|*.bmp|All Files (*.*)|*.*"
openFileDialog1.FilterIndex = 1
openFileDialog1.Multiselect = True
' Call the ShowDialog method to show the dialogbox.
Dim UserClickedOK As Boolean = openFileDialog1.ShowDialog
PictureBox1.Image = Image.FromFile(openFileDialog1.FileName)
End Sub
End Class
С помощью этого куска кода я могу отслеживать и открывать изображение. Теперь я хочу получить доступ к данным изображения и хочу отобразить. Для этого я должен преобразовать изображение в текстовый файл. Как это возможно?. В C#
есть функция называется Readimage
, Какая функция поможет мне прочитать изображение в VB?
1 ответ
Решение
Я думаю, что вам нужно использовать File.ReadAllBytes
это открывает двоичный файл, читает содержимое файла в байтовый массив, а затем закрывает файл.
Dim data() as Byte = File.ReadAllBytes(path)