Delphi提取SQL数据库Image类型字段问题

Question

数据库中有两张表A和B，A表中有两个字段为A1和A2，两张表的关联字段为ID。现需要写一段delphi代码，根据用户输入的A1或者A2条件，用两张表的关联字段"ID"，检索出B表中的记录，并且把该条记录中一个Image类型的字段提取出来，该字段中存储的是一段录音，要将该录音保存到指定目录中，存成.WAV文件。由于本人水平有限，所以特来请问各位高手如何实现，最好将全部代码告知，解决后马上给分！谢谢

Answer 1

从数据库中读取BMP图片的代码:
procedure TForm1.Button3Click(Sender: TObject);
var
  buffer : TStringStream;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'select * from test';
  ADOQuery1.Open;
  //将记录集中的图像数据加载到TStringStream，并显示到Image控件中
  buffer := TStringStream.Create('');
  TBlobField(ADOQuery1.FieldByName('pic')).SaveToStream(buffer);
  buffer.Position := 0;  Image1.Picture.Bitmap.LoadFromStream(buffer);
  StatusBar1.SimpleText := '成功从数据库读取BMP图像';
end;

Answer 2

不是BMP图片，是一个WAV文件啊！

Answer 3

一样用TBlobField(ADOQuery1.FieldByName('wav字段名')).SaveToStream(buffer);提取出来啊..buffer里面的就是wav文件的二进制数据..