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....@gmail.com> 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....@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 >> > >> > >> >> -- >> 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@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 > > -- 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@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user