Olá a todos.

Levantei um serviço Rest e comecei a fazer alguns testes, porém está havendo uma demora na resposta quando o retorno começa a crescer. No primeiro exemplo abaixo a resposta do serviço é "instantânea". Já no segundo exemplo o retorno é imediato, porém o navegador continua processando. Quando integro a Api a uma aplicação web o segundo exemplo causa um erro devido a demora na resposta.

Exemplo 1:

Exemplo 2:

Api Rest:

#Include 'Protheus.ch'
#Include 'restful.ch'

ser Function WEBSERVICE_TESTE()
Return

WSRESTFUL WEB_TESTE DESCRIPTION "Serviço REST para WEB_TESTE"
    WSDATA usuario         As String
    WSDATA senha        As String

    WSMETHOD GET login     DESCRIPTION "Retorna se o usuário é válido"     WSSYNTAX "/WEB_TESTE/login"     PATH "/login"

END WSRESTFUL

WSMETHOD GET login WSRECEIVE usuario,senha WSSERVICE WEB_TESTE
    Local cUsuario     := Self:usuario
    Local cSenha     := Self:senha
    Local aArea        := GetArea()
    Local cJson       := ""
    Local nRetorno     := ""
    Local jsonMont    := JsonObject():new()
    ::SetContentType("application/json")

    if(cUsuario =="teste")
        nRetorno := '{"id":1,"codigo":"12345"}'
    elseif(cUsuario =="teste1")
        nRetorno := '{"id":1,"codigo":"12345","nome":"teste1","cargo":"gerente", "cc":"999999999"}'
    endif

    jsonMont:fromJson(nRetorno)
    cJson := FWJsonSerialize(jsonMont)
    ::SetResponse(cJson)
    freeObj(jsonMont)
    RestArea(aArea)
Return(.T.)

Configuração do serviço:

[rest]
SourcePath=E:\TOTVS12\Microsiga\Protheus\apo\rest\rest
RootPath=E:\TOTVS12\Microsiga\protheus_data
StartPath=\system\
x2_path=
RpoDb=top
RpoLanguage=Portuguese
RpoVersion=120
LocalFiles=CTREE
Trace=0
localdbextension=.dtc
TopMemoMega=10
PictFormat=DEFAULT
DateFormat=DEFAULT
MAXLOCKS= 30000
SpecialKey=PRD

[TopConnect]
DataBase=MSSQL
Server=localhost
ALIAS=PRODUCAO
PROTHEUSONLY=0
driver=totvsapi.dll

[Drivers]
Active=TCP

[TCP]
TYPE=TCPIP
Port=2564


[General]
InstallPath=E:\TOTVS12\Protheus
ConsoleLog=0
CtreeMode=Server
MAXSTRINGSIZE=10
CtreePreImg=1 



[MAIL]
Protocol=POP3


[HTTP] 
ENABLE=1 
PORT=87 
PATH=C:\TOTVS 12\help-online 
ENVIRONMENT=rest

[GENTCPIP]
Enable=0


[HTTPV11] 
Enable=1 
Sockets=HTTPREST 

[HTTPREST] 
Port=8084
IPsBind=
URIs=URIHTML
SECURITY=0

[URIHTML]
URL=/html-protheus/rest
PrepareIn=01,00
Instances=1,1
CORSEnable=1
AllowOrigin=*

[ONSTART]
jobs=HTTPJOB
RefreshRate=120

[HTTPJOB]
MAIN=HTTP_START
ENVIRONMENT=rest