markmcdonald51 · July 25, 2010 18:28 · Jul 25, 2010
diff --git a/webcamcorder b/webcamcorder
@@ -0,0 +1,107 @@
+#!/usr/bin/ruby1.8
+
+require 'tk' 
+require 'open3'
+require 'net/telnet'
+require 'fileutils'
+require 'date'
+
+
+DESTINATION_DIR = "/tmp"
+MAXIMUM_DURATION= 5
+VLC_COMMAND=%{vlc -IRC  --rc-host localhost:4444 --v4l-vdev "/dev/video0" --v4l-norm 3 --sout '#transcode{vcodec=mp4v,vb=3072,scale=1,acodec=mpga,ab=192,channels=2}:duplicate{dst=display,dst=std{access=file,mux=mp4,dst="/tmp/test.mpg"}}'  --contrast 1.9 --brightness 1.7    --saturation 2.3 }
+
+
+
+class Recorder
+    def initialize
+        start_vlc
+
+        @recording = false
+        @root = TkRoot.new { title "Ex1" } 
+        @telnet = nil
+        begin
+            @telnet = Net::Telnet.new( "Host" => "localhost", "Port" => 4444, "TelnetMode" => false, "Prompt" => //)
+        rescue Exception => e
+            sleep 1
+            retry
+        end
+        font = TkFont.new('courier')
+        font.configure('size'=>48) 
+        button = nil
+        @label = TkLabel.new(@root)  do 
+            text 'test'
+            font font
+            pack('side' => 'top' , 'padx' =>  10 , 'pady' =>  10)
+        end
+
+       button = TkButton.new(@root) do 
+                    text 'Start!' 
+                    font font
+                    foreground 'black' 
+                    background 'green' 
+                    pack('side' => 'top' , 'padx' =>  150 , 'pady' =>  150)
+                end
+        button.command { start_stop }
+        button.pack { padx 15 ; pady 15; side 'left' } 
+
+        @button = button
+        @root.bind('Return') {  start_stop }
+        Tk.mainloop
+    end
+
+
+    def update_button
+        if !@recording
+            start_recording
+        else
+            stop_recording
+        end
+    end
+    def start_vlc
+        @vlc_thread = Thread.new do 
+            system VLC_COMMAND
+        end
+        @vlc_started = true
+    end
+
+    def start_recording
+        @recording = true
+        @button.background = "red"
+        @button.text = "STOP"
+        @telnet.cmd("add v4l2://")
+        @start_time = Time.now
+        @counter_thread = Thread.new(@label, @start_time) do |label, start|
+            while ((duration = (Time.now - start).to_i)<5)
+                sleep 1
+                label.text %{reste #{MAXIMUM_DURATION - duration -1}s over}
+            end
+            label.text %{reste #{MAXIMUM_DURATION }s over}
+            stop_recording
+        end
+        #output window has WM_NAME =  VLC (XVideo output)
+        #defwinprop { title ="VLC XVideo ouput"), target = "vlc"}
+        #defwinprop { class ="Webcamrecorder.rb" , instance = "webcamrecorder.rb" , target = "app"}
+        #META1-F3 -> exec code: mod_query.query_renameframe(_)
+        #META1-M -> window-info to get class, instance, etc
+    end
+    def stop_recording
+        @recording = false
+        @telnet.cmd("stop")
+        @button.background = "green"
+        @button.text = "Start"
+        file = DateTime.now.strftime("%Y-%m-%dT%H:%M:%S")
+        FileUtils.mv("/tmp/test.mpg", DESTINATION_DIR+"/"+file+".mpg")
+        @counter_thread.kill
+    end
+
+    def start_stop
+       update_button 
+    end
+    def terminate
+        @telnet.cmd("quit")
+    end
+end
+
+r = Recorder.new
+r.terminate
No results found