DELPHI AREA Forum

How would I record and playback waves files using waveaudio and storing them in a MSSQL table?

Thanks

1. Look at TWaveStreamAdapter class in the latest release of the Wave Audio package.
2. Look at TBlobStream in Delphi's help.

i'm new in delphi. Would there by chance be a example out of how the use it.

If my memory does not deceive me, I'm pretty sure, that you ought to find what you are looking for on your hard drive IF you installed full Delphi.

I can handle the blob part, but using the Adapter is my concern

Suppose you have a blob field and it is associated with a TBlobField object named MyBlobField.

Playing the blob:

Code: Select all

var
  BlobStream: TBlobStream;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BlobStream := TBlobStream.Create(MyBlobField, bmRead);
  StockAudioPlayer1.PlayStream(BlobStream);
end;

procedure TForm1.StockAudioPlayer1Deactivate(Sender: TObject);
begin
  BlobStream.Free;
end;

Recording in to the blob:

Code: Select all

var
  BlobStream: TBlobStream;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BlobStream := TBlobStream.Create(MyBlobField, bmWrite);
  StockAudioRecorder1.RecordToStream(BlobStream);
end;

procedure TForm1.StockAudioRecorder1Deactivate(Sender: TObject);
begin
  BlobStream.Free;
end;

Accessing wave audio details stored in the blob:

Code: Select all

var
  Wave: TWaveStreamAdapter;
begin
  Wave := TWaveStreamAdapter.Create(TBlobStream.Create(MyBlobField, bmRead), soOwned);
  try
    ShowMessage(Wave.AudioFormat);
  finally
    Wave.Free;
  end;
end;

thank you so much

//EDIT:

can multiple wav files be stored in the same blob field?

//mod edit: EDIT!

Although it is not a good idea, but the answer is yes. Remember that you have to save somewhere starting position and length of each wave.