如果把一个文件(*.*) 写入数据库并在需要的时候读出来恢复成一个文件。(Delphi+Sql Server)

Question

写入TblobField(table.FieldByName('字段名')).Loadfromfile('文件名')
读出TblobField(table.FieldByName('字段名')).SaveToFile('文件名')

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    With DataModule2.Query1 do
    begin
      Close;
      Sql.Clear;
      Sql.Add('insert into lk_da_temp values(''abc'',:p1)');
      ParamByName('p1').LoadFromFile(OpenDialog1.FileName,ftBlob);
      ExecSQL;
      Close;
    end;
end;procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  with DataModule2.Query1 do
  begin
    Close;
    Sql.Clear;
    Sql.Add('select * from lk_da_temp');
    Open;
    TBlobField(FieldByName('b')).SaveToFile('d:\1.doc');
    Close;
  end;
end;这样写可以吗？我试了好多次。总是出错！！！！

Answer 2

写入TblobField(table.FieldByName('字段名')).Loadfromfile('文件名') 
读出TblobField(table.FieldByName('字段名')).SaveToFile('文件名') 
不过在操作时最好以一种固定的流格式写入写出，这样可能更好

Answer 3

你这样生成的doc文件，word不一定能认识！TBlobField 的 SaveToFile 方法，其实是把其内容存成自己才认识的格式，用 loadFromFile能方法读出，你虽然存为.doc文件， Word 不一定能读出。

Answer 4

请问你在sqlserver中是用什么类型的字段来保存文件格式的呢？