B4J Question RPI - changing raspistill parameters while running ? (solved)

derez said:

I still don't know how to end raspistill process...

Click to expand...

Dim pgrep As Shell
pgrep.Initialize("Raspistill_GetPID", "pgrep", Array("raspistill"))

Dim kill As Shell
kill.Initialize("Raspistill_Kill", "kill", Array("-9", PID))

Dim sh As Shell
sh.Initialize("Raspistill_Kill", "pkill", Array("raspistill"))

The name of kill command family Is misleading - they don't really kill anything, just send signals to processes.
By default SIGTERM signal is sent, which only gently asks process to quit, but process can
choose to ignore it or handle it differently. (see man page for kill).
To force-quit a process, you have To send it a SIGKILL signal. SIGKILL cannot be ignored by the process
And in most cases results in its instant termination, without finishing tasks in progress etc.
There are few possible syntaxes To send SIGKILL, all of these are completely equivalent:
kill -9 <PID>
kill -kill <PID>
kill -s SIGKILL <pid>

Click to expand...

dim picNumber as int = 0

sub takePics
    dim t as timer
    t.initialize("takePic", 2000)
    t.enabled = true
end sub

sub takePic_Tick
    dim sh as shell
    sh.initialize("takePic", "raspistill", Array("-t", "1", "-o", "myImage" & picNumber & ".jpg"))
    sh.run(-1)
end sub

sub takePic_ProcessFinished (stdou ....
   picNumber = picNumber + 1
end sub

jmon said:

you can do it 2 ways:

1 - Force kill: You need to get Raspistill PID:

B4X:

Dim pgrep As Shell
pgrep.Initialize("Raspistill_GetPID", "pgrep", Array("raspistill"))

then kill using the PID:

B4X:

Dim kill As Shell
kill.Initialize("Raspistill_Kill", "kill", Array("-9", PID))

2 - "Ask to kill": Kill raspistill gently:

B4X:

Dim sh As Shell
sh.Initialize("Raspistill_Kill", "pkill", Array("raspistill"))

The second option seems to not force kill the process. more about that:


You could also loop and take pictures one after the other (remove the -tl), because I see your timelapse is 2 second interval, and taking 1 picture takes 1 second:
(code is written from memory, not tested )

B4X:

dim picNumber as int = 0

sub takePics
    dim t as timer
    t.initialize("takePic", 2000)
    t.enabled = true
end sub

sub takePic_Tick
    dim sh as shell
    sh.initialize("takePic", "raspistill", Array("-t", "1", "-o", "myImage" & picNumber & ".jpg"))
    sh.run(-1)
end sub

sub takePic_ProcessFinished (stdou ....
   picNumber = picNumber + 1
end sub

[edit] make sure you read correctly what -t does. In a timelapse, that's the time it will run the timelapse. In normal picture mode, that's the time it will wait before taking a snapshot.

Click to expand...