[Dúvida] Servidor em VB6 alguém já fez? Preciso responder um JSON
Bom dia, Tudo certo com vocês?
Estou ajudando uma pessoa a responder um JSON em VB6, mas ele não soube me informar como trocar a resposta para o corpo da requisição Ele está escrevendo lá e resposta vem toda no HEAD da solicitação
ex: {"message" "ok"}
Não vem no corpo nosso JSON
Sabem informar como dizer que nós queremos mudar para o corpo da resposta Creio que deveria ser algo como o HTML ter o head e o body
Valeu pela ajuda desde já
precisa compartilhar mais detalhes...algumas linhas de código talvez.
json é json, não tem head e body, só um objeto. é um tipo de resposta http assim como o html é outro.
o problema é esse
nao tem mais detalhes
Tenho um componente no formulário para responder as requisições
coloco a resposta
{"meesage":"ok"}
e essa resposta fica no cabeçalho da resposta no insomnia por exemplo
Mas posso tirar um print depois para ver, mas é isso mesmo que tenho
ué...nao tem o codigo que gera essa resposta?
como disse depois tiro print
Mas comentei que só passo esse conteúdo para o componente respender, só que fica tudo no cabeçalho (headers + conteúdo, que é o message)
codigo de exemplo que vou tentar daqui a pouco para cer se funciona
o que está diferente no nosso código é que não tem esses `vbCrLf`
```vb
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Dim jsonResponse As String
' Recebe os dados enviados pelo cliente
Winsock1.GetData strData
' Cria uma string JSON para resposta
jsonResponse = "{""mensagem"": ""Olá, mundo!""}"
' Envia a resposta JSON
Winsock1.SendData "HTTP/1.1 200 OK" & vbCrLf
Winsock1.SendData "Content-Type: application/json" & vbCrLf & vbCrLf
Winsock1.SendData jsonResponse
End Sub
```