vb.net图片转字符的简单介绍

VB.NET中怎么将图片和MP3等存进SQL server2000的数据库中？

为图片、照片、MP3、rmvb指定专属文件名称和文件夹，SQL数据库中定义字符串字段存储他们的路径。

我们提供的服务有：成都做网站、成都网站建设、微信公众号开发、网站优化、网站认证、天河ssl等。为千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的天河网站制作公司

制作对应控件，绑定到对应的文件类型上去。

范例 网页中插入图片 图片来源数据库

1、在网站主目录下建立一个文件夹 Photo 将 张三.jpg图片存进去

2、数据库表1.字段1中存放 张三

3、在pic.aspx中使用一个Image控件 ID=Image1

4、pic.aspx.cs文件中代码如下

string x=""

*****************//查询数据库 并将"张三"赋值给x这部分代码省略

Image1.ImageUrl = "/photo/" + x.ToString() + ".jpg";

希望能解决你的问题。

vb.net2003如何将二进制流转换成图片显示在网页上?

好像没有什么好办法，你只有不用数值型的文本框，还是改用字符型的，这样不论点击哪里光标都会出现在最前面，然后在代码中用val()函数将其转换为数值型

VB UTF-8 问题

Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long

Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Private Const CP_UTF8 = 65001

Function Utf8ToUnicode(ByRef Utf() As Byte) As String

Dim lRet As Long

Dim lLength As Long

Dim lBufferSize As Long

lLength = UBound(Utf) - LBound(Utf) + 1

If lLength = 0 Then Exit Function

lBufferSize = lLength * 2

Utf8ToUnicode = String$(lBufferSize, Chr(0))

lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(Utf(0)), lLength, StrPtr(Utf8ToUnicode), lBufferSize)

If lRet 0 Then

Utf8ToUnicode = Left(Utf8ToUnicode, lRet)

End If

End Function

Private Sub Form_Load()

Dim a As String

Dim b() As Byte

Dim i As Integer

a = "E9 A2 91 E9 81 93 31 00"

ReDim b(UBound(Split(a, " ")) - 1) As Byte

For i = 0 To UBound(Split(a, " ")) - 1

b(i) = "H" Split(a, " ")(i)

Next i

Text1.Text = Utf8ToUnicode(b())

End Sub

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文件读取txt

1、实现上传按钮方法代码。

2、判断图片对象是否为空代码。

3、取得数据库字段 dt.Rows(0)("Pic")方法代码。

4、字节数组转换为Image类型方法代码。

5、处理SQL中操作Image类型方法代码。

6、实现的上传结果。