资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

包含vb.net图片格式转换的词条

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 函数

' 如果不是那就自己还原原来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) ' 把图片读到字节数组中

s.Close()

Dim str As String = Convert.ToBase64String(by) ' 把字节数组转换成字符串

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) ' 把字符串读到字节数组中

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如何将图片转二进制

'容易,用api,查一查SetBitmapBits

'新建工程,增加一个 command button , 一个 picture box , 将图片加载到 picture box.

'将代码粘贴到 Form1

Private Type BITMAP

bmType As Long

bmWidth As Long

bmHeight As Long

bmWidthBytes As Long

bmPlanes As Integer

bmBitsPixel As Integer

bmBits As Long

End Type

Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long

Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long

Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long

Dim PicBits() As Byte, PicInfo As BITMAP, Cnt As Long

Private Sub Command1_Click()

'Get information (such as height and width) about the picturebox

GetObject Picture1.Image, Len(PicInfo), PicInfo

'reallocate storage space

ReDim PicBits(1 To PicInfo.bmWidth * PicInfo.bmHeight * 3) As Byte

'Copy the bitmapbits to the array

GetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)

'Invert the bits

For Cnt = 1 To UBound(PicBits)

PicBits(Cnt) = 255 - PicBits(Cnt)

Next Cnt

'Set the bits back to the picture

SetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)

'refresh

Picture1.Refresh

End Sub

VB.NET 如何实现图片转PDF呢?

你说的不太满意是什么意思,你莫非是希望图片转换成的pdf能被选中文字并复制粘贴?

在VB.net中如何将图片转换成二进制保存到Accees中

在access数据库里将字段的类型设置为ole对象

Public img As Byte() '图片处理用的字节数组

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

剩下的就是数据库插入操作了

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)

'向数据库添加存储了图片数据的二进制数组

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

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

If cn.State = ConnectionState.Closed Then cn.Open() '打开数据库连接

comm.ExecuteNonQuery() '执行数据库命令

If cn.State = ConnectionState.Open Then cn.Close() '关闭数据库连接

MessageBox.Show("图片成功保存到数据库", "完成", MessageBoxButtons.OK, MessageBoxIcon.Information)


分享名称:包含vb.net图片格式转换的词条
网页路径:http://cdkjz.cn/article/doogesj.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220