How would I record and playback waves files using waveaudio and storing them in a MSSQL table?
Thanks
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;
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;
var
Wave: TWaveStreamAdapter;
begin
Wave := TWaveStreamAdapter.Create(TBlobStream.Create(MyBlobField, bmRead), soOwned);
try
ShowMessage(Wave.AudioFormat);
finally
Wave.Free;
end;
end;
Return to DELPHI AREA Projects
Users browsing this forum: No registered users and 3 guests