Jump to content

Search the Community

Showing results for tags 'delphi'.



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

  • Suporte Pago - SAC
    • ACBrMonitorPLUS - SAC
    • Utilitários - SAC
    • ACBrLib - SAC
    • Dia do ACBr 1a edição
  • Free Download
    • ACBrMonitorPLUS
    • Demos / Testes / Utilitários
    • ACBrLIB
    • 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 1a Ediçao
  • Vídeos Abertos
    • Video Aulas
    • Comunicados
    • Palestras - Dia do ACBr 1a Ediçao
  • 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 226 results

  1. Boa tarde ! Estou usando a balança toledo e nos testes o edit de ultimopesolido está vindo zerado. Alguém pode me ajudar? att.
  2. Como atualizar o FortesReport para funcionar no Radstudio 10.3.1? Baixei uma versão, mas na instalação surge a mensagem: "erro ao compilar o pacote frce.dpk"
  3. Bom dia! Coloquei um TWebBrowser no meu projeto e utilizo ele para navegar ate o site de Consulta Completa NF-e, Mas estou tendo um problema quando tento baixar a NF-e com certificado, nao aparece a janela de seleção de Certificado. Alguem saberia como habilitar? pois vi num topico (https://stackoverflow.com/questions/51627352/delphi-twebbrowser-with-ssl-certificate-file?rq=1) de Delphi 7 que essa janela aparecia. Estou utilizando Delphi 10.2 Tokyo, e tambem ja modificar no regedit para o Delphi Utilizar a Versao 9, 10 ou 11. Mas mesmo assim a janela nao aparece. Segue imagens:
  4. Boa tarde, Ofereço-me para desenvolvimento de aplicativos moveis em Delphi (firemonkey) . Integrações de aplicativos ao seu ERP. Apps como Força de Vendas, Comanda Eletrônica , Representantes Comerciais , App Gerencial , Prospecção de Clientes e muitos outros. Comunicação via servidor Datasnap ou HttpServer (Json/Rest). Contato : [email protected]
  5. Este erro ocorre no sistema Windel, programado em Delphi 10 e utiliza banco de dados Firebird, alguém sabe corrigir?
  6. Gostaria de saber se existe alguma maneira de copiar uma tabela inteira no sql firebird. Neste caso, tenho duas empresas cadastradas no mesmo firebird, ou seja, IDEMPRESA='1' e IDEMPRESA='2', preciso copiar a tabela PRODUTOS da empresa 1 para a empresa 2.
  7. Bom dia! Alguem sabe como faz para mostrar um Indicador de ordenacao no DbGrid do Delphi, Ao no OnTitleClick, eu ja inverto a ordenacao, Porem gostaria de colocar uma seta indicando se é crescente, ou decrescente. Segue Imagem exemplo. Tentei fazer de uma forma que desenha a Imagem de um Imagelist, mas ao passar o mouse em cima, a imagem some.
  8. 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?
  9. Projeto ACBr também é agente de vendas Embarcadero O Projeto ACBr é agente de vendas oficial da Embarcadero no Brasil, com consultores treinados para lhe oferecer a solução ideal as suas necessidades. Para receber um orçamento, entre em contato com nossos consultores pelo email: [email protected] ou ainda pelo fone (15) 2105-0750 ou pelo WhatsApp (15) 99790-2976. Compre sua licença com o Projeto ACBr e obtenha vantagens exclusivas. Ganhe Brindes Exclusivos ACBr Acesso ao SAC ACBr (veja tópico abaixo) Não tem certeza sobre qual versão escolher? Veja mais uma vantagem de comprar com o ACBr. Nós podemos lhe auxiliar nisso, no fórum temos um tópico dedicado a explicar as diferenças entre as versões, clique aqui e saiba mais... Se mesmo após ler o tópico ainda tem dúvidas, entre em contato com nossos consultores e agende uma conferência, com um de nossos desenvolvedores para lhe auxiliar na decisão. Já tem uma licença Delphi? Que tal Renovar sua Subscrição conosco? Se você deseja renovar sua subscrição, nós também podemos lhe auxiliar, e antecipando a renovação de sua subscrição você pode obter até 30% de desconto. Não perca tempo, fale já com nossos consultores. Renovando sua subscrição conosco você também tem direito as vantagens exclusivas citadas acima. Além de todas as vantagens acima, comprando sua licença com o Projeto ACBr você também contribui para que o projeto continue crescendo. Confira as vantagens exclusivas, nesse tópico:
  10. Pessoal boa tarde, alguem tem as dll compiladas para conexão com o banco de dados nosql MongoDB ? as que vem com o Delphi estão com a conexão ssl desativada: libbson-1.0.dll libmongoc-1.0.dll e não estou conseguindo compilar uma nova com a opção ssl ativada por acaso alguém que use tem elas ai já? Obrigado.
  11. Compre o Delphi e Ganhe Brindes do ACBr Com o Projeto ACBr, você tem vantagens exclusivas. Além de ajudar o Projeto a crescer, na compra de uma licença Delphi você Ganha produtos ACBr, com frete incluso, e com direito de até 5 meses de acesso ao SAC. Professional Desconto de 20% (Brinde: 2 meses de SAC + Kit Escritório) Enterprise Desconto de 25% (Brinde: 4 meses de SAC + Kit Escritório + Kit Wear) Architect Desconto de 25% (Brinde: 5 meses de SAC + 2 Kits escritório + 2 Kits Wear) Obs: Promoção só é valida para os usuários que comprarem com o ACBr. Solicite um orçamento agora! WhatsApp: (15) 99790-2976 Fone: (15) 2105-0750 E-mail: [email protected] Somos agente de vendas Oficiais da Embarcadero Brasil. (clique aqui e saiba mais) Deseja Renovar sua licença? Você também terá direito a Brindes! Podemos antecipar sua renovação de subscrição, assim você recebe até 30% de desconto, e também ganha de brinde Produtos ACBr com frete grátis + 1 mês de acesso ao SAC! Solicite um orçamento! Renovação de Subscrição Ganhe 1 mês de SAC + Kit Escritório Não sabe qual plano escolher? Clique aqui. e conheça um pouco mais sobre as diferentes versões Se ainda assim estiver em dúvida, você pode entrar em contato com nossos consultores e agendar uma videoconferência no e-mail [email protected]
  12. Bom dia pessoal, O Projeto ACBr também é Agente de Vendas Embarcadero. Para receber um orçamento, entre em contato com nossos consultores pelo email: [email protected] ou ainda fone (15) 2105-0750 ou pelo WhatsApp (15) 99790-2976. Atualmente o Delphi se divide 3 edições pagas, sendo elas Professional, Entrerprise e Architect além da edição Commmunity que é gratuita*. E agora qual edição devo escolher? Veja nossas dicas a seguir: Professional O Delphi® Professional é a maneira mais rápida para desenvolver e atualizar aplicativos hiperconectados, com muitos dados e visualmente interessantes para Windows, Mac, aparelhos móveis, IoT e muito mais usando Object Pascal. Restrições Suporta somente conexão local e somente para MySQL, Interbase e SQLite. Não permite desenvolver aplicações Linux Não faz modelagem UML Não faz aplicações multicamadas usando DataSnap O ponto forte do Delphi Professional, é o seu preço. Custando quase um terço do Delphi Enterprise, ele cabe no bolso de qualquer Desenvolvedor Micro Empreendedor. O Delphi Professional ainda pode ser pra você... Se seu único Empecilho é conexão com o banco de dados, esta questão pode ser contornada adotando-se componentes de terceiros, como por exemplo a Zeos Lib, que é Open Source, ou ainda comprar um componente como o DAC, da DevArt Enterprise A edição Enterprise inclui todos os recursos da edição Professional, além de uma licença de implantação do RAD Server para um único local (que vale US$ 5.000), bibliotecas de acesso de dados FireDAC, uma licença do InterBase ToGo e suporte para criação de aplicativos Linux no Delphi. Escolha a edição Enterprise se... Precisa utilizar os componentes de conexão com banco de dados local e remota nativos do Delphi, como o FireDAC, se seus sistemas também são criados para linux ou ainda se deseja obter os recursos adicionais desta edição. Architect O Delphi edição Architect inclui todos os recursos das edições Enterprise e Professional, além de uma licença de implantação em múltiplos locais do RAD Server, uma licença Sencha ExtJS Professional, licença do InterBase ToGo e design e modelagem de dados avançados. Receba ainda uma licença de Rad Server Multi Site (criação de serviços web. É usado para publicar suas próprias APIs/REST, como expor dados do banco de dados) + Aqua Data Studio (ferramenta para modelagem e arquitetura de banco de dados) + Sencha ExtJs Pro (framework para desenvolvimento JavaScript front-and) + Ranorex – 6 meses de trial (ferramenta para automação de testes funcionais em aplicações multiplataformas, como: mobile, desktop e web). Escolha a edição Acrchitect se... Se seu desenvolvimento requer uma das ferramentas exclusivas desta edição, o Delphi Architect deve ser sua escolha Quer saber mais detalhes sobre as diferentes edições, veja a a tabela a seguir...
  13. Bom dia!!! Alguem saberia como colocar um DBGrid MultiDetalhes no delphi? que pode colocar varias informacoes uma em baixo da outra na mesma coluna.. Imagem exemplo em anexo. Desde ja agradeço.
  14. Descrição ERP SENIOR 5.1 Primeiro e único sistema no Brasil com seus códigos fontes no Delphi Tokyo. OBS: Caso tenha interesse Solicite "DEMONSTRAÇÃO REMOTA". Whatsapp: (19) 99923-7944 * Novidades da versão * - Ativação Online - PDV 3x1 (NFCe / SAT / Não Fiscal) - PDV com tela Touch ou Convencional - NFCe 4.0 - NFe 4.0 - SAT 0.07 / 0.08 - Suporte a todos os modelos de Balanças do Mercado - e muito mais... *Algumas novidades* - SAT 0.07 / 0.08 - NFe 4.0 - NFCe 4.0 (com CONTIGÊNCIA) - CCe - SINTEGRA - SPED - Gerador de Relatórios - Gera Boletos para todos os Bancos - e muito mas... *Informações do sistema* - Clientes - Fornecedores - Transportadora - Funcionários - Financeiras - Plano de Contas - Convênios - Serviços - Caixa - Setor - Veículos - Pagamentos - Cores - Tamanho - Produtos - Grupos e Subgrupos - Nota Fiscal de Entrada - Consulta de Preços - Balanças (Toledo, Urano, Filizola) - Controle de Vendas e Faltas - Baixa de Estoque - Pedidos de Compra com controle de envio por E-mail - Controle de Entrega - Notas de Vendas - NFe 4.0 - CCe - Vendas pelo Retaguarda - Controle de devolução - Atendimento Pré Venda - Orçamento com controle de envio por E-mail - Ordem de Serviço - Caixa - Contas a Receber - Contas a Pagar - Financeiro - Controle de Cheques - Controle de contas correntes - Financeiro por cliente - Controle de cartão de crédito - Controle de convênios - Geração de Etiquetes de Produtos (Argox ou Zebra) - Relatórios de clientes - Relatórios de Fornecedor - Relatórios de Produtos - Relatórios de Vendas - Relatórios de Percentual - Relatórios de Vendas - Relatórios de Contas a Pagar - Relatórios de Contas a Receber - Relatórios de Caixa - Relatórios de Fluxo de Caixa - Relatórios de Ordem de Serviços - Relatórios de Serviços Periódicos - Relatórios de DRE - Cadastro de Seções - Cadastro de Unidades de medida - Cadastro de Marcas - Controle de estoque com GRADES e com códigos de barras - Múltiplos preços (Tabelas diferentes) - Controle de Contas a Pagar - Controle de Contas a Receber (laser, duplicatas, promissórias, crediário próprio) - Entradas e Saídas - Controle Bancário - Plano de contas/Centro de custos - Comissões de Vendedores (Diversos tipos) - Controle de estoque mínimo e máximo - Pedido de compras - Cotação para compras - Cadastro de Clientes (Completo) - Cadastro de Fornecedores - Etiquetas (Produtos/ clientes, etc) - Construtor de etiquetas zebra/argox - Configuração de nível de senhas - Mais de 150 relatórios - Impressão de Recibos - Backup inteligente - Fácil de instalar e usar - Multiusuário - Acesso por senha - Auditoria - Leitor de código de barras - Grade por cor e tamanho - Consulta de preços na venda - Limite de crédito - Identificação do consumidor no cupom - Acréscimo e desconto - Formas de pagamento configuráveis - Sangria e suprimento - Permite vender a prazo - Cancelamento por item ou de cupom - Integrado ao sistema de retaguarda - Orçamento (DAV) - E-mail para clientes e fornecedores - Histórico de clientes e fornecedores - Relatório de clientes e fornecedores - Município e UF conforme tabela do IBGE - Campos identificadores configuráveis - Curva ABC - Ranking de clientes - Carnês e duplicatas - Relatório de inadimplência - Limite de crédito - Acerto de contas - Cálculo de juros - Reajuste de preços inteligente - Histórico das vendas - Etiquetas configuráveis - Integração com balança - Foto do produto - Etiquetas - Relatório de vendas - Relatório de compras - Relatório de vendas no ECF - Relatório movimentação do item - DANFE por e-mail para o destinatário - XML autorizados para contabilidade - XML por e-mail para o destinatário - Cancelamento e Inutilização de NF-e - Logotipo no DANFE - NF-e de saída e de entrada - NF-e exportação e importação - Importação do XML da NF-e de entrada - Margem de Lucro na importação por XML / Chave - Relatório de compras - Relatório de vendas - Relatório de correlação - Resumo das vendas - Vendas por vendedor *Sistema disponibilizado de duas formas.* 1 - Em máquina virtual (vmware) com Windows 10 + Delphi Tokyo + Componentes + Fontes + Estrutura, tudo instalado e compilando 2 - Fontes e componentes caso deseje usar fora da maquina virtual. **Módulos do Sistema** - Retaguarda - PDV 3 x 1 (NFCe / SAT / Não Fiscal) - Atendimento - SPED - Boletos - Comanda Desktop *Suporte* * 30 dias direto comigo desenvolvedor **Forma de envio** * Downloads * Correios *Ramos atendidos pelo meu sistema* Supermercados Mercados Restaurantes Bares Lanchonetes Pizzarias Fast Food Comércio em geral Adegas Atacados Auto-elétricas Comércio de pneus Comércio de tintas Confecções Cosméticos e perfumarias Distribuidoras Ferragens Livrarias e papelarias Lojas de bijuterias Lojas de brinquedos Lojas de calçados Lojas de conveniências Lojas de discos Lojas de eletrodomésticos Lojas de esportes Lojas de informática Lojas de presentes Lojas de telefonia e celular Lojas de software Lojas de móveis Lojas de alimentos Lojas de lubrificantes Lojas de laticínios Materiais de construção Joalherias Bicicletarias Oficinas Funilaria https://produto.mercadolivre.com.br/MLB-1182630975-erp-senior-fontes-delphi-tokyo-_JM?quantity=1
  15. Bom dia pessoal, No dia de ontem, o Delphi completou 24 anos desde o lançamento da versão 1.0, e a Embarcadero aproveitou esta data para lançar o primeiro update do Delphi Rio. Saiba mais em https://community.idera.com/developer-tools/b/blog/posts/rad-studio-10-3-1-is-here-happy-birthday-delphi Att.
  16. celso.acropole@gmail.com

    Celso

    Delphi and Firbird programming. Programação em Delphi com Banco de Dados FireBird.
  17. Boa tarde a todos! Nosso software em Delphi, efetua a impressão de um recibo através do Fast Report em impressoras térmicas (Epson T20, Bematech MP 4200, CIS, etc...). Porém está ocorrendo alguns casos, onde o documento fica preso no Spool dessas impressoras e consequentemente não é impresso mais os recibos. Ao desligar e ligar a impressora geralmente ela volta a imprimir, ou as vezes, temos que remover o cabo USB e conectar novamente, ou reiniciar o micro. Porém isso ocorre somente quando o sistema faz essa impressão em Fast Report. Alguém já passou por isso? Tem alguma alguma dica? Obrigado.
  18. until
    Indústria 4.0, desenvolvimento web, automação de testes, inteligência artificial. Veja esses e outros temas na maior conferência online de desenvolvedores! Prepare-se para três dias de verdadeira imersão em desenvolvimento. Do básico ao avançado, o CodeRage Brasil traz em sua agenda o melhor e mais atual conteúdo técnico de todos os tempos, para você assistir ao vivo de onde estiver e ir muito além com o seu desenvolvimento. Confira a grade e inscreva-se gratuitamente 09:00 - EC2018: Construindo Interfaces Matadoras (Thulio Bittencourt) 09:50 - EC2018: Delphi Web com Intraweb e Bootstrap (Marcelo Giratto) 10:40 - EC2018: ModBus com Delphi na Indústria 4.0 (Victory Fernandes) 11:30 - EC2018: Saiba do que o ORMBr é capaz por quem o criou (Isaque Pinheiro) 12:20 - Todos os Recursos do 10.3 Architect Edition (Fernando Rizzato) 13:10 - Novidades Delphi Rio 10.3 - Variáveis InLine e Type Inference (Guinther Pauli) 14:00 - Object Calisthenics - Exercícios para aprimorar o seu código (André Luis Celestino) 14:50 - Testes Unitários com Delphi para Automação Comercial (Juliomar Marchetti) 09:00 - Construindo um CRUD com DataSnap RESTFul (Adriano Santos) 09:50 - Datasnap na AWS (José Araújo) 10:40 - Horse: A revolução no REST (Matheus Hunsche) 11:30 - Push Notifications com RadServer (Ivan Luciano de Souza) 12:20 - Arquitetura MVC para construir sua API RESTful (Rafael Araujo) 13:10 - Escalabilidade com REDIS (José Mario Silva Guedes) 14:00 - Documente sua API REST em Delphi com Swagger utilizando SwagDoc na prática (Marcelo Jaloto) 14:50 - Recursos Avançados com Livebindings (Isaac Cavalcanti) 09:00 - DROP ORM Framework Core - Exemplos Práticos (Carlos Henrique Agnes) 09:50 - Manipulando JSON com Delphi Rio 10.3 (Marcelo Varela) 10:40 - Executando instruções SQL em memória com FireDAC (Ricardo Martins) 11:30 - Listando Dados no Firemonkey (Landerson Gomes) 12:20 - Faça como os grandes fazem: Interfaces sedutoras com Firemonkey (Rodrigo Bernardi) 13:10 - Integrando sua aplicação Delphi/C++ com API do iFood (Kleberson Toro) 14:00 - Deploy de uma aplicação VCL ou FMX para Windows Store (Marcos Moreira) 14:50 - Delphi & Inteligência Artificial (Manoel Edésio) Inscreva-se
  19. Marcelo Bernardi

    Marcelo

    Programador Delphi desktop e Mobile. Sql Server, Mysql e Firibird.
  20. Função para selecionar o certificado digital function SelCert: string; var Store: IStore3; CertsLista, CertsSelecionado: ICertificates2; CertDados: ICertificate; lSigner: TSigner; lSignedData: TSignedData; Cert: TCertificate; Ov: OleVariant; begin Result := ''; Store := CoStore.Create; try Store.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); except On E: Exception do begin MsgErro(E.Message); Exit; end; end; try CertsLista := Store.Certificates as ICertificates2; CertsSelecionado := CertsLista.Select ('Certificado(s) Digital(is) disponível(is)', 'Selecione o Certificado Digital para uso no aplicativo', False); except On E: Exception do begin MsgErro('Operação cancelada pelo usuário!'); Exit; end; end; if not(CertsSelecionado.Count = 0) then begin CertDados := IInterface(CertsSelecionado.Item[1]) as ICertificate2; lSigner := TSigner.Create(nil); lSigner.Certificate := CertDados; lSignedData := TSignedData.Create(nil); lSignedData.Content := ' '; try lSignedData.Sign(lSigner.DefaultInterface, false, CAPICOM_ENCODE_BINARY); except On E : Exception do begin MsgErro('Erro na autenticação do Certificado Digital!'); Exit; end; end; Cert := TCertificate.Create(nil); Ov := IInterface(CertsSelecionado.Item[1]) as ICertificate2; Cert.ConnectTo(IDispatch(Ov) as ICertificate2); Result := Cert.Export(CAPICOM_ENCODE_BASE64); lSignedData.Free; lSigner.Free; end; Store.Close; end; function MontaFileAssinatura(const URI: String): String; var ArquivoXml: string; begin ArquivoXml := '<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">' + '<SignedInfo>' + '<CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>' + '<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>' + '<Reference URI="#' + URI + '">'+ '<Transforms>' + '<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>' + '<Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>' + '</Transforms>' + '<DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/>' + '<DigestValue></DigestValue>' + '</Reference>' + '</SignedInfo>' + '<SignatureValue></SignatureValue>' + '<KeyInfo>' + '<X509Data>' + '<X509Certificate></X509Certificate>'+ '</X509Data>' + '</KeyInfo>' + '</Signature>'; Result := ArquivoXml; end; Com ou sem no da assinatura não esta funcionando function MontaFileXml(const FileXml, Id: string): string; begin Result := FileXml; // Result := StringReplace(FileXml, ':CERTIFICADO', MontaFileAssinatura(Id), [rfReplaceAll]); end; Função que deveria assinar o documento xml passado como parametro function Assinar(const FileXml, Id: string; var FileOut: string): Boolean; var A: TDFeSSL; B: TDFeSSLXmlSignXmlSec; C: TDFeWinCrypt; I: Integer; fileXmlNew, s : string; F : TStringList; begin fileXmlNew := MontaFileXml(FileXml, Id); Result := False; try try A := TDFeSSL.Create; A.SSLCryptLib := cryOpenSSL; A.SSLXmlSignLib := xsXmlSec; try C:= TDFeWinCrypt.Create(A); s := SelCert; if not Empty(s) then begin try if C.CarregarCertificadoPublico(AnsiString(s))then begin B:= TDFeSSLXmlSignXmlSec.Create(A); F := TStringList.Create; with F do begin Add(fileXmlNew); s := ''; for I := 0 to Count - 1 do S := S + Trim(StringReplace(StringReplace(Pchar(Strings[I]), #13, '', [rfReplaceAll]),#10,'',[rfReplaceAll])); Text := '<?xml version="1.0" encoding="iso-8859-1"?>' + B.Assinar(S,'Signature',''); FileOut := Text; end; end else begin MsgAdverte('Certificado digital selecionado inválido'); Exit; end; except On E1 : Exception do begin MsgErro('Erro durante a seleção do certificado ->' + sLineBreak + E1.Message); Exit; end; end; end else Exit; except On E2 : Exception do begin MsgErro('Erro ao carregar biblioteca do certificado digital ->' + sLineBreak + E2.Message); Exit; end; end; except On E3 : Exception do begin MsgErro('Erro ao carregar biblioteca dinâmica wincrypt do certificado digital ->' + sLineBreak + E3.Message); Exit; end; end; finally FreeAndNil(B); FreeAndNil(C); FreeAndNil(A); end; Result := True; end; Procedimento que passa o arquivo já formatado para realização da assinatura procedure TFormImportaXMLNFe.AdvGlowButton1Click(Sender: TObject); const xml: string = '<?xml version="1.0" encoding="UTF-8"?>'+ '<enviNFe versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe">' + '<idLote>71</idLote>' + '<NFe>' + '<infNFe id="NFe31120723401920000117550020000295121002311579" versao="2.00">' + '<cUF>35</cUF>' + '<cNF>518005127</cNF>' + '<natOp>Venda a vista</natOp>' + '<mod>55</mod>' + '<serie>1</serie>' + '<dEmi>2012-05-06</dEmi>' + '<tpAmb>2</tpAmb>' + '</infNFe>' + '</NFe>' + '</enviNFe>'; xml: string = '<?xml version="1.0" encoding="UTF-8"?>'+ '<enviNFe versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe">' + '<idLote>71</idLote>' + '<NFe>' + '<infNFe id="NFe31120723401920000117550020000295121002311579" versao="2.00">' + '<cUF>35</cUF>' + '<cNF>518005127</cNF>' + '<natOp>Venda a vista</natOp>' + '<mod>55</mod>' + '<serie>1</serie>' + '<dEmi>2012-05-06</dEmi>' + '<tpAmb>2</tpAmb>' + '</infNFe>' + ':CERTIFICADO' + '</NFe>' + '</enviNFe>'; var xmlAssi : string; begin inherited; if Assinar(xml,'NFe31120723401920000117550020000295121002311579', xmlAssi) then begin MsgAvisa('xml assinado: ' + sLineBreak + xmlAssi); end; end; Não completa o processo e sempre gera exceção, será que os desenvolvedores do componente não poderia criar um exemplo somente de uso dos componentes em questão já com o arquivo da nfe, cte, bpe para ser assinado.
  21. 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?
  22. boa tarde amigos, meu problema e o seguinte, , estou configurando meu sistema para acessar a catraca controlID usando rest/json, eu consigo pegar as informações da catraca e liberar o acesso dela sem problema quando envio as requisiçoes pelo meu sistema, meu problema e que eu não estou conseguindo pegar as informaçoes que vem da catraca sem q eu tenha feito uma requisição, ex , a pessoa coloca a digital na catraca (nesse caso a catraca e quem envia a requisição para o servidor, envia para um IP:porta expecifica), gostaria de uma orientação sobre como fazer, pelo que entendi eu teria que criar um servidor para receber essas informações e retornar o resultado, o componente acbrtcpserver seria o ideal para isso ?. desde ja agradeço a quem puder me ajudar
  23. until
    Edição Porto Alegre 5 a 8 de Dezembro de 2018 http://www.thedevelopersconference.com.br/tdc/2018/inscricoes http://www.thedevelopersconference.com.br/tdc/2018/portoalegre/trilha-delphi
  24. Boa tarde, Fiz a atualização do ACBr em minha maquina e está dando um erro de algumas declarações não estão sendo localizados. Dai fiz a opção de apagar o ACBr e reinstalar porem a instalação não compila, da um erro que está em anexo o arquivo. O que pode ser ? log_Delphi_2007.txt
  25. Caros Amigos. Estou usando o modelo de DistribuicaoDfe que vem no demo do ACBR, consigo baixar as notas emitidas para minha empresa. Mais só consigo jogar no Grid notas de 30 dias pra traz, por ex notas do mês corrente não aparece na pesquisa. Desde já agradeço a ajuda
×
×
  • Create New...