Jump to content

Search the Community

Showing results for tags 'json'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Categories

There are no results to display.

Forums

  • Fórum Aberto - ACBr
    • ACBr News
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrMonitor PLUS
    • ACBrDFe
    • ACBrTEFD e Dúvidas sobre TEF
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
    • Dia do ACBr
  • Suporte Pago - SAC
    • Dúvidas gerais
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • ACBr's Pub
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Data Base
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categories

  • ACBrLib
  • Suporte Pago - SAC
    • ACBrMonitorPLUS - SAC
    • Utilitários - SAC
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
  • Free Download
    • ACBrMonitorPLUS
    • Demos / Testes / Utilitários
    • Apresentações - Palestras

Calendars

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Community Calendar
  • Feriados Nacionais

Blogs

  • Daniel Simoes' Blog
  • André Ferreira de Moraes
  • Moderadores ACBr
  • Teste de Blog
  • Notícias do ACBr

Categories

  • Suporte Pago - SAC
    • Webinars
    • Video Aulas
    • Palestras - Dia do ACBr 2a Ediçao
  • Vídeos Abertos
    • Video Aulas
    • Comunicados
    • Dia do ACBr 2a Ediçao
    • Dia do ACBr 1a Ediçao
    • Homologação ACBr
  • Campanhas promocionais

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Website URL


Skype


Localização


Interesses


CNPJ da Empresa


CPF

