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
```

ué...nao tem o codigo que gera essa resposta? · oraculo

o problema é esse nao tem mais detalhes Tenho u...