人事管理影音资料的保存和上传问题，D6＋SQL　Server (300分)

我正在做一个关于人事管理方面的系统，D6＋SQL　Server,其中牵涉到个人影音和视频
资料（比如MPEG、AVI等），对于影音资料的保存和上传我一直解决不了，不知各位富翁
是否能指点一二！

如果不是B/S，我有流存储图片到SQL的源代码，可以参考

Delphi提供了数据访问(DataAccess)和数据控制(DataControls)的可视化控件，能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。对于涉及图像数据(含Graphic字段)的数据库应用程序，如人事管理信息系统等，图像数据的存取技术是一个关键。然而，有关Delphi下图象的存取，特别是图像的保存方面的技术各种资料上很少提及。下面，笔者结合一个简单的例子来说明。

一、图像数据的保存
　　1.创建一个含有Graphic字段的数据库列表。
　　在WindowsISQ(或Databasedesktop)下create database mydb.gdb
　　create table myfrieds
　　(name varchar(15) notnull，
telephone varchar(12)，
address varchar(30)，
zipvarchar(8)，
picture varchar(15)，
image blob);

　　其中，picture字段用于保存图像的名称(包括路径)，image(Graphic字符)则用于存储图像，其数据类型
为“blob”。

　　2.建立窗体(如图1所示)，设置窗体中各控件的属性。

　　该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用TImage而不能用TDBImage，编辑框宜用Tedit而不宜用TDBEdit，这一点与图像的读取恰好相反。

　　其中，各主要控件的属性设置如下:
　　Datasource1.Dataset:=table1;
　　Table1.Databasename:=mydb.gdb;
　　Table1.Tablename:=myfriends;
　　Table1.active:=true;
　　其他诸如Caption之类的属性设置不再叙述。

　　3.数据处理程序的建立。
　　(1)图像( .bmp文件)打开的处理。
　　procedureTForm1.pictopenbtnClick(Sender:TObject);
　　begin
opendialog1.execute;
　image1.picture.loadfromfile(opendialog1.filename);
　　end;

　　(2)图像保存的处理。
　　图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中，其关键是要定义一个Graphic类型的变量且该变量要用Assign()函数传递到相应数据库中保存。具体程序如下:
　　procedureTform1.Savebtnclick(sender:TObject);
　　var
graphic1:TGraphic;
　　begin
graphic1:=TGraphic.Create;
　graphic1.loadfromfile(opendialog1.filename);
　　table1.insert;
　　table1.fieldbyname('name').asstring:=edit1.text;
　　table1.fieldbyname('telephon').asstring:=edit2.text;
　　table1.fieldbyname('address').asfloat:=edit3.text;
　　table1.fieldbyname('zip').asfloat:=edit4.text;
　　table1.fields[4].assign(graphic1);
　　table1.post;
　　graphic1.free;
　　end;

二、图像数据的读取
　　在数据库数据(包括Graphic字段的数据)的读取和浏览方面，Delphi这一具有强大代码自动生成功能的面向对象的开发工具的优越性得到淋漓尽致的体现。毫不夸张地说，不需要一条语句即可完成这一功能！

　　建立窗体(如下图所示)，设置各控件的属性。

　　图中Table1和Datasource1的属性的设置与数据的保存部分(图1)相同，所不同的是数据库数据的读取时用TDBEdit和TDBImage控件而不用TEdit和TImage。控件TDBEdit和TDBImage只要将datafield属性设置为其相对应的域;TDBNavigator的datasouce属性设置为datasource1即可。

用stream技术
以前帖子很多，我就不贴了，自己找找看

我的问题主要是视频资料的保存和上传方法！

DataSet.Append;
TBlobField(DataSet.FieldByName('影音')).LoadFromFile(OpenDialog1.FileName);
DataSet.Post;

一个简单方法，你可以只保存文件名，而文件本身保存在服务器的硬盘上
部知道这样你能不能接受

to wangfu:
这也是我预想的办法之一，但在程序中上传好象不方便！

一个简单的上传就是开一个共享，然后映射成本地目录，用delphi操作
恨方便的，就是几乎没有安全性可言 ：（

用SQL Server保存大二进制对象没有任何问题,就是比较慢罢了!
关于如何保存进数据库以前的旧帖有很多回答,我就不重复了,但还有一种方案
就是利用DCOM,在服务器上建立一个服务程序,接收你的文件,然后保存到服务器你指定的目录下
,同时在数据库中保存该文件的文件名和路径,取出的时候反操作就行了!

关注

ftp

不建议存放到Sql server里面最好存放到共享目录或者FTP地址里面，快啊
数据库只要存放路径和名称就可以了

我觉得存路径就可以了。

控制上传到服务器上的ftp目录，数据库中只在相应的字段保留文件保存的地址

关注！

我一直认为用路径存放在数据库中，需要的时候直接用控件调用该路径的文件就可以了。
这样的好处在于说对比较大数据量的操作速度会快好多。而且对数据库server的需求也没有太高。
反正我是这么干的，效果还不错。

DataSet.Append;
TBlobField(DataSet.FieldByName('影音')).LoadFromFile(OpenDialog1.FileName);
DataSet.Post;
-----------------------
用流更好一些！

attention

我来了！我来了！我来了！我来了！我来了！我来了！我来了！我来了！我来了！