'Handler class
Sub Class_Globals
Dim outs As OutputStream
Dim ins As InputStream
Dim astream As AsyncStreams
End Sub
Public Sub Initialize
End Sub
Sub Handle(req As ServletRequest, resp As ServletResponse)
resp.ContentType = "text/event-stream"
resp.SetHeader("Cache-Control","no-cache")
resp.SetHeader("Transfer-Encoding", "chunked")
resp.setHeader("Connection", "keep-alive")
resp.CharacterEncoding = "UTF-8"
resp.Status = 200
outs = resp.OutputStream
ins = req.InputStream
astream.Initialize(ins, outs, "astream")
StartMessageLoop
End Sub
Private Sub astream_NewData (Buffer() As Byte) 'Here the llm app sends data
End Sub
Private Sub astream_Error
StopMessageLoop
End Sub
Private Sub astream_Terminated
StopMessageLoop
End Sub
Private Sub WriteStringToStream(sJSON As String)
Dim b() As Byte = sJSON.GetBytes("UTF8")
outs.WriteBytes(b, 0 ,b.Length)
Dim beosse() As Byte = Array As Byte(10, 10)
outs.WriteBytes(beosse, 0 ,beosse.Length)
End Sub