sql server 中如何来存 图片？

如何把图片存入数据库

以ASP为例：


插入图片的必要条件

在开始上传之前，有两件重要的事要做：

＃Form 标记的 enctype 属性应该设置成 enctype="multipart/form-data"

# 需要一个<input type=file>表单来使用户选择他们要上传的文件，同时我们需要导入 System.IO名称空间来处理流对象

把以上三点应用到aspx页面。同时我们需要对SqlServer做以下的准备。

＃ 需要至少含有一个图片类型的字段的表

＃ 如果我们还有另外一个变字符类型的字段来存储图片类型，那样会更好一些。

现在，我们准备了一个Sql表（包含了一个image数据类型的字段）,还有<input type=file>标记。当然我们还得准备Submit按钮，以便用户在选择了图片以后提交。在这个按钮的Onclick事件里，我们需要读取选取图片的内容，然后把它存入到表里。那我们先来看看这个Onclick事件。

提交按钮的Onclick事件的代码：



Dim intImageSize As Int64
Dim strImageType As String
Dim ImageStream As Stream

' Gets the Size of the Image
intImageSize = PersonImage.PostedFile.ContentLength

' Gets the Image Type
strImageType = PersonImage.PostedFile.ContentType

' Reads the Image
ImageStream = PersonImage.PostedFile.InputStream

Dim ImageContent(intImageSize) As Byte
Dim intStatus As Integer
intStatus = ImageStream.Read(ImageContent, 0, intImageSize)

' Create Instance of Connection and Command Object
Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim myCommand As New SqlCommand("sp_person_isp", myConnection)

' Mark the Command as a SPROC
myCommand.CommandType = CommandType.StoredProcedure

' Add Parameters to SPROC
Dim prmPersonImage As New SqlParameter("@PersonImage", SqlDbType.Image)
prmPersonImage.Value = ImageContent
myCommand.Parameters.Add(prmPersonImage)

Dim prmPersonImageType As New SqlParameter("@PersonImageType", SqlDbType.VarChar, 255)
prmPersonImageType.Value = strImageType
myCommand.Parameters.Add(prmPersonImageType)

Try
myConnection.Open()
myCommand.ExecuteNonQuery()
myConnection.Close()
Response.Write("New person successfully added!")
Catch SQLexc As SqlException
Response.Write("Insert Failed. Error Details are: " & SQLexc.ToString())
End Try



它是怎么工作的？
PersonImage是HTMLInputFile控件的对象。首先需要获得图片的大小，可以使用下面的代码实现：

intImageSize = PersonImage.PostedFile.ContentLength

然后返回图片的类型使用ContenType属性。最后，也是最重要的事就是取得Image Stream,这可以用以下代码实现：

ImageStream = PersonImage.PostedFile.InputStream

我们需要一个字节型数组来存储image 内容。读取整个图片可以使用Stream对象的Read方法来实现。Read（in byte[] buffer,int offset,int count）方法有三个参数。【关于Read方法的详细可以参看.Net FrameWorkSDK】他们是：

buffer

字节数组。此方法返回时，该缓冲区包含指定的字符数组，该数组的 offset 和 (offset + count) 之间的值由从当前源中读取的字节替换。

offset

buffer 中的从零开始的字节偏移量，从此处开始存储从当前流中读取的数据。

count

要从当前流中最多读取的字节数。

这个Read方法用以下代码实现：
intStatus = ImageStream.Read(ImageContent, 0, intImageSize)
.

现在，我们已经读取了整个图片的内容，下一步，我们要把这些内容存入到sql 表。我们将使用存储过程来完成插入图片类型和图片内容到sql 表。如果你浏览了上面的代码，你将会发现我们使用了sqldbtype.image的数据类型（datatype）。Ok了，完成了这些，我们也就成功的把图片存入到SqlServer中了。

以下是另一篇文章：

作者：何益斌 高景昌 李小琳


