waveaudio and MSSQL

[Koltron]

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

Thanks

[Kambiz]

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

[Koltron]

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

[Johnny_Bit]

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.

[Koltron]

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

[Kambiz]

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;

[Koltron]

thank you so much

//EDIT:

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

//mod edit: EDIT!

[Kambiz]

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.