Executando verificação de segurança...
1
EwertonDutra
1 min de leitura ·

[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á

Carregando publicação patrocinada...
1
oraculo

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.

1
EwertonDutra
Autor
Autor

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

0
1
EwertonDutra
Autor
Autor

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)

1
EwertonDutra
Autor
Autor

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

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