高分求教!有关在SQL数据库中存储图片的方法。(100分)

  • 主题发起人 主题发起人 ZeroMan
  • 开始时间 开始时间
Z

ZeroMan

Unregistered / Unconfirmed
GUEST, unregistred user!
我刚学Delphi不久,对很多问题还没有概念。现在需要用delphi编一个存储SQL数据库的
程序,其中有一个字段存储的是图片,还有存储视频的字段。我想请教一下大家我该怎么
样把图片或是视频直接存储在SQL数据库中?用那方面的知识,最好有实例做参考。
先谢谢大家!!
 
Bold
类型字段
用delphi DBImage.picture.loadfromfile('图片文件名');
 
//bde要设置blobsize否则存进去,读不出来完整
数据库SQL Server,存放文件的字段类型Image
Create Table MyTable
(
FileName VarChar(20),
FileSource Image
)
存放文件到数据库

var FileName :String;
FileName := ExtractFileName(OpenDialog1.FileName);
with Query do
begin
Close;
Sql.Clear;
Sql.Add('INSERT INTO MyTable VALUES (:FileName,:FileSource)');
ParamByName('FileName').AsString := FileName;
ParamByName('FileSource').LoadFromFile(OpenDialog1.FileName,ftBolob);
ExecSQL;
end;



从数据库中取出文件

var FileName :String;
begin
with Query do
begin
Close;
Sql.Clear;
Sql.Add('SELECT * FROM MyTable WHERE FileName = '?'');
Open; FileName := 'c:/'+FieldByName('FileName').AsString;
(FieldByName('FileSource') AS TBlobField).SaveToFile(FileName);
end;
end;
 
接受答案了.
 
后退
顶部