Sub hc_ResponseSuccess (Response As OkHttpResponse, tarea As Int)
File.Delete(File.DirDefaultExternal,"respuesta.csv")
Response.GetAsynchronously("FileResponse",File.OpenOutput(File.DirDefaultExternal,"respuesta.csv",True),True,1)
End Sub
Sub FileResponse_StreamFinish (Success As Boolean, TaskId As Int)
If Success = False Then
Log("error")
Return
End If
Dim res as String=File.ReadString(File.DirDefaultExternal, "respuesta.csv")
Log("Respuesta= :"&res)
End Sub