如何用VB存取SQL Server中的图像数据

摘要 本文介绍MIS SQL Server对图像数据的存储机制和存取方法。针对VB开发工具，介绍了一种通过ADO Field 对象的GetChunk 方法和AppendChunk 方法来存取MIS SQL Server中的图像数据的方法。
关键词 ADO Field对象 BLOB 对象 GetChunk和AppendChunk 方法 image数据类型 医院信息系统
MIS SQL Server

在一个完善的医院信息MIS中，图像数据的存取是必不可少的，比如X光片、CT像片的保存。一方面，这些图像数据在远程诊疗为准确诊断病情提供了重要的依据，另一方面，也为快速查阅病人资料提供了基本条件。图像数据的存取在其它应用系统如GIS中也有广泛的应用。
1、 SQL Server中图像数据的存储机制
在MIS SQL Server 中，对于小于 8000 个字节的图像数据可以用二进制型(binary、varbinary)来表示。但通常要保存的一些医学影像图片都会大于 8000个字节。SQL Server提供了一种机制，能存储每行大到 2G的二进制对象（BLOB），这类对象可包括image、text和ntext三种数据类型。Image数据类型存储的是二进制数据，最大长度是 231-1 (2,147,483,647)个字节[2][3]。
BLOB数据在MIS SQL Server系统中的存储方式不同于普通的数据类型，对于普通类型的数据系统直接在用户定义的字段上存储数据值，而对于BLOB类型数据，系统开辟新的存储页面来存放这些数据，表中BLOB类型数据字段存放的仅是一个16个字节的指针，该指针指向存放该条记录的BLOB数据的页面。
2、 SQL Server中图像数据的存取
在MIS SQL Server中，当数据小于 8000 个字节时，可以用普通的SQL*纵语句(SELECT、INSERT、UPDATE、DELETE)来完成对字段的*纵，当数据大于8000个字节时，SQL提供了 WRITETEXT 、READTEXT和UPDATETEXT这三个函数来读取和修改数据。这三个函数的使用方法为：
(1) WRITETEXT {table.column text_ptr}[WITH LOG] {data}
table.column为表中的字段，text_ptr为一个16个字节的指针，data为要写的数据值。可
选参数WITH LOG表示是否要写入日志文件中。
例: DECLARE @ptrval binary(16) --指针
SELECT @ptrval = TEXTPTR(img_ct) FROM zy_ct WHERE id_ct = 20010101001
WRITETEXT zy_ct.img_ct @ptrval 0x024324142342134214213421421454353452341
(2) READTEXT {table.column text_ptr offset size} [HOLDLOCK]
table.column为表中的字段，text_ptr为一个16个字节的指针，offset 为偏移量，即从
第几个字节开始读数据，size为要读的字节数，HOLDLOCK 为在读数据中是否充许其他用户
修改该数据。
例：DECLARE @ptrval varbinary(16)
SELECT @ptrval = TEXTPTR(img_ct) FROM zy_ct WHERE id_ct = 20010101001
READTEXT zy_ct.img_ct @ptrval 1 25
(3) UPDATETEXT {table_name.dest_column_name dest_text_ptr}{NULL|insert_offset}
{ NULL | delete_length}[WITH LOG][ inserted_data| {table_name.src_column_name src_text_ptr}]
table_name.dest_column_name 为要修改的text, ntext, 或 image字段；
dest_text_ptr为指向其的指针；insert_offset为偏移量，对于text和image为从
第几开始字节开始写，对于ntext为从第几个字符(双字节)开始写；delete_length
为从insert_offset开始删除delete_length长度的字节（符），为0时不删除，为NULL时
为删除从insert_offset开始到结束的所有数据。要插入的数据为 inserted_data为，也可
是表table_name的src_column_name字段中指针 src_text_ptr所指数据。
例: DECLARE @ptrval binary(16)
SELECT @ptrval = TEXTPTR(img_ct) FROM zy_ct WHERE id_ct = 20010101001
UPDATETEXT zy_ct.img_ct @ptrval 16 0x54345
可以看出，这三个函数的使用比较复杂，虽然可以通过生成存贮过程来调用执行，但有一个缺陷是在读取数据时，READTEXT函数读取的数据无法直接传递回前端应用程序。
3、 VB 6.0中图像数据的存取
VB 6.0 的ADO Field 对象提供了GetChunk 方法和AppendChunk 方法来存取BLOB数据[1]，这两个函数实质是通过API调用WRITETEXT 、READTEXT和UPDATETEXT这三个函数，简化了调用的方法。
（1）GetChunk 和AppendChunk方法介绍
GetChunk 方法检索其部分或全部长二进制或字符数据[4]。GetChunk 调用返回的数据将赋给“变量”。如果 Size 大于剩余的数据，则 GetChunk 仅返回剩余的数据而无需用空白填充“变量”。如果字段为空，则 GetChunk 方法返回 Null。每个后续的 GetChunk 调用将检索从前一次 GetChunk 调用停止处开始的数据。但是，如果从一个字段检索数据然后在当前记录中设置或读取另一个字段的值，ADO 将认为已从第一个字段中检索出数据。如果在第一个字段上再次调用 GetChunk 方法，ADO 将把调用解释为新的 GetChunk *作并从记录的起始处开始读取。Field 对象的第一个 AppendChunk 调用将数据写入字段，覆盖所有现有的数据，随后的 AppendChunk 调用则添加到现有数据。
由于系统资源总是有限的，如果一次读(存)取大量数据，可能会引起服务器、客户机死机或是服务器的性能大大下降，因此使用这两个函数时，要将图像数据进行分段读写。
(2)程序实现
程序一：写数据函数
Public Function AppendBlobFromFile(blobColumn As ADODB.Field, ByVal FileName) As Boolean
Dim FileNumber As Integer '文件号
Dim DataLen As Long '文件长度
Dim Chunks As Long '数据块数
Dim ChunkAry() As Byte '数据块数组
Dim ChunkSize As Long '数据块大小
Dim Fragment As Long '零碎数据大小
Dim lngI As Long '计数器

