Imports System

Imports System.Net

Imports System.IO

Imports System.Text

​

Public Module Module1

    Public Sub Main()

        Dim SendData As String      

        'Json que sera enviado 

        SendData = "{""TamirCG"": {"

        SendData+ ="  ""emissao"": ""25/11/2019"", "

        SendData+ ="""clientenome"": ""ANTONIO CARLOS"", "

        SendData+ ="""clientecpf"": ""15817543885"", "

        SendData+ ="""pagamento"":""1"", "

        SendData+ ="""valorcomanda"":""26,1"", "

        SendData+ ="""comandaproduto"": [ "

        SendData+ ="    { "

        SendData+ ="        ""id"": ""10"", "

        SendData+ ="        ""descricao"": ""BATATA FRITA"", "

        SendData+ ="        ""detalhe"": ""COM BACON"", "

        SendData+ ="        ""quantidade"": ""1"", "

        SendData+ ="        ""valorunitario"": ""25"", "

        SendData+ ="        ""valortotal"": ""25"" "

        SendData+ ="    }, "

        SendData+ ="    { "

        SendData+ ="        ""id"": ""1"", "

        SendData+ ="        ""descricao"": ""CHOPP BRAHMA"", "

        SendData+ ="        ""detalhe"": """", "

        SendData+ ="        ""quantidade"": ""0,3"", "

        SendData+ ="        ""valorunitario"": ""27"", "

        SendData+ ="        ""valortotal"": ""8,1"" "

        SendData+ ="    }, "

        SendData+ ="    { "

        SendData+ ="        ""id"": ""5"", "

        SendData+ ="        ""descricao"": ""MACARRAO"", "

        SendData+ ="        ""detalhe"": ""sem cebola"", "

        SendData+ ="        ""quantidade"": ""1"", "

        SendData+ ="        ""valorunitario"": ""18"", "

        SendData+ ="        ""valortotal"": ""18"" "

        SendData+ ="    }, "

        SendData+ ="    { "

        SendData+ ="        ""id"": ""11"", "

        SendData+ ="        ""descricao"": ""COCA-COLA"", "

        SendData+ ="        ""detalhe"": ""GELADA"", "

        SendData+ ="        ""quantidade"": ""1"", "

        SendData+ ="        ""valorunitario"": ""5"", "

        SendData+ ="        ""valortotal"": ""5"" "

        SendData+ ="    } "

        SendData+ ="        ] "

        SendData+ ="    } "

        SendData+ ="} "

        Dim oWebRequest As WebRequest

        Dim oWebResponse As WebResponse = Nothing

        Dim strBuffer As String = ""

        Dim objSR As StreamReader = Nothing

        'conecta com o serivor Atheas

        oWebRequest = WebRequest.Create("http://187.52.110.202:8088/datasnap/v1/Tintegracao/Comanda")

        oWebRequest.Credentials = New System.Net.NetworkCredential("PALMBEER", "A1B453ADD0964436750F818121D9975F")  

        oWebRequest.Method = "PUT"

        oWebRequest.ContentType  = "application/json"

        'Adcioanando o JSON na requisicao

        Dim byteData() As Byte

        Dim postStream As Stream = Nothing

        Dim reader As StreamReader

        ' Create a byte array of the data we want to send  

        byteData = UTF8Encoding.UTF8.GetBytes(SendData.ToString())

​

        ' Set the content length in the request headers  

        oWebRequest.ContentLength = byteData.Length

​

        ' Write data  

        Try

            postStream = oWebRequest.GetRequestStream()

            postStream.Write(byteData, 0, byteData.Length)

        Finally

            If Not postStream Is Nothing Then postStream.Close()

        End Try

​

         oWebResponse =  oWebRequest.GetResponse

        'Le a resposta do servidor athenas e armazena em uma stream

         objSR = New StreamReader(oWebResponse.GetResponseStream)

         strBuffer = objSR.ReadToEnd

         objSR.Close()

         oWebResponse.Close()

        'Escreve o reotrno

        Console.WriteLine(strBuffer)

    End Sub

End Module