Android Question Icon at the top of the screen

Tim Chapman

Active Member
Licensed User
Longtime User
Is there a way to make an icon show at the top of the screen?
I want to do so to notify the user that a background service (GPS tracking) is running.

I do not want a notification. Just an icon.

Thanks in advance!
 

Alexander Stolte

Expert
Licensed User
Longtime User
Is there a way to make an icon show at the top of the screen?
I want to do so to notify the user that a background service (GPS tracking) is running.
use the nb6 class and set your notification to OnGoingEvent = True. Then you can even tell the user that a gps task is running in the background if he can't do anything with your icon ;)
Or place simply a imageview or a label on the top of your app with an icon.
 
Upvote 0

Imran_Farooq

Member
Licensed User
hi,
it is possible to getting some image (BLOB) type data from JSONParser

actually i want to be extract image type data field from remote server into local sqlite database. my code is as under

-------------------------------------------------------------------------------------------------------
Private NewRegistrationUrl As String = db_server & "/NewRegistration.aspx"

Job1.PostString(NewRegistrationUrl, "select IDNO,NAME,IMAGE from profile ")

job1.GetRequest.Timeout=30000
Wait For (job1) JobDone(job1 As HttpJob)
If job1.Success Then
''Log(job2.GetString)
Dim parser As JSONParser
Dim response As String = job1.GetString
parser.Initialize(response)
Dim rows As List
rows = parser.NextArray

'''work with result
'''rows is a List. Each item is a Map with the columns names as keys and the db values as the values.

''Log(rows.Size)

If rows.Size = 0 Then
ProgressDialogHide
ToastMessageShow("Record Not Found!",True)', True, Colors.Green)
Return
End If

For i = 0 To rows.Size - 1

Dim m As Map
m = rows.Get(i)
Log("col1=" & m.Get("IDNO")) 'log the values of col1 and col2
Log("col2=" & m.Get("NAME"))
Log("col3=" & m.Get("IMAGE")) 'log the values of col1 and col2

Dim Bmp As Bitmap = m.Get("IMAGE")
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
Bmp.WriteToStream(OutputStream1, 90, "JPEG")
Dim Buffer() As Byte = OutputStream1.ToBytesArray
SQL1.ExecNonQuery2("INSERT INTO profile VALUES (?, ?, ?)", Array As Object(m.Get("IDNO"),m.Get("NAME"),Buffer))
'SQL1.ExecNonQuery2("INSERT INTO profile VALUES (?, ?, ?)", Array As Object(m.Get("IDNO"),m.Get("NAME"),m.Get("IMAGE")))
Next
Else

Return

End If
job1.Release
ProgressDialogHide
 
Upvote 0

ilan

Expert
Licensed User
Longtime User
hi,
it is possible to getting some image (BLOB) type data from JSONParser

actually i want to be extract image type data field from remote server into local sqlite database. my code is as under

-------------------------------------------------------------------------------------------------------
Private NewRegistrationUrl As String = db_server & "/NewRegistration.aspx"

Job1.PostString(NewRegistrationUrl, "select IDNO,NAME,IMAGE from profile ")

job1.GetRequest.Timeout=30000
Wait For (job1) JobDone(job1 As HttpJob)
If job1.Success Then
''Log(job2.GetString)
Dim parser As JSONParser
Dim response As String = job1.GetString
parser.Initialize(response)
Dim rows As List
rows = parser.NextArray

'''work with result
'''rows is a List. Each item is a Map with the columns names as keys and the db values as the values.

''Log(rows.Size)

If rows.Size = 0 Then
ProgressDialogHide
ToastMessageShow("Record Not Found!",True)', True, Colors.Green)
Return
End If

For i = 0 To rows.Size - 1

Dim m As Map
m = rows.Get(i)
Log("col1=" & m.Get("IDNO")) 'log the values of col1 and col2
Log("col2=" & m.Get("NAME"))
Log("col3=" & m.Get("IMAGE")) 'log the values of col1 and col2

Dim Bmp As Bitmap = m.Get("IMAGE")
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
Bmp.WriteToStream(OutputStream1, 90, "JPEG")
Dim Buffer() As Byte = OutputStream1.ToBytesArray
SQL1.ExecNonQuery2("INSERT INTO profile VALUES (?, ?, ?)", Array As Object(m.Get("IDNO"),m.Get("NAME"),Buffer))
'SQL1.ExecNonQuery2("INSERT INTO profile VALUES (?, ?, ?)", Array As Object(m.Get("IDNO"),m.Get("NAME"),m.Get("IMAGE")))
Next
Else

Return

End If
job1.Release
ProgressDialogHide
1, you have already opened a thread about your issue no why are you posting your question in another thread that has nothing to do with your issue?
2, don't post your code as text use the code block for that
 
Upvote 0
Top