delphi 保存文件 二进制 数据库

delphi 保存文件 二进制 数据库

时间:2011-5-26来源:yang 作者: peng点击: 26次

//保存wav文件到数据库中的 image 字段
  try
    with query1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(‘insert into wavInfo ‘);
      SQL.Add(‘(wavName,wav,userID) ‘);
      SQL.Add(‘values(:wavName,:wav,:userID)‘);
      paramByName(‘wavName‘).Value:=wavName;
      paramByName(‘userID‘).value:=frmMain.userID;
      ParamByName(‘wav‘).LoadFromFile(wavName, ftblob);
      prepare;
      ExecSQL;
    end;
  Except
    begin
      ShowMessage(‘文件上传失败，请重新上传.‘);
      abort;
    end;

  //下载波形文件 WAV
  try
    with query1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(‘select * from wavinfo where wavID=‘+IntToStr(wavID));
      Open;
      Edit;
     //下载语音文件
      TBlobfield(FieldByName(‘wav‘)).SaveToFile(‘F;\a.wav‘);
      Post;
      Except
    begin
      showmessage(‘文件下载失败!‘);
      abort;
    end;