WINDEV Mobile example how to use rest send and structures without using global variables with structure in class

TEM O PDF DA DOCUMENTACAO DENTRO DO ZIP

//EXEMPLO

URL is string = "https://api.dignustech.com.br/v1/partidas"

ENVIO is httpRequest
ENVIO.URL = URL
ENVIO.ContentType = mimeTypeJSON
ENVIO.Method = httpGet
RESPOSTA is httpResponse
RESPOSTA = RESTSend(ENVIO)

EDT_RESULTADO = RESPOSTA..Content

sRetJSON is Buffer = RESPOSTA..Content

Info(RESPOSTA..Content + CR + RESPOSTA..StatusCode)



//---------------------------------------------------------------------------------------- usando a classe

ClassWilli is a Class

m_Tabela is array of st_Tabela

END

st_totais is Structure
qtd is numeric
END

st_Tabela is Structure
id is numeric
data is string
hora is string
colete1 is string
colete2 is string
tempo is numeric
tempo1 is numeric
gol1_1 is numeric
gol2_1 is numeric
tempo2 is numeric
gol1_2 is numeric
gol2_2 is numeric
qrcode is string
status is string
END


//---------------------------------------------------- metodo

// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] ExecutaRest (<URL>)
//
// Parameters:
// URL: <specify the role of URL>
// Example:
// <Specify a usage example>
//
// instancia:
// URL: <specify the role of URL>
// instancia: <specify the role of instancia>
PROCEDURE ExecutaRest(URL)

ENVIO is httpRequest
ENVIO.URL = URL
ENVIO.ContentType = mimeTypeJSON
ENVIO.Method = httpGet
RESPOSTA is httpResponse
RESPOSTA = RESTSend(ENVIO)

sRetJSON is JSON = RESPOSTA..Content
n is int = sRetJSON.qtd
i is int = 0
nAux1 is int = 0

LOOP(n)

i++

//info(sRetJSON.registros[i].id)

nAux1 = ArrayAdd(m_Tabela)

m_Tabela[nAux1].id = sRetJSON.registros[i].id
m_Tabela[nAux1].data = sRetJSON.registros[i].data
m_Tabela[nAux1].hora = sRetJSON.registros[i].hora
m_Tabela[nAux1].colete1 = sRetJSON.registros[i].colete1
m_Tabela[nAux1].colete2 = sRetJSON.registros[i].colete2
m_Tabela[nAux1].tempo = sRetJSON.registros[i].tempo
m_Tabela[nAux1].tempo1 = sRetJSON.registros[i].tempo1
m_Tabela[nAux1].gol1_1 = sRetJSON.registros[i].gol1_1
m_Tabela[nAux1].gol2_1 = sRetJSON.registros[i].gol2_1
m_Tabela[nAux1].tempo2 = sRetJSON.registros[i].tempo2
m_Tabela[nAux1].gol1_2 = sRetJSON.registros[i].gol1_2
m_Tabela[nAux1].gol2_2 = sRetJSON.registros[i].gol2_2
m_Tabela[nAux1].qrcode = sRetJSON.registros[i].qrcode
m_Tabela[nAux1].status = sRetJSON.registros[i].status

END

RESULT RESPOSTA..Content


//------------------------------- codigo no botao


executa01 is ClassWilli

EDT_RESULTADO = executa01.ExecutaRest("https://api.dignustech.com.br/v1/partidas")

//---------------------------------------------------------------