On Error GoTo ErrorHandle
AppendBlobFromFile = False
ChunkSize = 2048 '限制每次读取的块大小为 2K

FileNumber = FreeFile '产生随机的文件号
Open FileName For Binary Access Read As FileNumber '打开图像文件
DataLen = LOF(FileNumber) '获得文件长度
If IsNull(blobColumn) Then Exit Function

If DataLen = 0 Then '文件长度为0
Close FileNumber
AppendBlobFromFile = True
Exit Function
End If

Chunks = DataLen \ ChunkSize '数据块的个数
Fragment = DataLen Mod ChunkSize
If Fragment > 0 Then '先写零碎数据
ReDim ChunkAry(Fragment - 1)
Get FileNumber, , ChunkAry() '读出文件
blobColumn.AppendChunk ChunkAry '调用AppendChunk函数写数据
End If

ReDim ChunkAry(ChunkSize - 1) '为数据块开辟空间
For lngI = 1 To Chunks '循环读出所有数据块
Get FileNumber, , ChunkAry() '读出一块数据
blobColumn.AppendChunk ChunkAry '在数据库中增加数据块
Next lngI

Close FileNumber '关闭文件
AppendBlobFromFile = True
Exit Function
ErrorHandle:
AppendBlobFromFile = False
MsgBox Err.Description, vbCritical, "写图像数据出错!"
End Function

程序二：读数据函数
Public Function ReadbolbToFile(blobColumn As ADODB.Field, ByVal FileName) As Boolean
Dim FileNumber As Integer '文件号
Dim DataLen As Long '文件长度
Dim Chunks As Long '数据块数
Dim ChunkAry() As Byte '数据块数组
Dim ChunkSize As Long '数据块大小
Dim Fragment As Long '零碎数据大小
Dim lngI As Long '计数器

