Android Tutorial Android based Closed Circuit TV (CCTV) example

Erel · Jan 5, 2014

It doesn't happen here. It is probably a hardware lag. Make sure to run the Android app in Release mode. You can also lower the frame rate. Maybe it is too fast for the device.

LucaMs · Jan 6, 2014

Erel said:
It doesn't happen here. It is probably a hardware lag. Make sure to run the Android app in Release mode. You can also lower the frame rate. Maybe it is too fast for the device.

I had missed this reply.

I think I've tried with the Release, surely not the framerate.

I'll try.

Thank you, Erel

P.S. The problem could be related to the fact that I also have:
"the preview image in the PC side is rotated 90 Clockwise" as realblue wrote?
In fact, the picture freezes even when I change the orientation of my smartphone.

Ok, don't answer, thanks, i'll try all again

Douglas Farias · Feb 6, 2014

erel how is the code to user put ip manual in app ?
start app and have a question what the ip you want use ?
and the user set manual the ip

for exemple i m open the app in my phone and i put 192.168.1.1
?

Erel · Feb 7, 2014

Please don't post duplicate messages.

You can put an EditText and let the user enter the ip address.

Douglas Farias · Feb 7, 2014

how can i make this erel ?

B4X:

Sub Process_Globals
  Private frontCamera As Boolean = False
  Public ServerIp As String = edittext1 '?????
  Public ServerPort As Int = 17178
  Private IntervalMs As Int = 150
  Private lastPreviewSaved As Long
End Sub

Erel · Feb 9, 2014

I recommend you to start with the beginner's guide: http://www.basic4ppc.com/android/documentation.html
Remove ServerIp variable.
Add an EditText. Now when you want to get the server ip get it with EditText.Text.

Douglas Farias · Feb 10, 2014

Erel sorry for call you again
i read the documentation but it dont work

what i make wrong in my code?

when i open the app tell me a question ip i want.
i put my ip

and

ServerIp = Id.Input