Found 9 results

  1. Alguém sabe se existe um Web Service do Bradesco, que tenha como exportar o arquivo de remessa de boletos, que o componente ACBr Boleto gera, em um formato REST por JSON ou XML para ser cadastrado automaticamente sem usar o Bradesco Net Empresa?
  2. Bom dia Galera! Estou tentando montar um JSON para comunicacao com uma API, o formato que preciso montar é esse: { "id": "1", "type": "TPS", "SubObjeto": { "name": "Teste", "phones": [ "987654321","0123456789" ], "address": { "country": "BR", "state": "MT" } } } Só que ate agora o que consegui foi: var LJson, LJsonObject: TJSONObject; LArray: TJSONArray; LJsonObject := TJSONObject.Create; LJsonObject.AddPair(TJSONPair.Create('id', '1')); LJsonObject.AddPair(TJSONPair.Create('type', 'TPS')); // SubObjeto LArray := TJSONArray.Create; LJson := TJSONObject.Create; LJson.AddPair(TJSONPair.Create('name', 'Teste')); LJson.AddPair(TJSONPair.Create('phones', ?)); //Address ? LArray.Add(LJson); LJsonObject.AddPair(TJSONPair.Create('SubObjeto', LArray)); ShowMessage(LJsonObject.ToString); Alguém já montou algum JSON assim ? Desde já agradeço!
  3. Boa Noite Pessoal! Em minhas últimas postagens eu estava com dificuldades para integrar com uma api e enviar arquivos JSon. Graças à ajuda de nosso amigo "DATILAS" (Douglas Átilas), consegui implementar com sucesso a ferramenta de integração. Porém, praticamente de 98 a 99% das ordens enviadas (arquivos JSon) tem seu envio sem nenhum problema, sendo recebido integralmente pelo web service da api. O restante que minha ferramenta não consegue enviar é que eu não estou conseguindo resolver a questão, porque se eu copio uma dessas ordens que apresentou problema e tento enviar pelo "boomerang" ou pela "Restlet Client" do Google", a mesma é enviado normalmente. Alguém poderia me auxiliar nessa questão, por gentileza? Segue abaixo uma das ordens que apresentam problema em minha ferramenta: [{"Driver":{"PhoneCountry":"+55","PhoneNumber":"19 994559352"},"Customer":{"DocumentType":"CNPJ","DocumentNumber":"11229082000167"},"OrderType":1,"OrderID":"229551","OrderNumber":"229551","Sequence":"3","OrderDescription":"NF-e","OrderDescriptionDocuments":"NF-e","SourceAddress":{"Address":"RUA KINITI MORI, 110","Address2":"COMENDADOR MARIO DEDINI","ZipCode":"13413069","City":"PIRACICABA","State":"SP","Country":"BRASIL","Name":"PIRACICABA CARNES E DERIVADOS EIRELI","Responsibility":"REGINALDO","PhoneCountry":"+55","PhoneNumber":"(19)3917-0260"},"DestinationAddress":{"Address":"AV. RIO DAS PEDRAS, 192","Address2":"PIRACICAMIRIM","ZipCode":"13420520","City":"PIRACICABA","State":"SP","Country":"BRASIL","Name":"BAR PANTERA","Responsibility":"DIJALMA","PhoneCountry":"+55","PhoneNumber":"19 3426 2942"},"Documents":[{"DocumentID":"229551","DocumentNumber":"229551","Volumes":[{"VolumeID":"1","Count":1,"BarCode":"0","Read":1}]}],"Observation":"RAZAO SOCIAL: DJALMA PERES FARIAS ME ","DepartureDate":"2019-10-08T00:00:00"}] Para enviar essa ordem, ela é gerada em um TMemo e depois enviada pelo código abaixo: Link do Manual da API: https://api.tudoentregue.com.br/Documentacao/ Segue rotina para envio... function TFExportaEntrega.EnviarJSon(caminho: String; ArqJSon: TMemo): Boolean; Var code: Integer; sResponse, url: String; JsontoSend, AResponseContent: TStringStream; iStatusCode: Integer; http: TIdHTTP; Handler: TIdSSLIOHandlerSocketOpenSSL; Begin JsontoSend := TStringStream.Create(ArqJSon.Text); AResponseContent := TStringStream.Create(''); http := TIdHTTP.Create(Nil); Handler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); Try http.Request.CharSet := 'utf-8'; http.Request.ContentType := 'application/json'; http.Request.CustomHeaders.AddValue('AppKey', '58fb05c3-4e8b-4929-b7df-95bd261035c9'); http.Request.CustomHeaders.AddValue('RequesterKey', '629eda6f-9df5-40e7-a94e-4c54cec83a15'); http.IOHandler := Handler; http.Response.ContentType := 'application/json'; http.Response.CharSet := 'utf-8'; url := 'http://api.tudoentregue.com.br/v1' + caminho; Try http.Post(url, JsontoSend, AResponseContent); Except On E:Exception Do Begin Memo_Resp.Lines.Add('Response Content : '); AResponseContent.Position := 0; Memo_Resp.Lines.LoadFromStream(AResponseContent); Memo_Resp.Lines.Add('Error on Response Code: ' + InttoStr(http.ResponseCode)); Memo_Resp.Lines.Add('Error on Response Text: ' + http.ResponseText); Memo_Resp.Lines.Add('Error on Request: ' + sLineBreak + E.Message); EnviarJSon := false; exit; End; End; EnviarJSon := True; Finally JsontoSend.Free; AResponseContent.Free; http.Free; Handler.Free; End; end; Se alguém puder me ajudar ficarei muito grato pois não sei mais o que fazer. Att. Daniel
  4. Boa Tarde Pessoal! Em minha ultima postagem o Datilas me ajudou demais (Muito Obrigado mesmo)! Consegui enviar os motoristas conforme a orientação dele e está funcionando perfeitamente. Porém, agora preciso enviar as ordens, e deveriam seguir as mesmas regras mudando apenas o caminho (orders). Mas não está enviando e me retorna erro 400 - Bad Request. Segue abaixo o código, caso alguém possa me ajudar. procedure TForm1.Button1Click(Sender: TObject); Var code: Integer; sResponse: String; Json: String; JsontoSend, AResponseContent: TStringStream; iStatusCode: Integer; http: TIdHTTP; Handler: TIdSSLIOHandlerSocketOpenSSL; Begin Json := '{"Driver": {"PhoneCountry": "+55","PhoneNumber": "19999690130"},"Customer": {"DocumentType": "CNPJ","DocumentNumber": "11229082000167"},"OrderType": 1,"OrderID": "123456","OrderNumber": "123456","OrderDescription": "NF-e",'; Json := Json + '"OrderDescriptionDocuments": "NF-e","SourceAddress": {"Address": "Rua Rahal, 71","Address2": "Jardim Santa Mena","ZipCode": "07097020","City": "Guarulhos","State": "Sao Paulo.","Country": "Brasil","Name": "Active Corp"'; Json := Json + ',"Responsibility": "Everton Implantacão","PhoneCountry": "+55", "PhoneNumber": "11988999199"},"DestinationAddress": {"Address": "Rua Sales, 812","Address2": "Cabucu","ZipCode": "07144260","City": "Guarulhos","State": "Sao Paulo","Country": "Brasil"'; Json := Json + ',"Name": "Everton Destinatario","Responsibility": "Everton","PhoneCountry": "+55","PhoneNumber": "1199994-9999"},"Documents": [{"DocumentID": "ID999999","DocumentNumber": "999999999","Volumes": [{"VolumeID": "ID999999","Count": 5,'; Json := Json + '"BarCode": "99999999999999999999","Read": 5}]}],"Observation": "Observação da Ordem para liberação."}'; JsonToSend := TStringStream.Create(Json); AResponseContent := TStringStream.Create(''); http := TIdHTTP.Create(Nil); Handler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); // Memo1.Lines.Clear; Try http.Request.CharSet := 'utf-8'; http.Request.ContentType := 'application/json'; http.Request.CustomHeaders.AddValue('AppKey', '58fb05c3-4e8b-4929-b7df-95bd261035c9'); http.Request.CustomHeaders.AddValue('RequesterKey', '629eda6f-9df5-40e7-a94e-4c54cec83a15'); http.IOHandler := Handler; http.Response.ContentType := 'applicattion/json'; http.Response.CharSet := 'utf-8'; Try http.Post('https://api.tudoentregue.com.br/v1/orders', JsontoSend, AResponseContent); Except On E: Exception Do Begin Memo1.Lines.Clear; Memo1.Lines.Add('Error on Response Code: ' + InttoStr(http.ResponseCode)); Memo1.Lines.Add('Error on Response Text: ' + http.ResponseText); Memo1.Lines.Add('Error on Request: ' + sLineBreak + e.Message); exit; End; End; Memo1.Lines.Clear; Memo1.Lines.Add('Response Content: ' + AResponseContent.DataString); Memo1.Lines.Add('Response Code: ' + InttoStr(http.ResponseCode)); Memo1.Lines.Add('Response Text: ' + http.ResponseText); Finally JsontoSend.Free; AResponseContent.Free; http.Free; Handler.Free; End; end; O arquivo JSon está correto porque foi enviado como exemplo pela empresa do software (ActiveCorp). Se alguém puder me ajudar, ficarei muito grato. Daniel
  5. Boa Tarde Pessoal! Se puderem me orientar, preciso consumir uma API (segue documentação... https://api.tudoentregue.com.br/Documentacao/index.html) Quanto à geração dos arquivo no formato Json, eu já consegui entender. Porém, já tentei de várias formas e não consigo fechar comunicação com web service para Post do arquivo. Vi na documentação que tem um "AppKey" e um "RequesterKey". As duas chaves eu possuo mas não tenho ideia de onde as defino. securityDefinitions": { "AppKey": { "type": "apiKey", "in": "header", "name": "AppKey", "description": "Identificador do software Homologado junto à ActiveCorp para integrar dados ao TudoEntregue." }, "RequesterKey": { "type": "apiKey", "in": "header", "name": "RequesterKey", "description": "Identificador único do Motorista/Cliente junto ao TudoEntregue." Estou utilizando IDHTTP, mas seria interessante que o envio fosse através de HTTPS. Vejam como estou fazendo: var code : Integer; sResponse : String; Json : String; JsontoSend : TStringStream; begin Json := '{"PhoneCountry": "+55", "PhoneNumber": "19999999999", "Name": "Daniel", "IMEI": "", "DeviceKey": "", "DeviceId": "",'; Json := Json +'"DeviceType": "MarcaModelo", "OSName": "Android", "OSVersion": "7.0", "Email": "[email protected]", "ZipCode": "13400000", "City": "Piracicaba", "State": "Sao Paulo", "Enable": false}'; JsonToSend := TStringStream.Create(utf8Encode(Json)); try IdHTTP1.Request.Clear; IdHTTP1.Request.CharSet := 'UTF-8'; IdHTTP1.Request.Method := 'POST'; IdHTTP1.Request.ContentType := 'application/json'; IdHTTP1.Response.ContentType := 'applicattion/json'; IdHTTP1.Response.CharSet := 'UTF-8'; try sResponse := IdHTTP1.Post('http://api.tudoentregue.com.br/v1/drivers',JsontoSend); except on E:EIdHTTPProtocolException do begin Memo1.Lines.Clear; Memo1.Lines.Add('Error on Request: ' + #13+#10 + e.Message); exit; end; end; Memo1.Lines.Clear; Memo1.Lines.Add(sResponse); finally JsontoSend.Free(); end; end; Alguém poderia me dar um exemplo de como enviar os arquivos se possivel em HTTPS? Desde já agradeço! Daniel
  6. Atualizei o ACBr e agora quando vou compilar minha aplicação está dando o seguinte erro: Unit Jsons not found em Fontes\ACBrTCP\ACBrIBGE.pas na linha --> uses strutils, dateutils, blcksock, Jsons, ACBrUtil; Como faço para corrigir?
  7. Bom dia pessoal, Alguém recomenda algum componente para trabalhar com JSON em Delphi 7? Encontrei as seguintes opções: JSON delphi library Delphi Web Utils tiny-json Alguém recomenda alguma destas ou outras?
  8. Pessoal, Inevitavelmente, cada vez mais JSON vem se tornando o protocolo de comunicação mais utilizados entre as aplicações. Sabemos que existem bibliotecas de conversão nativas tanto para o Delphi quanto para o Lazarus. E tantas outras de terceiros, de código fechado e de código aberto. Creio que cedo ou tarde, o projeto ACBr terá que fazer uso de alguma biblioteca JSON, então gostaria de propor aqui uma discussão pra validar/decidir o uso de JSON dentro do projeto ACBr. Poderia-se iniciar com algumas questões: Criar uma biblioteca própria? Criada do zero, ou se basear em alguma já existente? Usar uma existente e colocar dentro de /Terceiros/? Qual biblioteca existente utilizar? Usar nativo? IFDEF pra Lazarus e Delphi/XE? Estou levantando essa questão, pois estou criando um componente pra realizar a comunicação com o COSMOS da Bluesoft fazendo uso da TACBrHTTP, onde o retorno é JSON. Na qual, quem sabe após a definição de uma biblioteca JSON, esse componente poderá fazer parte do projeto ACBr... claro se o mesmo for aprovado. Aguardo uma discussão []'s
  9. Olá pessoal. Tenho interesse em contratar freelancers para o desenvolvimentos de algum módulos em html 5 Os módulos são integrações por json de sistemas existentes. E-mail para contato: [email protected]
×
×
  • Create New...