[Gambas-user] Did anyone have a script to record webcame picture in video files
Jussi Lahtinen
jussi.lahtinen at ...626...
Wed Dec 22 17:02:29 CET 2010
I can confirm that Gambas3 works perfectly with Ubuntu 10.10 64bit.
Please pack your sources with another tool, I can't open it correctly with
7zip...
Jussi
On Wed, Dec 22, 2010 at 14:43, firman <firman.isb at ...626...> wrote:
>
> i've tried again and the result still not shown menus.. i use macbuntu on
> 10.10 ubuntu version.. so i'll try to install gambas again..
>
>
> Fabien Bodard-4 wrote:
> >
> > i've ubuntu 10.10 ... in fact i use actually a derivated distro : Mint
> > 10 based on the 10.10 Maverick
> >
> > try to remove the ~/.config/gambas3 directory and run again gambas
> >
> > 2010/12/22 firman <firman.isb at ...626...>:
> >>
> >> Thanks Mr. Fabien, I've tried to use that key but nothing change, and
> >> still
> >> nothing menus could show.. maybe i must change my ubuntu to 10.04
> >> again...
> >>
> >>
> >> Fabien Bodard-4 wrote:
> >>>
> >>> ctrl+alt+m... to show the menu ?
> >>>
> >>> 2010/12/21 firman <firman.isb at ...626...>:
> >>>>
> >>>> i'm sorry,, i've problem with my gambas3, i tried to install it in
> >>>> ubuntu
> >>>> 10.10 and any problem there. When i openned gambas3 there was nothing
> >>>> menus.. but the project can openned. So i use os windows for put the
> >>>> source
> >>>> archive using winrar..
> >>>>
> >>>> and here's the archive.. so u can extract the rar file first, and open
> >>>> it
> >>>> in
> >>>> gambas3. i'm wating for ur solutions for my project. thanks.
> >>>> http://old.nabble.com/file/p30510255/TACAMCCTVrev2.rar
> >>>> TACAMCCTVrev2.rar
> >>>>
> >>>>
> >>>>
> >>>> Jussi Lahtinen wrote:
> >>>>>
> >>>>> 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
> >>>>>>
> >>>>>
> ------------------------------------------------------------------------------
> >>>>> 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-tp30442622p30510255.html
> >>>> Sent from the gambas-user mailing list archive at Nabble.com.
> >>>>
> >>>>
> >>>>
> ------------------------------------------------------------------------------
> >>>> Forrester recently released a report on the Return on Investment (ROI)
> >>>> of
> >>>> Google Apps. They found a 300% ROI, 38%-56% cost savings, and
> >>>> break-even
> >>>> within 7 months. Over 3 million businesses have gone Google with
> >>>> Google
> >>>> Apps:
> >>>> an online email calendar, and document program that's accessible from
> >>>> your
> >>>> browser. Read the Forrester report:
> >>>> http://p.sf.net/sfu/googleapps-sfnew
> >>>> _______________________________________________
> >>>> Gambas-user mailing list
> >>>> Gambas-user at lists.sourceforge.net
> >>>> https://lists.sourceforge.net/lists/listinfo/gambas-user
> >>>>
> >>>
> >>>
> >>>
> >>> --
> >>> Fabien Bodard
> >>>
> >>>
> ------------------------------------------------------------------------------
> >>> Forrester recently released a report on the Return on Investment (ROI)
> >>> of
> >>> Google Apps. They found a 300% ROI, 38%-56% cost savings, and
> break-even
> >>> within 7 months. Over 3 million businesses have gone Google with
> Google
> >>> Apps:
> >>> an online email calendar, and document program that's accessible from
> >>> your
> >>> browser. Read the Forrester report:
> http://p.sf.net/sfu/googleapps-sfnew
> >>> _______________________________________________
> >>> 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-tp30442622p30512324.html
> >> Sent from the gambas-user mailing list archive at Nabble.com.
> >>
> >>
> >>
> ------------------------------------------------------------------------------
> >> Forrester recently released a report on the Return on Investment (ROI)
> of
> >> Google Apps. They found a 300% ROI, 38%-56% cost savings, and break-even
> >> within 7 months. Over 3 million businesses have gone Google with Google
> >> Apps:
> >> an online email calendar, and document program that's accessible from
> >> your
> >> browser. Read the Forrester report:
> http://p.sf.net/sfu/googleapps-sfnew
> >> _______________________________________________
> >> Gambas-user mailing list
> >> Gambas-user at lists.sourceforge.net
> >> https://lists.sourceforge.net/lists/listinfo/gambas-user
> >>
> >
> >
> >
> > --
> > Fabien Bodard
> >
> >
> ------------------------------------------------------------------------------
> > Forrester recently released a report on the Return on Investment (ROI) of
> > Google Apps. They found a 300% ROI, 38%-56% cost savings, and break-even
> > within 7 months. Over 3 million businesses have gone Google with Google
> > Apps:
> > an online email calendar, and document program that's accessible from
> your
> > browser. Read the Forrester report: http://p.sf.net/sfu/googleapps-sfnew
> > _______________________________________________
> > 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-tp30442622p30513973.html
> Sent from the gambas-user mailing list archive at Nabble.com.
>
>
>
> ------------------------------------------------------------------------------
> Forrester recently released a report on the Return on Investment (ROI) of
> Google Apps. They found a 300% ROI, 38%-56% cost savings, and break-even
> within 7 months. Over 3 million businesses have gone Google with Google
> Apps:
> an online email calendar, and document program that's accessible from your
> browser. Read the Forrester report: http://p.sf.net/sfu/googleapps-sfnew
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>
More information about the User
mailing list