🚀 go-pugleaf

 I have written a program that compiles a list of bitmaps into an AVI. I have tried to add a wav file to it using code from Lucian Wischik:
http://www.wischik.com/lu/programmer/avi_utils.html
 Somehow when I join the audio with the avi, the playing
time of the file ends up being twice the length that it should be. The audio is 1 minute 10 seconds normally (the avi without audio is about the same as long). But when joined I get 2 minutes 20 seconds for the avi duration. Windows media player still plays the video but it thinks it is twice as long as it should be.
  If any one has any source code that joins a WAV file to an AVI, I would appreciate a sample. Lets say I have an already created AVI and just want to add audio to it. Thanks.

Here is the source that I am using:

HRESULT AddAviWav(HAVI avi, const char *src, DWORD flags)
{
  if (avi == NULL)
    return AVIERR_BADHANDLE;
  if (flags != SND_MEMORY && flags != SND_FILENAME)
    return AVIERR_BADFLAGS;
  if (src==0)
    return AVIERR_BADPARAM;
  TAviUtil *au = (TAviUtil*)avi;
  if (au->iserr)
    return AVIERR_ERROR;

  char *buf = 0;
  WavChunk *wav = (WavChunk*)src;
  if (flags == SND_FILENAME)
  {
    HANDLE hf = CreateFile(src, GENERIC_READ, FILE_SHARE_READ,
                           NULL, OPEN_EXISTING, 0, NULL);
    if (hf == INVALID_HANDLE_VALUE)
    {
      au->iserr=true;
      return AVIERR_FILEOPEN;
    }
    DWORD size = GetFileSize(hf,NULL);
    buf = new char[size];
    DWORD red;
    ReadFile(hf, buf, size, &red, NULL);
    CloseHandle(hf);
    wav = (WavChunk*)buf;
  }
  //
  // check that format doesn't clash
  bool badformat = false;
  if (au->wfx.nChannels == 0)
  {
    au->wfx.wFormatTag = wav->fmt.wFormatTag;
    au->wfx.cbSize = 0;
    au->wfx.nAvgBytesPerSec = wav->fmt.dwAvgBytesPerSec;
    au->wfx.nBlockAlign = wav->fmt.wBlockAlign;
    au->wfx.nChannels = wav->fmt.wChannels;
    au->wfx.nSamplesPerSec = wav->fmt.dwSamplesPerSec;
    au->wfx.wBitsPerSample = wav->fmt.wBitsPerSample;
  }
  else
  {
    if (au->wfx.wFormatTag != wav->fmt.wFormatTag)
      badformat=true;
    if (au->wfx.nAvgBytesPerSec != wav->fmt.dwAvgBytesPerSec)
      badformat=true;
    if (au->wfx.nBlockAlign != wav->fmt.wBlockAlign)
      badformat=true;
    if (au->wfx.nChannels != wav->fmt.wChannels)
      badformat=true;
    if (au->wfx.nSamplesPerSec != wav->fmt.dwSamplesPerSec)
      badformat=true;
    if (au->wfx.wBitsPerSample != wav->fmt.wBitsPerSample)
      badformat=true;
  }
  if (badformat)
  {
    if (buf!=0)
      delete[] buf;
    return AVIERR_BADFORMAT;
  }
  //
  if (au->as == 0) // create the stream if necessary
  {
    AVISTREAMINFO ahdr;
    ZeroMemory(&ahdr,sizeof(ahdr));
    ahdr.fccType = streamtypeAUDIO;
    ahdr.dwScale = au->wfx.nBlockAlign;
    ahdr.dwRate = au->wfx.nSamplesPerSec * au->wfx.nBlockAlign;
    ahdr.dwSampleSize = au->wfx.nBlockAlign;
    ahdr.dwQuality = (DWORD) - 1;
    HRESULT hr = AVIFileCreateStream(au->pfile, &au->as, &ahdr);
    if (hr!=AVIERR_OK)
    {
      if (buf!=0)
        delete[] buf;
      au->iserr = true;
      return hr;
    }
    hr = AVIStreamSetFormat(au->as, 0, &au->wfx, sizeof(WAVEFORMATEX));
    if (hr!=AVIERR_OK)
    {
      if (buf!=0)
        delete[] buf;
      au->iserr=true;
      return hr;
    }
  }
  //
  // now we can write the data
  unsigned long numbytes = wav->dat.size;
  unsigned long numsamps = numbytes * 8 / au->wfx.wBitsPerSample;
  HRESULT hr = AVIStreamWrite(au->as, au->nsamp, numsamps,
               wav->dat.data, numbytes, 0, NULL, NULL);
  if (buf!=0)
    delete[] buf;
  if (hr!=AVIERR_OK)
  {
    au->iserr=true;
    return hr;
  }
  au->nsamp += numsamps;
  return S_OK;
}