🚀 go-pugleaf

Here is a small example(not the best code out there but it should work)

void __fastcall ConvertWav(TMemoryStream *InStream,
                           ACMWaveFormat* InFormat,
                           TMemoryStream *OutStream,
                           ACMWaveFormat* OutFormat,
                           HWND AHandle)
{ MMRESULT Result;
  HACMSTREAM StreamHandle;
  DWORD OutputBufferSize,
        InputBufferSize;
  AnsiString Mensaje;
  ACMSTREAMHEADER StreamHeader;
  bool OkConvert = false;

  if (acmStreamOpen(&StreamHandle,
                    NULL,&InFormat->Format,
                    &OutFormat->Format,
                    NULL, 0, 0, ACM_STREAMOPENF_NONREALTIME) == 0)
    { InputBufferSize = InStream->Size;
      if (acmStreamSize(StreamHandle,
                        InputBufferSize,
                        &OutputBufferSize,
                        ACM_STREAMSIZEF_SOURCE) == 0)
         { OutStream->SetSize(OutputBufferSize);
           StreamHeader.cbStruct = sizeof(ACMSTREAMHEADER);
           StreamHeader.fdwStatus = 0;
           StreamHeader.dwUser = 0;
           StreamHeader.pbSrc = (BYTE*) InStream->Memory;
           StreamHeader.cbSrcLength = InputBufferSize;
           StreamHeader.cbSrcLengthUsed = 0;
           StreamHeader.dwSrcUser = 0;
           StreamHeader.pbDst = (BYTE*) OutStream->Memory;
           StreamHeader.cbDstLength = OutputBufferSize;
           StreamHeader.cbDstLengthUsed = 0;
           StreamHeader.dwDstUser = 0;
           if (acmStreamPrepareHeader(StreamHandle,
                                      &StreamHeader, 0) == 0)
              {  if (acmStreamConvert(StreamHandle,
                                      &StreamHeader,
                                      ACM_STREAMCONVERTF_BLOCKALIGN) == 0)
                     OkConvert = true;
                 else OkConvert = false;
                 acmStreamReset(StreamHandle,0);
                 acmStreamUnprepareHeader(StreamHandle, &StreamHeader, 0);
              }
         }
      acmStreamClose(StreamHandle, 0);
    }
   if (OkConvert)
      OutStream->Position = 0;
   else OutStream->Clear();

  return;
}

"Kit" <s4110020@maliwan.psu.ac.th> wrote in message news:3b9cb560_1@dnews...
>
>       please suggest  me and describe about  How to use Audio Compression
> manager or example code
>
>                                                     Thank you
>
>
>
>