[amam]

Как с помощью фнкции waveOutWrite проиграть звук длиной 3-5 секунд? Я пробовал проиграть но проигрывается только несколько милисекунд звука а потом вылетает AV.

[NumLock]

PlaySound function описание на msdn есть. Можно даже 6 сек. проиграть.

[amam]

Пробовал и PlaySound. Та вобще ничего не проигрывает. Звук у меня хранится в структуре TWaveHdr

[Alegun]

Вот так по-примеру из drkb долго играет, проверил, но есть койчего лишнего, можно будет и убрать

Код:

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, MMSystem;

const
 WM_FINISHED = WM_USER + $200;

type

TForm1 = class(TForm)
   Button1: TButton;
   Button2: TButton;
   procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);

   private
   fData: PChar;
   fWaveHdr: PWAVEHDR;
   fWaveOutHandle: HWAVEOUT;

   procedure ReversePlay(const szFileName: string);
   procedure WaveOutProc(hwo: HWAVEOUT; uMsg: UINT; dwParam1,
     dwParam2: DWORD);
   procedure WmFinished(var Msg: TMessage); message WM_FINISHED;

   { Private declarations }

public

   { Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure Interchange(hpchPos1, hpchPos2: PChar; wLength: Word);
var
 wPlace: word;
 bTemp: char;
begin
 for wPlace := 0 to wLength - 1 do
  begin
   bTemp := hpchPos1[wPlace];
   hpchPos1[wPlace] := hpchPos2[wPlace];
   hpchPos2[wPlace] := bTemp
  end;
end;
{
Callback function to be called during waveform-audio playback
to process messages related to the progress of t he playback.
}

procedure waveOutPrc(hwo: HWAVEOUT; uMsg: UINT; dwInstance,
dwParam1, dwParam2: DWORD); stdcall;
begin
 TForm1(dwInstance).WaveOutProc(hwo, uMsg, dwParam1, dwParam2)
end;

procedure TForm1.WaveOutProc(hwo: HWAVEOUT; uMsg: UINT; dwParam1,
dwParam2: DWORD);
begin
 case uMsg of
   WOM_OPEN:;
   WOM_CLOSE: fWaveOutHandle := 0;
   WOM_DONE:  PostMessage(Handle, WM_FINISHED, 0, 0);
 end
end;

procedure TForm1.ReversePlay(const szFileName: string);
var
 mmioHandle: HMMIO;
 mmckInfoParent: MMCKInfo;
 mmckInfoSubChunk: MMCKInfo;
 dwFmtSize, dwDataSize: DWORD;
 pFormat: PWAVEFORMATEX;
 wBlockSize: word;
begin
{ The mmioOpen function opens a file for unbuffered or buffered I/O }

mmioHandle := mmioOpen(PChar(szFileName), nil, MMIO_READ or MMIO_ALLOCBUF);
if mmioHandle = 0 then
   raise Exception.Create('Unable to open file ' + szFileName);
try
   { mmioStringToFOURCC converts a null-terminated string to a four-character code }
   mmckInfoParent.fccType := mmioStringToFOURCC('WAVE', 0);
   { The mmioDescend function descends into a chunk of a RIFF file }
   if mmioDescend(mmioHandle, @mmckinfoParent, nil, MMIO_FINDRIFF) <>
     MMSYSERR_NOERROR then raise Exception.Create(szFileName + ' is not a valid wave file');

   mmckinfoSubchunk.ckid := mmioStringToFourCC('fmt ', 0);
   if mmioDescend(mmioHandle, @mmckinfoSubchunk, @mmckinfoParent,
     MMIO_FINDCHUNK) <> MMSYSERR_NOERROR then
     raise Exception.Create(szFileName + ' is not a valid wave file');

   dwFmtSize := mmckinfoSubchunk.cksize;
   GetMem(pFormat, dwFmtSize);

   try

     { The mmioRead function reads a specified number of bytes from a file }
      if DWORD(mmioRead(mmioHandle, PChar(pFormat), dwFmtSize)) <>
       dwFmtSize then
       raise Exception.Create('Error reading wave data');

     if pFormat^.wFormatTag <> WAVE_FORMAT_PCM then
       raise Exception.Create('Invalid wave file format');

     { he waveOutOpen function opens the given waveform-audio output device for playback }
      if waveOutOpen(@fWaveOutHandle, WAVE_MAPPER, pFormat, 0, 0,
       WAVE_FORMAT_QUERY) <> MMSYSERR_NOERROR then
        raise Exception.Create('Cannot play format');
      mmioAscend(mmioHandle, @mmckinfoSubchunk, 0);
     mmckinfoSubchunk.ckid := mmioStringToFourCC('data', 0);
     if mmioDescend(mmioHandle, @mmckinfoSubchunk, @mmckinfoParent,
       MMIO_FINDCHUNK) <> MMSYSERR_NOERROR then
       raise Exception.Create('No data chunk');

     dwDataSize := mmckinfoSubchunk.cksize;
     if dwDataSize = 0 then
       raise Exception.Create('Chunk has no data');

     if waveOutOpen(@fWaveOutHandle, WAVE_MAPPER, pFormat,
       DWORD(@WaveOutPrc), Integer(Self), CALLBACK_FUNCTION) <> MMSYSERR_NOERROR then
     begin
       fWaveOutHandle := 0;
       raise Exception.Create('Failed to open output device');
     end;

     wBlockSize := pFormat^.nBlockAlign;
     ReallocMem(pFormat, 0);
     ReallocMem(fData, dwDataSize);

     if DWORD(mmioRead(mmioHandle, fData, dwDataSize)) <> dwDataSize then

       raise Exception.Create('Unable to read data chunk');
     GetMem(fWaveHdr, SizeOf(WAVEHDR));
     fWaveHdr^.lpData  := fData;
     fWaveHdr^.dwBufferLength := dwDataSize;
     fWaveHdr^.dwFlags := 0;
     fWaveHdr^.dwLoops := 0;
     fWaveHdr^.dwUser := 0;

     { The waveOutPrepareHeader function prepares a waveform-audio data block for playback. }

     if waveOutPrepareHeader(fWaveOutHandle, fWaveHdr,
       SizeOf(WAVEHDR)) <> MMSYSERR_NOERROR then
       raise Exception.Create('Unable to prepare header');
     { The waveOutWrite function sends a data block to the given waveform-audio output device.}

     if waveOutWrite(fWaveOutHandle, fWaveHdr, SizeOf(WAVEHDR)) <>
       MMSYSERR_NOERROR then
       raise Exception.Create('Failed to write to device');

   finally
     ReallocMem(pFormat, 0)
   end
finally
   mmioClose(mmioHandle, 0)
end
end;

// Play a wave file
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled := False;
try
   ReversePlay('C:\TestSong.wav')
except
   Button1.Enabled := True;
   raise
end
end;

// Stop Playback
procedure TForm1.Button2Click(Sender: TObject);
begin
{ The waveOutReset function stops playback on the given waveform-audio output device }
WaveOutReset(fWaveOutHandle);
end;

procedure TForm1.WmFinished(var Msg: TMessage);
begin
 WaveOutUnprepareHeader(fWaveOutHandle, fWaveHdr, SizeOf(WAVEHDR));
 WaveOutClose(fWaveOutHandle);
 ReallocMem(fData, 0);
 ReallocMem(fWaveHdr, 0);
 Button1.Enabled := True;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 WaveOutReset(fWaveOutHandle);
 while fWaveOutHandle <> 0 do Application.ProcessMessages
end;

end.

[NumLock]

PlaySound работает отлично. Только что проверил.

Код:

uses
  MMSystem;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PlaySound('c:\Windows\Media\Ring08.wav', 0, SND_ASYNC);   
end;

[amam]

а если у меня wav в TmemoryStream?

[NumLock]

А как он в TMemoryStream оказался?

[Alegun]

А раньше в TWaveHdr лежал и играл через waveOutWrite можете описать что хоть нужно, звуки и из ресурсов ещё проигрывать можно

[NumLock]

Сообщение от amam

а если у меня wav в TmemoryStream?

Ну и что?

Код:

var
  ms: TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
    ms.LoadFromFile('c:\Windows\Media\Ring08.wav');
    ms.Position:=0;
    PlaySound(
      ms.Memory,
      0,
      SND_MEMORY //or SND_ASYNC
    );
  finally
    ms.Free;
  end;
end;

[amam]

Я со стороны сервера записываю звук в TmemoryStream.

Код:

    sobuf.Write(WaveHdrIn.lpData[0],WaveHdrIn.dwBytesRecorded);
    waveInAddBuffer(wavein,@WaveHdrIn,sizeof(TwaveHdr));

После передаю данный звук на клиет для последующего воспроизведения. Пробую так:

Код:

var
  buf:array[0..4000]of byte;
  a:integer;
begin
    a:=Socket.ReceiveBuf(buf,sizeof(buf));
    receivesou.Write(buf[0],a);
    if receivesou.size>=sizesou then
    begin
        receivesou.Position:=0;
        playsound(receivesou.Memory, 0, SND_MEMORY or SND_ASYNC);
    end;
end;

Вот так не пашет. Звук просто не играет.

Есть еще такой вариант:

Код:

var
  buf:array[0..4000]of byte;
  a:integer;
begin
    a:=Socket.ReceiveBuf(buf,sizeof(buf));
    receivesou.Write(buf[0],a);
    if receivesou.size>=sizesou then
    begin
        receivesou.Position:=0;
        With WaveHdrOut do
        begin
          dwFlags:= WHDR_INQUEUE;
          dwBufferLength:= receivesou.size;
          dwBytesRecorded:= 0;
          dwUser:= 0;
          dwLoops:= 1;
          GetMem(WaveHdrOut.lpData, receivesou.size);
        end;
        receivesou.Read(WaveHdrOut.lpData^,receivesou.size);
        waveplay(@WaveHdrOut);
    end;
end;

procedure TForm1.waveplay(mb: pointer);
begin
    waveOutPrepareHeader(WaveOut,mb,sizeof(WaveHdrOut));
    waveOutWrite(WaveOut,mb,sizeof(WaveHdrOut));
end;

Так воспроизводится не весь звук, а только несколько милисекунд. И потом вылетает AV

[Verevkin]

У меня из ресурса проигрывается даже mp3. Правда, с модифицированным хедером, но факт. Всё внутри exe и не выгружается на диск для воспроизведения. Вот демо (делал пару лет назад для одного товарища)
Могу поискать исходники.