B4J Question OkHttpUtils2 issue with Non-UI app

M

magarcan

Active Member
Licensed User
Longtime User
Here is the code:
B4X: 
        Dim j As HttpJob
        j.Initialize("", Me)
        j.Download("https://www.google.com")
        Wait For (j) JobDone(j As HttpJob)
        If j.Success Then
            Log(j.GetString)
        End If
        j.Release

Same code runs without any problem within B4XPages but itdoesn't using Console (Non-UI).

Does it makes any sense?
 
Sort by date Sort by votes

DonManfred

Expert
Licensed User
Longtime User

Resumable Subs (wait for / sleep) in server handlers

Resumable subs can only work when there is a message queue. By default, server handlers end when the Handle sub is completed. They do not create a message loop. If you want to wait for an event then you need to call StartMessageLoop and later StopMessageLoop. Example of handler that downloads...
www.b4x.com
 
Upvote 0
M

magarcan

Active Member
Licensed User
Longtime User
Thank you for the anser, but as I understood
A handler is a B4J class that is mapped to a URL. A handler class is responsible for getting the request and providing the response.
Click to expand...

The fact is that I'm not working as a server, just a little console program without GUI.
 
Upvote 0
M

magarcan

Active Member
Licensed User
Longtime User
B4X: 
Sub AppStart (Args() As String)
    Dim tr As TextReader
    tr.Initialize(File.OpenInput(File.DirApp, Args(0)))
        
    Dim line As String
    line = tr.ReadLine

    Do While line <> Null
        line = tr.ReadLine
            
        Dim j As HttpJob
        j.Initialize("j", Me)
        j.Download(line)
        Log("Downloading: " & line)
        StartMessageLoop
    Loop
    tr.Close
    ExitApplication2(0)   
End Sub

B4X: 
Sub JobDone(Job As HttpJob)
    If Job.Success Then
        Log(Job.GetString)
        Log("ENDDDDDDDDDDDD")
        '...
    Else
        Log(Job.ErrorMessage)
    End If
    Job.Release
    StopMessageLoop
End Sub

But I get an error just before download second file:
 
Upvote 0

Erel

B4X founder
Staff member
Licensed User
Longtime User
Two "code smells" ( [B4X] "Code Smells" - common mistakes and other tips ):
1. JobDone sub.
2. TextReader.

B4X: 
Sub AppStart (Args() As String)
  Download
  StartMessageLoop
End Sub

Sub Download
 Dim lines As List = File.ReadList(...)
 For Each line As String In lines
       Dim j As HttpJob
        j.Initialize("", Me)
        j.Download(line)
        Wait For (j) JobDone (j As HttpJob)
         If j.Success Then
             ...
         End If
         j.Release
 Next
 ExitApplication
 
Upvote 0
You must log in or register to reply here.

Similar Threads

A
  • Question
B4J Question B4j Running at Console (Non-UI) getting issue
Replies
4
Views
857
DonManfred
T
  • Question
B4J Question Error on jOkHttpUtils2(2.92)
Replies
1
Views
743
Erel
S
  • Question
B4J Question Error jJasperReports
Replies
0
Views
4K
samperizal
S
  • Question
B4J Question Help with HttpJob
Replies
2
Views
1K
jroriz
  • Question
B4J Question javaobject not matched
Replies
3
Views
718
xulihang
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…