B4J Question WSS connection failed

jayel

Active Member
Licensed User
Longtime User
Hello

I tried this testcode :

test wss: 
Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private ws As WebSocketClient
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.Show
    Dim PagesManager As B4XPagesManager
    PagesManager.Initialize(MainForm)
    ws.Initialize("ws")
    'accept all trust manager
    Dim ssl As JavaObject
    ssl.InitializeNewInstance("org.eclipse.jetty.util.ssl.SslContextFactory", Array(True))
    Dim jo As JavaObject = ws
    Dim wsc As JavaObject
    wsc.InitializeNewInstance("org.eclipse.jetty.websocket.client.WebSocketClient", Array(ssl))
    jo.SetField("wsc", wsc)
  
    ws.Connect("wss://b4x.com:51041/smiley/ws")
    'ws.Connect("wss://192.168.4.139:17481")
    Wait For ws_Connected
    Log("connected")
End Sub

'Template version: B4J-1.0
#Region Delegates
Sub MainForm_FocusChanged (HasFocus As Boolean)
    B4XPages.Delegate.MainForm_FocusChanged(HasFocus)
End Sub

Sub MainForm_Resize (Width As Double, Height As Double)
    B4XPages.Delegate.MainForm_Resize(Width, Height)
End Sub

Sub MainForm_Closed
    B4XPages.Delegate.MainForm_Closed
End Sub

Sub MainForm_CloseRequest (EventData As Event)
    B4XPages.Delegate.MainForm_CloseRequest(EventData)
End Sub

Public Sub MainForm_IconifiedChanged (Iconified As Boolean)
    B4XPages.Delegate.MainForm_IconifiedChanged(Iconified)
End Sub
#End Region

But have errors... see below

 
Sort by date Sort by votes
C

Chris2

Active Member
Licensed User
Longtime User
I'm not sure if this is the issue but....
Make sure you're using the latest version of jWebsocketClient:

jWebSocketClientV2

I wish for a jWebSocketClient library (that can have a different name, so as to keep the jWebSocketClient library that's based on Jetty3) that is based on the latest Jetty revision that is included in the latest B4J. This may resolve the Web Socket connect issues found on this forum when it...
www.b4x.com

And then update your accept all trust manager code to:

jWebSocketClient v2 accept all certificates

Useful when you want to make a not so secure connection to a server with self signed certificate: Sub Process_Globals Private MainForm As Form Private xui As XUI Private ws As WebSocketClient End Sub Sub AppStart (Form1 As Form, Args() As String) MainForm = Form1...
www.b4x.com
 
Upvote 0

jayel

Active Member
Licensed User
Longtime User
Thanks for your help

But now I have this error immidiatilly
 
Upvote 0

jayel

Active Member
Licensed User
Longtime User
DonManfred said:
Do NOT use Images for a crashlog! Please post them as text as it is text which you can copy.
Click to expand...
Sorry
But with this image you can see that line 46 is highlighted.
See below the raw text

test wss: 
Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private ws As WebSocketClient
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.Show
    Dim PagesManager As B4XPagesManager
    PagesManager.Initialize(MainForm)
    ws.Initialize("ws")
'    'accept all trust manager
'    Dim ssl As JavaObject
'    ssl.InitializeNewInstance("org.eclipse.jetty.util.ssl.SslContextFactory", Array(True))
'    Dim jo As JavaObject = ws
'    Dim wsc As JavaObject
'    wsc.InitializeNewInstance("org.eclipse.jetty.websocket.client.WebSocketClient", Array(ssl))
'    jo.SetField("wsc", wsc)
'  
'    ws.Connect("wss://b4x.com:51041/smiley/ws")
'    'ws.Connect("wss://192.168.4.139:17481")
'    Wait For ws_Connected
'    Log("connected")

    'code om te proberen
    ws.Initialize("ws")
    SetAcceptAll(ws)
    ws.Connect("wss://ws.postman-echo.com/raw")
    Wait For ws_Connected
    Log("connected")



End Sub
Private Sub SetAcceptAll (WebSocket As WebSocketClient)
    Dim ssl As JavaObject
    ssl.InitializeNewInstance("org.eclipse.jetty.util.ssl.SslContextFactory.Client", Array(True))
    Dim ClientConnector As JavaObject
    ClientConnector.InitializeNewInstance("org.eclipse.jetty.io.ClientConnector", Null)
    ClientConnector.RunMethod("setSslContextFactory", Array(ssl))
    Dim Infos As JavaObject
    Infos.InitializeArray("org.eclipse.jetty.io.ClientConnectionFactory$Info", Array())
    Dim HttpTransport As JavaObject
    HttpTransport.InitializeNewInstance("org.eclipse.jetty.client.dynamic.HttpClientTransportDynamic", Array(ClientConnector, Infos))
    Dim HttpClient As JavaObject
    HttpClient.InitializeNewInstance("org.eclipse.jetty.client.HttpClient", Array(HttpTransport))
    Dim jo As JavaObject = WebSocket
    Dim wsc As JavaObject
    wsc.InitializeNewInstance("org.eclipse.jetty.websocket.client.WebSocketClient", Array(HttpClient))
    jo.SetField("wsc", wsc)
End Sub
'Template version: B4J-1.0
#Region Delegates
Sub MainForm_FocusChanged (HasFocus As Boolean)
    B4XPages.Delegate.MainForm_FocusChanged(HasFocus)
End Sub

Sub MainForm_Resize (Width As Double, Height As Double)
    B4XPages.Delegate.MainForm_Resize(Width, Height)
End Sub

Sub MainForm_Closed
    B4XPages.Delegate.MainForm_Closed
End Sub

Sub MainForm_CloseRequest (EventData As Event)
    B4XPages.Delegate.MainForm_CloseRequest(EventData)
End Sub

Public Sub MainForm_IconifiedChanged (Iconified As Boolean)
    B4XPages.Delegate.MainForm_IconifiedChanged(Iconified)
End Sub
#End Region
 
Upvote 0
You must log in or register to reply here.

Similar Threads

  • Article
B4J Tutorial Two great tools for testing webapps and webhooks
Replies
0
Views
2K
hatzisn
  • Question
B4J Question Websocket & hackers
Replies
12
Views
2K
LucaMs
  • Question
B4J Question [B4XPages] How can I set the second layout with SetFormStyle?
Replies
2
Views
1K
XorAndOr
N
  • Question
B4J Question [B4J] How to take the right Tableview Selected Cell value
Replies
5
Views
3K
Daestrum
  • Question
B4J Question Why does bluetooth not work in a UI app?
Replies
5
Views
980
Roycefer
R
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…