代码如下:
……
CAD.Active:=true;
CAD.Append;
if ExtractFileName(opcad.FileName)<>null then
CAD.Fields.FieldByName('Title').AsString:= ExtractFileName(opcad.FileName)// 文件名
else
CAD.Fields.FieldByName('Title').AsString:='s' ;
if ExtractFileExt(opcad.FileName)<>null then
CAD.Fields.FieldByName('lx').AsString:=ExtractFileExt(opcad.FileName) // 存入文档类型
else
CAD.Fields.FieldByName('lx').AsString:='s';
TBlobField(CAD.Fields.FieldByName('Memo')).LoadFromFile(opcad.FileName);
// 这句是关键,按路径以流存文件到数据库memo 字段
CAD.Post;
current := treeView1.Selected;
node:=treeview1.Items.AddChild(current,ExtractFileName(opcad.FileName)) ;
node.StateIndex:=2;
treeview1.Selected:=node;
//AvViewX1
AvViewX1.src:=opcad.FileName;
……
注释掉了红色部分代码,但是由于紫色代码,还是可以在程序中看到效果,但是一删除这个,所有的可以看效果的文件全部丢掉了!问题就在未post 。
本文介绍了一种将文件导入数据库的方法,并详细展示了如何通过检查文件名及类型来更新数据库记录的过程。文中提供了一段示例代码,解释了如何将文件内容保存到数据库的 memo 字段,并在树形视图中添加相应的节点。
3511

被折叠的 条评论
为什么被折叠?



