***Delphi解决精典的数据库问题,编程高手请进***

Question

1.请问怎样将音频文件写入数据库字段中,然后读出
2.请问怎样将一个word文档存入数据库字段中,然后读出
(它们应该是同一个问题,不懂,向高手求救)

Answer 1

procedure TForm1.LoadFileClick(Sender: TObject);
var
  FStrm:TFileStream;
begin//把要入库文件(音频文件)存进数据库
  if OpenDialog1.Execute then
  begin
    FStrm:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
    if Not(Table1.State in [dsInsert,dsEdit]) then
      Table1.Edit;
    TBlobField(Table1.FieldByName('BlobFld')).LoadFromStream(FStrm);
    Table1.Post;
    FStrm.Free;
  end;
end;procedure TForm1.SaveFileClick(Sender: TObject);
var
  MStrm:TMemoryStream;
begin //把数据库存放的文件读出，并回存成一个文件以备操作!
  if SaveDialog1.Execute then
  begin
    MStrm:=TMemoryStream.Create;
    TBlobField(Table1.FieldByName('BlobFld')).SaveToStream(MStrm);
    MStrm.SaveToFile(SaveDialog1.FileName);
    MStrm.Free;
  end;
end;

Answer 2

blazingfire(烈焰) 的就是答案。你不用再发短信给我了。：）