tutto fila liscio ma non riesco a capire dove sbaglio !!
ho visto che Response.GetString("UTF8") va per deprecato, ma il suo sucessore qualè.
B4X:
Sub xhttpsocket_ResponseSuccess(Response As HttpResponse, TaskId As Int)
ProgressDialogHide
Dim msg As String
msg = "Connecting to server ..."
Try
If Response <> Null Then
msg = msg & CRLF & Response.GetString("UTF8")
End If
ToastMessageShow (msg, True)
Catch
msg = "Error Response"
ToastMessageShow (msg, True)
End Try
End Sub
Sub xhttpsocket_ResponseSuccess(Response As HttpResponse, TaskId As Int)
ProgressDialogHide
Dim msg As String
msg = "Connecting to server ..."
Try
If Response <> Null Then
Response.GetAsynchronously("json",File.OpenOutput(TempFolder, TaskId, False), True, TaskId)
Else
ToastMessageShow (msg, True)
End If
Catch
msg = "Error Response"
ToastMessageShow (msg, True)
End Try
End Sub
Qui scatta il json (incompleto) ma come noto dall'esempio di Erel recupero i dati da un file che riporta il numero del TaskId, leggendo i dati che mi servono.
Valido sistema anche per immagini, suoni ecc ecc in stream.
B4X:
Sub json_StreamFinish (Success As Boolean, TaskId As Int)
Dim s As String
s = File.GetText(TempFolder, TaskId)
ToastMessageShow (s, True)
End Sub