LiveCode Forums

Code: Select all

on mouseUp
   revInitializeVideoGrabber Video, "QT", "300, 100, 800, 500 "
   revVideoGrabDialog
   local vSettings
   revVideoGrabSettings "vSettings"
   set the videoSettings of this cd to vSettings
   revSetVideoGrabSettings "vSettings"
   revPreviewVideo
end mouseUp

Code: Select all

on mouseUp
   revStopPreviewingVideo
   revRecordVideo "/myvideo.mov"
end mouseUp

Code: Select all

on mouseUp
   global recordVideo
   revInitializeVideoGrabber the short name of this stack, "QT", "300, 100, 800, 500 "
   
   revVideoGrabDialog
   revSetVideoGrabberRect "300, 100, 800, 500 "
   
   local vSettings
   revVideoGrabSettings "vSettings"
   set the videoSettings of this stack to vSettings
   
   revPreviewVideo
   put true into recordVideo
   repeat while recordvideo is true
      revVideoGrabIdle
      wait for 1 millisecond with messages
   end repeat
end mouseUp

Code: Select all

on mouseUp
   global recordVideo
   revStopPreviewingVideo
   put specialfolderpath("desktop") into tDesk
   revRecordVideo (tDesk & "/myvideo.mov")
   put true into recordVideo
   repeat while recordvideo is true
      revVideoGrabIdle
      wait for 1 millisecond with messages
   end repeat
end mouseUp

Code: Select all

on mouseUp
   global recordVideo
   put false into recordVideo
   revStopRecordingVideo
end mouseUp

Code: Select all

on mouseUp
   global recordVideo
   put false into recordvideo
   revCloseVideoGrabber
end mouseUp

Code: Select all

on mouseUp 
  -- the video grabber component requires us to declare a variable
  -- so that it can return data to it
  local myvar
  -- bring up the system QuickTime capture settings dialog
  revVideoGrabDialog "display"
  -- capture the settings the user has entered to the variable myVar
  revVideoGrabSettings "myvar"
  -- set the custom property "videoSettings" of this stack to contain the
  -- data returned in the myVar variable
  set the videoSettings of this stack to myvar
  -- save this stack so that the next time the user opens it
  -- the same settings will be preserved and loaded in the stack script
  save this stack
end mouseUp

Code: Select all

on mouseUp
   
   -- read in the rectangluar area of the "video" image
   -- used to place the video capture area
   put rect of image "video" into tRect
   -- check to see if we are to use QuickTime or Video for Windows
   
   -- the command to initialize the video grabber, using QuickTime
   revInitializeVideoGrabber short name of this stack,"qt",tRect
   
   -- set the rectangle area to display the preview in to the variable we
   -- stored earlier
   revSetVideoGrabberRect tRect
   -- the video grabber component requires us to declare a variable to use
   -- to store or retrieve settings
   local myvar
   -- load the videoSettings custom property of this stack into the myVar variable
   put the videoSettings of this stack into myVar
   -- set the video grabber to use the settings we just loaded from the stack
   revSetVideoGrabSettings "myvar"
end mouseUp