关于文件到数据库的存储？

Question

你搜索一下关于BLOB字段以前的帖子

Answer 1

var
      s:TMemoryStream;
  begin
      s:=TMemoryStream.create;
      TBlobField(Query1.fields[0]).savetostream(s);
      s.position:=0;
      TBlobField(Query2.fields[0].loadfromstream(s);
      s.free;
  end;

Answer 2

var 
  lsFileName:string;
  lsFile:TFileStream;
begin 
  lsFileStream:=TFileStream.create;
  lsFileStream.position:=0;
  lsFileStream.loadformfile（lsFileName);; 
  TBlobField(Query1.fields[0].loadfromstream(lsFileStream); 
  lsFileStream.free; 
end;