[Gambas-user] Did anyone have a script to record webcame picture in video files

[Jussi Lahtinen]

Project --> Make --> Source archive
And put the script in that tar ball also.

Jussi



On Mon, Dec 20, 2010 at 08:32, firman <firman.isb at ...626...> wrote:

>
> okay i'll send u entire project, but which one do u need, Files project in
> package program or just All script in main form??
>
> thank's
>
>
>
> Jussi Lahtinen wrote:
> >
> > 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.isb at ...626...> 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 at 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 at lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/gambas-user
> >
> >
>
> --
> View this message in context:
> http://old.nabble.com/Did-anyone-have-a-script-to-record-webcame-picture-in-video-files-tp30442622p30496252.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 at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>