[Gambas-user] Did anyone have a script to record webcame picture in video files
firman
firman.isb at ...626...
Tue Dec 21 23:19:51 CET 2010
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.
More information about the User
mailing list