On Error GoTo ErrorHandle
ReadbolbToFile= False
ChunkSize = 2048 '定义块大小为 2K
If IsNull(blobColumn) Then Exit Function

DataLen = blobColumn.ActualSize '获得图像大小
If DataLen < 8 Then Exit Function '图像大小小于8字节时认为不是图像信息
FileNumber = FreeFile '产生随机的文件号
Open FileName For Binary Access Write As FileNumber '打开存放图像数据文件
Chunks = DataLen \ ChunkSize '数据块数
Fragment = DataLen Mod ChunkSize '零碎数据
If Fragment > 0 Then '有零碎数据，则先读该数据
ReDim ChunkAry(Fragment - 1)
ChunkAry = blobColumn.GetChunk(Fragment)
Put FileNumber, , ChunkAry '写入文件
End If

ReDim ChunkAry(ChunkSize - 1) '为数据块重新开辟空间
For lngI = 1 To Chunks '循环读出所有块
ChunkAry = blobColumn.GetChunk(ChunkSize) '在数据库中连续读数据块
Put FileNumber, , ChunkAry() '将数据块写入文件中
Next lngI
Close FileNumber '关闭文件
ReadbolbToFile= True
Exit Function
ErrorHandle:
ReadbolbToFile= False
MsgBox Err.Description, vbCritical, "读图像数据出错!"
End Function
当BLOB类型的字段为空时，调用AppendChunk或 GetChunk函数将出错。此时如果想给该字段插入图像数据，应该先使用 Update语句给该字段赋初值如0x0，以便数据库系统为该字段分配一个页面地址来存放BLOB数据。
4、 总结
Microsoft SQL Server为保存大二进制数据提供了存储平台，Visual Basic 6.0为存取这种数据提供了灵活的接口。本文介绍的用VB接口存取 MIS SQL Server中大二进制数据的方法，不但适用于图像文件，同样适用于其它类型的文件。该方法应用于医院管理系统的图像存取中，在存取速度、对系统的性能影响等方面都取了满意的效果。


HOW TO ACCESS IMAGE DATAS WITH THE VISUAL BASIC
IN SQL SERVER
He Yibin Gao Jingchang Li Xiaolin
ChaoYang Part of JinLin University 130026

Abstract This paper introduce the mechanism of MIS SQL Server memory and access image datas.In accordance with developing tools of Visual Basic,it present two kinds of method to access image datas from MIS SQL Server ,GetChunk method and AppendChunk method which are provided by ADO Field object.

key words ADO Field object BLOB object GetChunk and AppendChunk method image data type
Hospital Information System Microsoft SQL Server



作者简介：何益斌：吉林大学计算机学院研究生 研究方向：管理信息系统
高景昌：吉林大学计算机学院教授 计算机软件研究所主任 主要研究方向：数据库和管理信息系统、图形图像处理技术
通讯地址：吉林大学朝阳校区研993# （130026）何益斌

感谢!

好！

好东西，顶！

感谢luckdevil兄！祝你早日成为cisco技术区的版主！不过你在共享发的帖子太少了，几乎是回复帖，要多发原创帖 升级就会快了

呵呵，谢谢juestman，其实我也是没办法，能力和精力都有限啊，白天要上班，空闲时间不多，除了菊花这边，白领也要经常看看，晚上除了看看坛子外还要抽时间学习，年纪大了，杂事也就多了。不管怎样，菊花曾给过我莫大的帮助，只要我能以自己微薄的知识帮到大家，我想这样也满足了自己的心愿。共享是个好地方，我也会尽力地为它做我力所能及的事儿，但我想以目前的精力是难以在那儿有什么发展了，望你能有更大的进步，到时别忘报个喜讯!

再次感谢你的关心!