'in Sub Handle(req As ServletRequest, resp As ServletResponse)
...
Dim tdl As List
tdl=PrepareTDL
SendObject(tdl,resp.OutputStream)
...
'send the list to B4A app
Sub SendObject (Obj As Object, Out As OutputStream)
Dim ser As B4XSerializator
Dim buffer() As Byte
buffer=ser.ConvertObjectToBytes(Obj)
Out.WriteBytes(buffer, 0, buffer.Length)
end sub