but dont work =(

this is changes

i tryed remove

Public ServerIp As String

but give me error in comunicator

B4X:

Private Sub Connect
    If tryingToConnect Then Return
   
    tryingToConnect = True
    Log("Connecting to: " & Main.ServerIp & ":" & Main.ServerPort)
    client.Initialize("client")
    client.Connect(Main.ServerIp, Main.ServerPort, 20000)
End Sub

B4X:

#Region Module Attributes
    #FullScreen: False
    #IncludeTitle: False
    #ApplicationLabel: Cliente Servidor
    #VersionCode: 1
    #VersionName:
    #SupportedOrientations: landscape
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: true
    #IncludeTitle: false
#End Region

'Activity module
Sub Process_Globals
    Private frontCamera As Boolean = False
    Public ServerPort As Int
    Private IntervalMs As Int = 150
    Private lastPreviewSaved As Long
    Public ServerIp As String
   
End Sub

Sub Globals
    Private Panel1 As Panel
    Private camEx As CameraExClass
   
    Private CamNum As Int = 0
   
    Private btnCameraNumber As Button
    Private EditText1 As EditText
    Dim Id As InputDialog
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    'Dim Id As InputDialog
    Id.Input = ""
   
    Id.Show("", "", "OK", "","", Null  )
   
    btnCameraNumber_Click
    StartService(Communicator)
    ServerIp = Id.Input
    ServerPort = 17174 + CamNum
    StartService(Communicator)
    End Sub

Sub Activity_Resume
    InitializeCamera
End Sub

Private Sub InitializeCamera
    Try
        camEx.Initialize(Panel1, frontCamera, Me, "Camera1")
    Catch
        frontCamera = True
        camEx.Initialize(Panel1, frontCamera, Me, "Camera1")
    End Try
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    camEx.Release
End Sub

Sub Camera1_Ready (Success As Boolean)
    If Success Then
        camEx.StartPreview
        Log("Supported sizes:")
        For Each size As CameraSize In camEx.GetSupportedPicturesSizes
            Log(size.Width & "x" & size.Height)
        Next
        camEx.SetJpegQuality(90)
        Log(camEx.GetSupportedFlashModes)
        camEx.CommitParameters
    Else
        ToastMessageShow("Cannot open camera.", True)
    End If
End Sub

Sub btnTakePicture_Click
    camEx.TakePicture
End Sub

Sub Camera1_Preview (PreviewPic() As Byte)
    If DateTime.Now > lastPreviewSaved + IntervalMs Then
        Dim jpeg() As Byte = camEx.PreviewImageToJpeg(PreviewPic, 70)
        lastPreviewSaved = DateTime.Now
        CallSubDelayed2(Communicator, "Send", jpeg)
    End If
End Sub

Sub Camera1_PictureTaken (Data() As Byte)
    camEx.SavePictureToFile(Data, File.DirRootExternal, "1.jpg")
    camEx.StartPreview
End Sub

Sub btnEffect_Click
    Dim effects() As String = Array As String("aqua", "blackboard", "mono", "negative", "posterize", _
        "sepia", "solarize", "whiteboard")
    Dim effect As String = effects(Rnd(0, effects.Length))
    camEx.SetColorEffect(effect)
    ToastMessageShow(effect, False)
    camEx.CommitParameters
End Sub

Sub ChangeCamera_Click
    camEx.Release
    frontCamera = Not(frontCamera)
    InitializeCamera
End Sub
   
Sub btnCameraNumber_Click
    CamNum = CamNum +1
    If CamNum = 5 Then CamNum = 1
    btnCameraNumber.text = "# " & CamNum
    StopService(Communicator)
    ServerPort = 17174 + CamNum
    StartService(Communicator)
   
End Sub

Erel · Feb 10, 2014

What is the value of ServerIp after you set it? Use Log(ServerIp) to test it or put a breakpoint.

Douglas Farias · Feb 10, 2014

B4X:

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    'Dim Id As InputDialog
    Id.Input = ""
    Id.Show("", "", "OK", "","", Null  )
    btnCameraNumber_Click
    StartService(Communicator)
    ServerIp = Id.Input
    msgbox("my ip is: " & ServerIp, "test")
    ServerPort = 17174 + CamNum
    StartService(Communicator)
    End Sub

Douglas Farias · Feb 11, 2014

Sory for bump
I tried to simplify the most of what I'm trying to do.

I put serverIP As String Public and i make this

B4X:

Public Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    Id.Input = ""
    Id.Show("", "Put Here your ip", "OK", "","", Null  )
    btnCameraNumber_Click
 
    StartService(Communicator)
    ServerIp = Id.Input
    ServerPort = 17174 + CamNum
    StartService(Communicator)
 
        Msgbox("my ip is:" & ServerIp , "test")
    End Sub

when you start the app tell you what ip you want.
ok you put the ip, ok all is ok for now.

later i make a msgbox with the serverip
and ip shows me that I put at the beginning of the application ok.

but dont work

in comunicator

B4X:

Private Sub Connect
    If tryingToConnect Then Return
   
    tryingToConnect = True
    Log("Connecting to: " & Main.ServerIp & ":" & Main.ServerPort)
    client.Initialize("client")
    client.Connect(Main.ServerIp, Main.ServerPort, 20000)
End Sub

but Main.ServerIp is = 0

I DONT KNOW WHY THIS
in my msg box show me a correct ip but i think the comunicator dont show my code, i thin comunicator use only this
Public ServerIp As String

and not this ServerIp = Id.Input

B4X:

#Region Module Attributes
    #FullScreen: False
    #IncludeTitle: False
    #ApplicationLabel: Cliente Servidor
    #VersionCode: 1
    #VersionName:
    #SupportedOrientations: landscape
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: true
    #IncludeTitle: false
#End Region

'Activity module
Sub Process_Globals
    Private frontCamera As Boolean = False
    Public ServerPort As Int
    Public ServerIp As String
    Private IntervalMs As Int = 150
    Private lastPreviewSaved As Long
End Sub

Sub Globals
    Private Panel1 As Panel
    Private camEx As CameraExClass
   
    Private CamNum As Int = 0
   
    Private btnCameraNumber As Button
    Private EditText1 As EditText
    Dim Id As InputDialog
End Sub

Public Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    Id.Input = ""
    Id.Show("", "Put Here your ip", "OK", "","", Null  )
    btnCameraNumber_Click
   
    StartService(Communicator)
    ServerIp = Id.Input
    ServerPort = 17174 + CamNum
    StartService(Communicator)
   
        Msgbox("my ip is:" & ServerIp , "test")
    End Sub

Sub Activity_Resume
    InitializeCamera
End Sub

Private Sub InitializeCamera
    Try
        camEx.Initialize(Panel1, frontCamera, Me, "Camera1")
    Catch
        frontCamera = True
        camEx.Initialize(Panel1, frontCamera, Me, "Camera1")
    End Try
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    camEx.Release
End Sub

Sub Camera1_Ready (Success As Boolean)
    If Success Then
        camEx.StartPreview
        Log("Supported sizes:")
        For Each size As CameraSize In camEx.GetSupportedPicturesSizes
            Log(size.Width & "x" & size.Height)
        Next
        camEx.SetJpegQuality(90)
        Log(camEx.GetSupportedFlashModes)
        camEx.CommitParameters
    Else
        ToastMessageShow("Cannot open camera.", True)
    End If
End Sub

Sub btnTakePicture_Click
    camEx.TakePicture
End Sub

Sub Camera1_Preview (PreviewPic() As Byte)
    If DateTime.Now > lastPreviewSaved + IntervalMs Then
        Dim jpeg() As Byte = camEx.PreviewImageToJpeg(PreviewPic, 70)
        lastPreviewSaved = DateTime.Now
        CallSubDelayed2(Communicator, "Send", jpeg)
    End If
End Sub

Sub Camera1_PictureTaken (Data() As Byte)
    camEx.SavePictureToFile(Data, File.DirRootExternal, "1.jpg")
    camEx.StartPreview
End Sub

Sub btnEffect_Click
    Dim effects() As String = Array As String("aqua", "blackboard", "mono", "negative", "posterize", _
        "sepia", "solarize", "whiteboard")
    Dim effect As String = effects(Rnd(0, effects.Length))
    camEx.SetColorEffect(effect)
    ToastMessageShow(effect, False)
    camEx.CommitParameters
End Sub

Sub ChangeCamera_Click
    camEx.Release
    frontCamera = Not(frontCamera)
    InitializeCamera
End Sub
   
Sub btnCameraNumber_Click
    CamNum = CamNum +1
    If CamNum = 5 Then CamNum = 1
    btnCameraNumber.text = "# " & CamNum
    StopService(Communicator)
    ServerPort = 17174 + CamNum
    StartService(Communicator)
   
End Sub

please someone help me?
I put pictures of how the application is

Erel · Feb 11, 2014

See InputDialog documentation: http://www.basic4ppc.com/android/help/dialogs.html#inputdialog
InputDialog.Show returns a DialogResponse value (int). You should then get the actual string with InputDialog.Input.

These questions are not related to this thread. Please start a new thread for further questions.

Douglas Farias · Feb 19, 2014

Erel how to fix this error:

I have galaxy star and the client run fine. no problems

i have tested in my tablet, my table have only front camera.
when i start the app give me error in camera initializate java.

show me a option want continue yes or no
i press yes open the app and no show the camera, i press change camera button to change to front and again give me the error of camera initializate you know what this problem ?

m tablet is android 3.2 and the camera works fine in anothers app at google play

Erel · Feb 20, 2014

Does it work with this example: [Class] CameraEx - Extends the camera library functionality

Douglas Farias · Feb 20, 2014

Does it work with this example: [Class] CameraEx - Extends the camera library functionality

An error has occurred in sub; a_camera_initializcamera java line:818 java.lang.ClassCastException:java.lang.NoClassDefFoundError

THIS WORKS THE CAMERA
http://www.basic4ppc.com/android/forum/threads/take-pictures-with-the-internal-camera.6891/#content

Erel · Feb 20, 2014

Please start a new thread and post the full error message from the logs.

roger.jau · Jul 31, 2014

Hi Erel, is possible to do the reverse (I think so but don´t know how) the computer or ipcam send image to the android app ? have a sample ?

LucaMs · Jul 31, 2014

roger.jau said:
Hi Erel, is possible to do the reverse (I think so but don´t know how) the computer or ipcam send image to the android app ? have a sample ?

You should reverse and then have a web server on your smartphone.

Maybe it would be sufficient:
Embed an Http Server in your Android Application

(sorry, I'm not Erel... unfortunately!)

Erel · Aug 1, 2014

See B4J CCTV example: B4J CCTV example

It shouldn't be difficult to convert this code to B4A.

Eliezio · Aug 4, 2014

greetings to all,
this tutorial is for a video stream from phone to computer, I wonder how do I get the opposite, the video stream from my computer to the phone. I have IP cameras and frames it in visual studio, you want to develop an android application to receive the stream of video on my cell phone.
Thank you

Erel · Aug 4, 2014

It shouldn't be difficult to port this B4J example to B4A: B4J CCTV example

Android Tutorial Android based Closed Circuit TV (CCTV) example

Similar threads

Administrator

Expert

Expert

Administrator

Expert

Administrator

Expert

Administrator

Expert

Expert

Attachments

Administrator

Expert

Administrator

Expert

Administrator

Member

Expert

Administrator

Member

Administrator