[futurebasic] Cross Channel Problems

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : October 2002 : Group Archive : Group : All Groups

From: Ian Mann <i.mann@...>
Date: Fri, 18 Oct 2002 13:02:15 +0100
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