It is easier to help if you send your whole project. I can't see any handling for CatProcess.
Jussi On Sat, Dec 18, 2010 at 02:11, firman <firman....@gmail.com> wrote: > > > I Almost done my project about monitoring camera using webcam with gambas > 3... the picture or streaming video can displayed on picturebox but i still > have a problem to record in video file mode r like avi, mpg or other > compressed format.. please help me if anyone can solve my problem. i will > showing u a picture of FMain my project... the record button still couldn't > worked... > > i'm using gambas 3 svn... I've wrote the script like this, and worked the > files created but still 0 KB or nothing recorded.... > this is the script: > > 'Proses Menyimpan File record > > Public Sub InitCapture() > > If Not CatProcess Then > bytesrecorded = 0 > CatProcess = Exec ["cat", "/dev/video0"] For Read > CatProcess = Exec ["cat", "/dev/video1"] For Read > CatProcess = Exec ["cat", "/dev/video2"] For Read > CatProcess = Exec ["cat", "/dev/video3"] For Read > > Endif > > UpdateBytesLabel() > > End > > Public Sub Process_Write(data As String) > > If pic1.Picture = $cam1.Image.Picture Then > If pic2.Picture = $cam2.Image.Picture Then > If pic3.Picture = $cam3.Image.Picture Then > If pic4.Picture = $cam4.Image.Picture Then > Return > Endif > Endif > Endif > Endif > > Try pic1.Picture.send(data) > Try pic2.Picture.send(data) > Try pic3.Picture.send(data) > Try pic4.Picture.send(data) > Try saveprocess.send(data) > > bytesrecorded = bytesrecorded + Len(data) > > End > > > Public Sub btnRecord_Click() > > If btnRecord.text = "Record" Then > bytesrecorded = 0 > starttime = Now > endtime = starttime > initcapture() > Tmr1_Timer() > btnRecord.text = "Stop" > SaveProcess = Exec ["bash", "-c", "cat > " & setFilename1()] For Write > SaveProcess = Exec ["bash", "-c", "cat > " & setFilename2()] For Write > SaveProcess = Exec ["bash", "-c", "cat > " & setFilename3()] For Write > SaveProcess = Exec ["bash", "-c", "cat > " & setFilename4()] For Write > Else > endtime = Now > > Try saveprocess.kill > btnRecord.text = "Record" > setFilename1() > setFilename2() > setFilename3() > setFilename4() > Endif > End > > Public Function setFilename1() As String > > Dim i As Integer > > i = 0 > 'Do While Exist(Application.Path &/ "kamera1" & i & ".mpg") > Do While Exist(User.Home &/ "kamera1" & i & ".mpg") > i = i + 1 > Loop > 'Return Application.Path &/ "kamera1" & Format(i, "000") & ".mpg" > Return User.Home &/ "kamera1" & Format(i, "000") & ".mpg" > > End > > > Public Function setFilename2() As String > > Dim i As Integer > i = 0 > Do While Exist(User.Home &/ "kamera2" & i & ".mpg") > i = i + 1 > Loop > Return User.Home &/ "kamera2" & Format(i, "000") & ".mpg" > > End > > > Public Function setFilename3() As String > > Dim i As Integer > i = 0 > Do While Exist(User.Home &/ "kamera3" & i & ".mpg") > i = i + 1 > Loop > Return User.Home &/ "kamera3" & Format(i, "000") & ".mpg" > > End > > > Public Function setFilename4() As String > > Dim i As Integer > i = 0 > Do While Exist(User.Home &/ "kamera4" & i & ".mpg") > i = i + 1 > Loop > Return User.Home &/ "kamera4" & Format(i, "000") & ".mpg" > > End > > Public Sub UpdateBytesLabel() > Dim i As Float > If bytesrecorded > 1048576 Then > i = Int(bytesrecorded / 100000) > Else > i = Int(bytesrecorded / 100) > Endif > > End > > Public Sub UpdateTimeLabel() > > If starttime = "00:00:00" Then Return > If endtime <> starttime Then Return > > TextDate1.text = Time(CDate(CInt(Now) + (Now - starttime) + > timezoneadjust)) > > End > > anyone can solve my problem please...? > > -- > View this message in context: > http://old.nabble.com/Did-anyone-have-a-script-to-record-webcame-picture-in-video-files-tp30442622p30442622.html > Sent from the gambas-user mailing list archive at Nabble.com. > > > > ------------------------------------------------------------------------------ > Lotusphere 2011 > Register now for Lotusphere 2011 and learn how > to connect the dots, take your collaborative environment > to the next level, and enter the era of Social Business. > http://p.sf.net/sfu/lotusphere-d2d > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user > ------------------------------------------------------------------------------ Lotusphere 2011 Register now for Lotusphere 2011 and learn how to connect the dots, take your collaborative environment to the next level, and enter the era of Social Business. http://p.sf.net/sfu/lotusphere-d2d _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user