realbasic-nug
[Top] [All Lists]

Re: RealWaves

To: REALbasic Network Users Group <realbasic-nug@lists.realsoftware.com>
Subject: Re: RealWaves
From: Ron Benditt <rbenditt@alienapparatus.com>
Date: Thu, 30 Apr 2009 17:36:19 -0700
Authentication-results: mx.google.com; spf=neutral (google.com: 74.124.194.228 is neither permitted nor denied by domain of realbasic-nug-bounces@lists.realsoftware.com) smtp.mail=realbasic-nug-bounces@lists.realsoftware.com
Delivered-to: listarchive@realsoftware.com
Reply-to: REALbasic NUG <realbasic-nug@lists.realsoftware.com>
Sender: realbasic-nug-bounces@lists.realsoftware.com
The latest version (1.2) still crashes hard on me when using files
above 48k- bit depth does not seem to matter.
Using a mac, 10.5.6 and RB 2009r2
Anyone have a fix or an alternative to offer as I emailed the author
awhile back with no response.


Hello Tom,

I've used RealWaves and I was having reliability issues with it as well. I replaced the section of code that gets the waveform data with the MBS plugin's routines for getting sound data and this has cleaned up my crashing problems.

In the GetWave function, I replaced all of the code with this:


  Dim StartTime As Double
  Dim Length As Double
  Dim ChannelCount As Integer
  Dim SampleSize As Integer
  Dim Rate As Integer
  Dim q As QTMovieExporterMBS

  StartTime=0
  Length=theMovie.DurationMBS
  ChannelCount=1
  SampleSize=8
  Rate=44100

SoundMemoryBlock=theMovie.SoundRawDataMBS(StartTime, Length, ChannelCount, SampleSize, Rate)

// If no sound data could be gotten, try to convert it with QT Exporter
  If SoundMemoryBlock=nil Then
    q=New QTMovieExporterMBS
    If q.OpenAIFFExporter Then
q.SetSoundFormat SampleSize, &hAC440000, OSTypeFromStringMBS("NONE"), ChannelCount SoundMemoryBlock=q.ExportToMemory(theMovie, StartTime, Length*Rate)
    End If
  End If


  ZoomSetting = 1

  If SoundMemoryBlock<>nil Then
    Return True
  else
    Return False
  End If



Hope that helps,

Ron Benditt
Alien Apparatus Company, Inc.
http://www.alienapparatus.com



_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>


<Prev in Thread] Current Thread [Next in Thread>
  • RealWaves, Thomas Endres
    • Re: RealWaves, Ron Benditt <=