Jump to content

Search the Community

Showing results for tags 'delphi'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Categories

There are no results to display.

Categories

  • Notes ACBrLibNFe

Forums

  • Fórum Aberto - ACBr
    • ACBr News
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrDFe
    • Dúvidas sobre TEF
    • Dúvidas sobre PIX
    • ACBrMonitor PLUS
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
  • ACBr Pro
    • 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

  • ACBr Pro
    • ACBrLib - PRO
    • ACBrMonitorPLUS - PRO
    • Utilitários - PRO
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
    • ACBrLib Android - Pro
  • Free Download
    • ACBrLib - DEMO
    • ACBrMonitorPLUS - DEMO
    • Demos / Testes / Utilitários
    • Apresentações - Palestras
    • ACBrLib Android - Demo

Calendars

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Community Calendar
  • ACBr Papo Pro
  • Feriados Nacionais

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

  1. Olá, Preciso salvar as margens desejadas via códigos (estou fazendo isso salvando em uma tabela do mysql antes), logo depois quero que essas margens sejam aplicadas a todos os relatórios da minha aplicação. Sou nova com Delphi e principalmente com FastReport, alguem pode em ajudar... >_<
  2. Pessoal, eu tenho um PDV Android que até então funciona muito bem. Eu já tenho ele homologado no Gertec GPOS700 e agora preciso também homologar no GPOS720, mas quando eu adiciono a lib (Em anexo) do 720 ele para de compilar acusando o erro abaixo: [Exec Error] EXEC(1): com.android.dx.cf.code.SimException: ERROR in gedi.t1.b:(Ljava/lang/String;)I: invalid opcode ba - invokedynamic requires --min-sdk-version >= 26 (currently 13) Peguei um exemplo em Delphi com a Gertec, e acontece a mesma coisa. Nem eles conseguiram me ajudar, fizemos uma call para verificar a configurações do ambiente de desenvolvimento, e aparentemente está igual. Mas lá compila . Delphi 10.4 libgedi-0.16.17-beta.0-gpos720-payment-release.jar
  3. Boa noite caros amigos, Estou precisando fazer um formulário para visualizar um determinado tipo de reservas. Eu encontrei em alguns sistemas de hotel, um componente que se adéqua perfeitamente no que eu quero, porém, não sei o nome dele, se ele é nativo do delphi (acho que não é) nem nada a respeito. =/ Ele mostra os registros do lado esquerdo, no caso os apartamentos, e as colunas são os dias dos meses. Gostaria de saber se alguém conhece o componente e se é tranquilo de trabalhar com ele? Segue a imagem dele abaixo em uma tela de reservas de apartamento de um hotel. Atenciosamente.
  4. Não estou conseguindo emitir o MDFe. Como migrar para a recepção sincronal, exigida a partir de 01.07.24?
  5. Conforme instruido no TXT de configuração para o uso da API de Boletos do Banco do Brasil, foi configurado o componente, porem o retorno do envio da remessa pela api retorna com a mensagem "Tipo do convênio inválido", dentro do proprio projeto AcbrBoletoDemo tambem me gera a mesma resposta. RetornoRegistro.txt
  6. Caros, Ao tentar instalar o Jedi na minha maquina, estou enfrentando alguns erros. Ao rodar o install do JCL abre a tela do Prompt de Comando, com os erros em anexo: Ex: C:\Sistemas\Componentes\jcl\source\common\JclStreams.pas(2259) Warning: W1072 Implicit conversion may lose significant digits from 'signed 64-bit integer' to 'Integer' Ao abrir a janela de instalacao, nenhum componente aparece para ser selecionado. Ao clicar em instalar, ele informa que foi instalado com sucesso. Como posso resolver? Obrigado!
  7. Ao tentar gerar o Boleto em PDF, o seguinte erro é emitido. Segue abaixo em trecho da config. cobranca.ACBrBoletoFC := TACBrBoletoFCFR.Create(nil); if cobranca.ACBrBoletoFC is TACBrBoletoFCFR then TACBrBoletoFCFR(cobranca.ACBrBoletoFC).FastReportFile :=ExtractFilePath(Application.ExeName)+'Boleto.fr3'; if Assigned(cobranca.ACBrBoletoFC) then cobranca.ACBrBoletoFC.DirLogo := ExtractFilePath(Application.ExeName)+'Logos\Colorido\'; cobranca.ACBrBoletoFC.CalcularNomeArquivoPDFIndividual := False; if not DirExists(ExtractFilePath(Application.ExeName)+'Boletos\PDF') then MkDir(ExtractFilePath(Application.ExeName)+'Boletos\PDF'); cobranca.ACBrBoletoFC.NomeArquivo := ExtractFilePath(Application.ExeName)+'Boletos\PDF\Boleto_'+sNumeroBoleto; cobranca.ACBrBoletoFC.AcbrBoleto.GerarPDF; Os diretorios estão corretos, seria alguma configuração pendente? Verifiquei as configs da Demo, e está sendo informado da mesma forma Utilizo Delphi Seattle
  8. Atualmente testando com a API do Banco do Brasil, ao realizar a alteração dos dados do boleto, mais precisamente, a data de vencimento apenas, retorna o seguinte erro no txt. Codigo=404 Mensagem=NÃO ENCONTRADO. O servidor não conseguiu encontrar o recurso solicitado. Até onde visualizei a API do BB, eles possuem Endpoints de Edição/Alteração de Boletos.
  9. Boa Tarde! Estou fazendo a integração do ACBrBoleto para o banco Sicoob e estou passando por um problema, a questão é a seguinte.. Consegui fazer o ACBrBoleto Exemplo funcionar perfeitamente, porem para colocar em meu sistema eu precisava que uma parte fosse diferente, em relação a validação que o Sicoob exige, que é o certificado. No exemplo acbr é passado da seguinte forma: WebService.ArquivoCRT := 'C:\douglas\Boleto\Sicoob\SicoobCertificado.pem'; WebService.ArquivoKEY := 'C:\douglas\Boleto\Sicoob\SicoobChavePrivada.key'; Entretanto, ao invés de passar o caminho do arquivo, eu gostaria de passar o conteúdo do arquivo, pois eu tenho o conteúdo salvo em meu banco de dados, assim nao precisando do arquivo. Eu ja realizo isso pelo ACBrPix, pois la tem uma propriedade que recebe deste jeito, porem aqui no boleto nao achei esta opção de passar diretamente. Como eu queria passar: WebService.ArquivoCRT := '-----BEGIN CERTIFICATE-----' + 'MIIHPTCCBSWgAwIBAgIIMD8iBARHZXwwDQYJKoZIhvcNAQELBQAwWTELMAkGA1UE' ... + 'WHKi5RGWwQdjo9vXRTB4cTsnrbenvNrivJPAShPXQjbm' + '-----END CERTIFICATE-----'; WebService.ArquivoKEY := '-----BEGIN RSA PRIVATE KEY-----' + 'MIIEowIBAAKCAQEAgMDt48BLEuk/+gDX+PugSWMwxpK87SImir4n3a2A75FOvZkm' ... + 'sSlkF0VJ3sXN/tpQf3c3kQFvKBmlbcsMG8s58GPkpuNAzUrod2Vk' + '-----END RSA PRIVATE KEY-----'; Adentrando mais o codigo, encontrei o metodo que faz esta validação que é o define certificado: procedure TBoletoWSREST.DefinirCertificado; begin BoletoWS.ArquivoCRT := Boleto.Configuracoes.WebService.ArquivoCRT; BoletoWS.ArquivoKEY := Boleto.Configuracoes.WebService.ArquivoKEY; // Adicionando o Certificado if NaoEstaVazio(BoletoWS.ArquivoCRT) then HTTPSend.Sock.SSL.CertificateFile := BoletoWS.ArquivoCRT; if NaoEstaVazio(BoletoWS.ArquivoKEY) then HTTPSend.Sock.SSL.PrivateKeyFile := BoletoWS.ArquivoKEY; { if NaoEstaVazio(BoletoWS.ArquivoCRT) then HTTPSend.Sock.SSL.Certificate := BoletoWS.ArquivoCRT; if NaoEstaVazio(BoletoWS.ArquivoKEY) then HTTPSend.Sock.SSL.PrivateKey := BoletoWS.ArquivoKEY; Metodo que achei mas nao consegui fazer funcionar } end; Tentei utilizar trocando o CertificateFile por apenas Certificate, porem nao consegui fazer funcionar. Gostaria de saber se alguem ja passou por um problema parecido ou se tem algum outro metodo de fazer o que eu quero, que é passar estes dados por string e nao colocando o caminho do arquivo. Agradeço a ajuda.
  10. Primeiramente, espero que todos estejam bem e já agradeço a ajuda reportada! Estou criando um app simples, que terá como uma funcionalidade principal a leitura do código de barras de um produto e em sequencia, a impressão da etiqueta do mesmo. Para a impressão da etiqueta, utilizamos a impressora Zebra ZT230, que está compartilhada em rede '\\IPCOMPUTADOR\ZebraFilial'. Em testes realizados compilando direto no windows, consigo realizar o envio e impressão da etiqueta na impressora. Quando faço a compilação utilizando o android, abro o app e tendo fazer o envio para impressora, recebo o seguinte erro: 'PORTA NÃO DEFINIDA'. Pesquisando aqui no fórum, encontrei alguns tópicos com algumas dicas e tentei implementar, mas ainda assim o problema persiste. Tentativas de definição da propriedade PORTA do componente ETQ: 1ª: \\IPCOMPUTADOR\ZebraFilial -> Erro: 'PORTA NÃO DEFINIDA' 2ª: RAW:\\IPCOMPUTADOR\ZebraFilial -> Erro: 'PORTA NÃO ENCONTRADA' 3ª: RAW:ZebraFilial -> Erro: 'PORTA NÃO ENCONTRADA' 4ª: USB:Zebra, ZT230 -> Erro: 'NÃO IMPRIME A ETIQUETA' apesar de ativar a impressora, passar todos os parametros e finalizar a impressão. 5ª UBS:\\IPCOMPUTADOR\ZebraFilial -> Erro: 'NÃO IMPRIME A ETIQUETA' apesar de ativar a impressora, passar todos os parametros e finalizar a impressão. Alguém poderia me ajudar nessa questão? Desde já serei muito grato pelo ajuda e tempo solicito.
  11. Bom dia senhores, estou utilizando o Delphi 2010 com IntraWeb junto com o ACBr para emissão de boletos e notas de serviço, porém estou passando por um erro chato e intermitente ao gerar o PDF do boleto, no método TACBrBoleto.GerarPDF as vezes retorna o erro "There is no default printer currently selected". O problema é que não ocorre sempre, pelo que entendi, o ACBr não se comporta muito bem com o IntraWeb, creio que o ACBr esteja tentando acessar diretamente a impressora, porém no servidor onde está rodando a aplicação possui uma impressora PDF instalada e o fato do erro ser intermitente me deixa ainda mais confuso. Caso alguém já tenha passado por esse erro ou tenha alguma pista por favor me ajudem, estou enlouquecendo já rsrsrs. Obrigado.
  12. Bom dia, pessoal. Eu possuo uma impressora HP LaserJet M1132 MFP e estou com o seguinte problema: Ao realizar a impressão de uma listagem desenvolvida com FortesReport, a impressão não é feita na orientação correta. Ex: Se a propriedade RLReport.PageSetup.Orientation estiver marcada como poPortrait (Retrato) ou como poLandscape (Paisagem) a impressão está sendo feita sempre como retrato. Vendo isso, analisei as propriedades da impressora e percebi que o FortesReport só está respeitando o padrão de orientação definido nas Preferências de Impressão. Então, se estiver definido como paisagem, irá imprimir sempre como paisagem independente da propriedade RLReport.PageSetup.Orientation, se estiver como retrato, irá imprimir sempre retrato independente da propriedade RLReport.PageSetup.Orientation. Logo, se eu preparar um RLReport em modo paisagem e a orientação na impressora estiver como retrato, a impressão irá sair cortada. Testei com outra impressora HP e o problema também ocorreu. Só ocorre com impressoras HP. Tentei salvar a listagem em modo retrato como pdf e imprimir através do FoxitReader e funcionou imprimindo corretamente. Alguém tem noção do que pode ser isso e me dar uma ajuda? Obrigado!!
  13. Olá, estou tendo dificuldades para conseguir consumir a API do IFood, não estou conseguindo nenhum avanço, alguem conseeguem me auxiliar?
  14. Olá, a logo da DACTE e DAMDFE não esta aparecendo. Estou informando a imagem seguindo os exemplos do acbr sobre o CTe e MDFe, segue abaixo: // MDFE ACBrMDFe1.DAMDFe.Logo := sDir + logoJPG; // CTE ACBrCTe1.DACTE.Logo := sDir + logoJPG; Como tambem, tentei informar a logo pelo componente dacte, como possui um campo chamado logo, resolvi testar (apenas no caso do CTe):ACBrCTeDACTEFR.Logo := sDir + logoJPG; Para NF-e, consegui homologar as imagens JPG de 100x100 ate 600x600 seguindo esse exemplo (ACBrCTe1.DACTE.Logo := sDir + logoJPG;) Alguma informação de como proceder nesse caso? Algo esta faltando?
  15. Olá, a logo da DACTE e DAMDFE não esta aparecendo. Estou informando a imagem seguindo os exemplos do acbr sobre o CTe e MDFe, segue abaixo: // MDFE ACBrMDFe1.DAMDFe.Logo := sDir + logoJPG; // CTE ACBrCTe1.DACTE.Logo := sDir + logoJPG; Como tambem, tentei informar a logo pelo componente dacte, como possui um campo chamado logo, resolvi testar (apenas no caso do CTe):ACBrCTeDACTEFR.Logo := sDir + logoJPG; Para NF-e, consegui homologar as imagens JPG de 100x100 ate 600x600 seguindo esse exemplo (ACBrCTe1.DACTE.Logo := sDir + logoJPG;) Alguma informação de como proceder nesse caso? Algo esta faltando?
  16. Boa Tarde, gostaria de uma ajuda com um erro. Estou tentando passar os dados do projeto NFSex da ACBr, para a emissão de NFSe do meu sistema, porem estou com um erro que não consegui descobrir o que pode ser. No exemplo do ACBr eu consegui emitir normalmente, vou deixar em baixo linkado o xml de envio do Exemplo e de meu programa, e o arquivo de retorno dos dois. Para deixar mais explicito o erro, irei linkar abaixo. GerarNfseResposta xmlns="http://megasoftarrecadanet.com.br/xsd/nfse_v01.xsd"> <ListaMensagemRetorno> <MensagemRetorno> <Codigo>L000</Codigo> <Mensagem>Economico não encontrado</Mensagem> </MensagemRetorno> </ListaMensagemRetorno> </GerarNfseResposta> GerarNfseEnvio_ExemploACBr.xml GerarNfseEnvio_MeuPrograma.xml GerarNfseResposta_ExemploACBr.xml GerarNfseResposta_MeuPrograma.xml
  17. Troquei a versão do delphi rad 10.3 para o 11 Alexandria. Ao compilar o projeto que antes rodava normal, surge o erro referente a unit gziputils. Já apaguei os arquivos antigos, atualizei o svn acbr e executei o acbrinstall_trunk2 e não resolvi o problema. Fiz várias consultas aqui no acbr, mas nada resolvido. Citar
  18. Prezados, bom dia! Gostaria de saber se há no ACBr, rotinas para a geração do Arquivo Remessa e leitura do Arquivo Retorno para Débitos Automáticos, no meu caso atual, para o banco Santander. Segue manual: DEBITO-AUTOMATICO-V05-06052008.pdf Poderiam me dar um Apoio?
  19. Bom dia pessoal, estou com uma dúvida aqui no fastreport. Tenho um relatório onde tem um MasterData e um DetailData, gostaria de saber como faço para que o DetailData apareça no relatório mesmo se os valores dele for 0? Na select onde preencho o DetailData, já estou tratando para quando os valores forem null preencher com 0,00, mas mesmo assim o DetailData não aparece. Ps: Esse DetailData são as informações de tributação da nota que aparece no MasterData, quando essa nota tem o valor 0,00 e não existe tributação para ela o DetailData não aparece e gostaria que ele aparecesse com todos os valores 0,00. Obrigado pela Ajuda.
  20. Bom dia! Alguém sabe como definir um tamanho fixo de Height, para cada painel(registro) desse DBCtrlGrid, Pois estou tentando utiliza-lo, mas ele muda o Height de acordo com a quantidade de registros, Queria fazer ele trabalhar parecido com DBGrid, Inserindo os registros em tamanho fixo. Segue print, com 2 registros e com muitos registros. @Sérgio Assunção, vi um post seu parecido que vc utilizou esse componente: Sera que aconteceu esse problema com vc? Se Sim, vc conseguiu resolver?
  21. Estou com um problema na impressão do fortes, onde eu preciso imprimir um recibo no tamanho A5 (metade de uma A4), porém não estou conseguindo configurar para a impressão sair corretamente na impressora, sem o PrintDialog para o usuário. O Setup do meu TRLReport está da seguinte maneira: Tentei chamar o seguinte método para setar o tamanho/orientação do papel, mas não funciona. RLPrinter.SetPaperSize(210, 148, False, False, False); Está saindo da seguinte maneira (impressão direta, com o PrintDialog := False): enquanto deveria estar saindo da seguinte maneira (impresso configurando pelo dialog da impressora): Alguém saberia me dizer o porquê da configuração não estar funcionando? Não sei se é muito especifico, mas tentei pesquisar e não encontrei a solução em nenhum lugar.. Já tentei: inverter a largura e altura ao chamar o SetPaperSize, e também alterar o parâmetro OrientationLandscape entre True e False, mas sem êxito.. O que usei como base: https://www.devmedia.com.br/forum/definir-impressora-no-fortes-report/336699 A impressora em questão é uma Epson L3150, caso seja relevante. Se alguém souber como resolver ou pelo menos conseguir me dar um norte, eu agradeço! Obrigado desde já
  22. Boa tarde pessoal. Estou criando uma API cujo servirá de retorno ao um webhook, só que esse webhook precisa que a api seja fornecida no protocolo https com certificado SSL Sou iniciante nessa área e estou com algumas dúvidas em como posso conseguir fazer isso. Uso o Delphi 10.3 Rio e pra construção da API o Horse com DataSetSerialize. Obs: Já tenho um domínio no hostgator. Como eu registro o SSL no horse?
  23. Licença Delphi Professional Named User à venda, por R$ 10.000,00 (valor negociável). Sobre a licença: a licença Delphi Professional Named User pode ser utilizada em somente uma máquina ("node-lock") ou uma pessoa ("named user"), não podendo ser utilizada de forma simultânea por outros usuários. É registrada para um indivíduo e o usuário nomeado é a única pessoa autorizada a usar o produto. As opções de licenciamento de "Named User" funcionam melhor para usuários avançados que precisam de uma cópia do software disponível em sua estação de trabalho o tempo todo. Esta licença já é registrada na Embarcadero, e os acordos tratados para a venda dessa serão tratados juntamente com a equipe da empresa que fornece o software. Para maiores informações sobre a licença, dúvidas ou negociações, contate-nos: Via e-mail: [email protected]; [email protected] Telefone: +55 54 3015-2001 (tratar com Luis) WhatsApp: +55 54 99665-4180 A/C Maria Cichota, Farmácias Erechim
  24. Bom dia, estou com umas duvidas para gerar um livro de prestação de serviço. Tenho um livro de serviço onde me mostra os serviços prestados do cliente, nele o cliente tem a opção de anexar Resumos de ISSQN, relação de clientes e fornecedores, retenção de tributos. As informações principais e os parâmetros estão todos ok. Minha estrutura é, GroupHeader para agrupar os serviços, MasterData Para mostrar os registros, DetailData para as retenções e GroupFooter para total dos valores. No delphi, uma tabela com os serviços prestados, uma tabela para retenções, uma tabela para o resumo ISSQN e uma tabela para clientes e fornecedores. Agora começa minhas duvidas. Primeira, para eu mostrar meu resumo e meu cliente e fornecedor, criei um sub para cada item, na pagina inicial coloquei o sub do resumo dentro da banda GroupFooter bem abaixo das somas dos valores e criei um filha dessa banda para mostrar os clientes e fornecedores. Na hora da impressão quando informo para mostra os clientes e fornecedores, o fast mostra uma pagina em branco antes de mostrar os clientes e fornecedores, reparei que quando tenho mais que 15 clientes (limite de registros na tela) ele mostra a tela em branco e se marco a opção "StartNewPage" da banda filha ou do GroupHeader do subClienteFornecedor em algumas base de dados que fiz o teste ele mostra a tela em branco também. Minha segunda duvida é, abaixo do GroupHeader da pagina principal tenho memos(dentro da banda GroupHeader) para fazer o transporte de valores de uma pagina para outra, e acima da banda PageFooter também tenho memos (dentro da banda PageFooter) para realizar os transportes. Esses transportes tem algumas regras para poder aparecer ou não, quando gero o relatório limpo sem parâmetros, ele funciona perfeitamente, porem, quando informo o resumo de ISSQN e/ou a lista de clientes esses memos de transporte aparecem e não deveriam. Já coloquei condições de visble true ou false dentro dos BeforePrints das bandas para tentar resolver o problema mas não consigo. O que percebi é que como o Resumo está dentro da banda GroupFooter e a listagem de clientes está numa banda filha da GroupFooter, ambas fazem exatamente as mesmas coisas que a banda GroupFooter. Preciso de uma força nessas situações, não sei mais o que fazer. Agradeço desde já, obrigado.
  25. Olá, estou realizando a integração com a API da RvHub para Recarga de Celulares. Todas as requisições foram testadas no Insomnia e estão retornando corretamente. Porém, no Dephi Seattle, utilizo os componentes IdHTTP e os COmponentes REST para realizar as requisições, porém o retorno é o seguinte. Para o IdHTTP : 403: Forbbiden Para os REST: 405 Method Not Allowed Ocorre em todas as requisições da API, onde em algumas delas é uma requisição POST sem BODY com apenas o HEADER. Abaixo as linhas de código: Delphi Seattle API RvHub IdHttp: var idHttp : TidHttp; SSl : TIdSSLIOHandlerSocketOpenSSL; JsonStreamRetorno : TStringStream; begin JsonStreamRetorno := TStringStream.Create('', TEncoding.UTF8); idHttp := TidHttp.Create(nil); SSl := TIdSSLIOHandlerSocketOpenSSL.Create(nil); SSl.SSLOptions.Method := sslvTLSv1_2; idHttp.IOHandler := SSL; idHttp.Request.Clear; idHttp.Request.CustomHeaders.Clear; idhttp.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; WOW64; rv:42.0) Gecko/20100101 Firefox/42.0'; idHttp.Request.ContentType :='application/x-www-form-urlencoded'; idHttp.Request.Accept:='application/json'; idhttp.Request.Charset := 'UTF-8'; idhttp.HandleRedirects := True; idHttp.Request.CustomHeaders.AddValue('Content-Type','application/x-www-form-urlencoded'); idHttp.Request.CustomHeaders.AddValue('Authorization','Basic NmVrNnFobjk0dml0M2piNDI1MDdic2U0czp1bDdmMWg4MGMzMThwdTRicDRlN3NucTdtbW5kYjlwY3BjNm8zdjZzbmIyMzlzb2F1dDg='); try idHttp.Post('http://auth.sbx.rvhub.com.br/oauth2/token?grant_type=client_credentials',JsonStreamRetorno); except on E: Exception do ShowMessage('Error on request:'#13#10 + E.Message); end; end; REST: var FRestClient: TRESTClient; FRestRequest: TRESTRequest; FRestResponse: TRESTResponse; begin FRestClient := TRESTClient.Create(nil); FRestRequest := TRESTRequest.Create(nil); FRestResponse := TRESTResponse.Create(nil); FRestRequest.Client := FRestClient; FRestRequest.Response := FRestResponse; FRestClient.BaseURL := 'https://auth.sbx.rvhub.com.br/oauth2/token?grant_type=client_credentials'; FRestClient.ContentType := 'application/x-www-form-urlencoded'; FRestRequest.Accept := 'application/json'; FRestRequest.Params.AddHeader('Content-Type','application/x-www-form-urlencoded'); FRestRequest.Params.AddHeader('Authorization','Basic NmVrNnFobjk0dml0M2piNDI1MDdic2U0czp1bDdmMWg4MGMzMThwdTRicDRlN3NucTdtbW5kYjlwY3BjNm8zdjZzbmIyMzlzb2F1dDg='); FRestRequest.Body.ClearBody; FRestRequest.Method := rmPOST; FRestRequest.Execute; ShowMessage(FRestResponse.StatusCode.ToString()+#13+FRestRequest.Response.StatusText); end;
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.