在等待!!!!!!!!如何存储图像数据

[hufengxing]

在數據庫中建表,有個字段的類型是image.
如何把圖像數據存進個表中.
數據庫管理系統有這個直接的功能嗎?
用間接的方法怎麼做,比如:用Delphi設計.其他的也行

[WangZWang]

用TDBImage控件，加载图片如：
adoDoctorImageDoctor.LoadFromFile(DiagOpenPicture.FileName);
提交即可存储。

[hufengxing]

謝謝哈我識下.能不能用delphi做到批量處理圖像,存儲進數據庫.
提供點詳細代碼小弟感激不盡!

[honey_y]

1、建立过程
CREATE PROCEDURE sp_textcopy (
@srvname varchar (30),
@login varchar (30),
@password varchar (30),
@dbname varchar (30),
@tbname varchar (30),
@colname varchar (30),
@filename varchar (30),
@whereclause varchar (40),
@direction char(1))
AS
DECLARE @exec_str varchar (255)
SELECT @exec_str =
'textcopy /S ' + @srvname +
' /U ' + @login +
' /P ' + @password +
' /D ' + @dbname +
' /T ' + @tbname +
' /C ' + @colname +
' /W "' + @whereclause +
'" /F ' + @filename +
' /' + @direction
EXEC master..xp_cmdshell @exec_str

2、建表和初始化数据
create table 表名 (编号 int,image列名 image)
go
insert 表名 values(1,0x) -- 必须的，且不是null
insert 表名 values(2,0x) -- 必须的，且不是null
go

3、读入
sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\图片.bmp','where 编号=1','I' --注意条件是 编号=1

sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\bb.doc','where 编号=2','I' --注意条件是 编号=2

go

4、读出成文件
sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\图片.bmp','where 编号=1','O' --注意条件是 编号=1

sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\bb.doc','where 编号=2','O' --注意条件是 编号=2
go

如果报textcopy不是可执行文件的话，你就到
C:\Program Files\Microsoft SQL Server\MSSQL\Binn
目录下拷备 textcopy.exe到：
C:\Program Files\Microsoft SQL Server\80\Tools\Binn

这是邹建以前在CSDN上发的

[simoncheung]

VB.NET

If Me.picPhoto.Image Is Nothing Then
m_DataRow(MyTools.g_PhotoField) = DBNull.Value
Else
Try
Dim ms As MemoryStream = New MemoryStream
picPhoto.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
Dim myData(ms.Length) As Byte
ms.Position = 0
ms.Read(myData, 0, Convert.ToInt32(ms.Length))
m_DataRow(MyTools.g_PhotoField) = myData
Catch ee As System.Exception
MessageBox.Show(ee.Message)
End Try
End If

[kulongus]

mark