Hi Guys,

I am trying to get Quicktime to replace SndRecordToFile - I can't seem
to get the format right on setting up the Toolbox call SGNewChannel

-any suggestions... ?





begin Globals

dim sgSoundComp as ComponentInstance
dim SGChannel as ComponentInstance

toolbox fn SGNewChannel (ComponentInstance,OSType,@Long) =
ComponentResult

end globals

window #1


clear local
dim err as long
local fn SetUpRecord
err = fn entermovies
sgSoundComp = fn opendefaultcomponent (_SeqGrabComponentType,0)
err = FN sginitialize (sgSoundComp)
print  err
err = fn SGNewChannel(sgSoundComp,_SoundMediaType,@SGChannel)'crash here

print  err
end fn

fn SetUpRecord

do
handleevents
until gFBQuit