Ir para conteúdo
  • Cadastre-se

Daniel Simoes

Fundadores
  • Total de ítens

    27.072
  • Registro em

  • Última visita

  • Days Won

    759

Tudo que Daniel Simoes postou

  1. Seria um início de um movimento OpenSource para o Delphi ? Na minha opinião...só isso salvaria a linguagem de cair no esquecimento... Hoje em dia..ninguém da nova geração usa Pascal... afinal porque pagar (caro) para aprender programação
  2. O trunk2 estava quebrado... causando erros de compilação... mas acho que já foi corrigido
  3. O que você chama de "conexão remota" ?
  4. O ZebeDee tb pode ser usado nesse cenário... ele é ótimo para compactar e criptografar toda a comunicação... para "subir" o ZebeDee, veja um exemplo: "d:\Arquivos de programas\Zebedee\zebedee" -z 9 3051:IP_DO_SERVIDOR:3050 O FireBird estaria instalado na porta 3051 Os Clients procuram o Servidor na porta 3050... o ZebeDee faz o transporte de forma criptografada e usando compactação...
  5. Parece que ele cria um "tunnel" para o Banco... O aplicativo ZeBeDee, poderia ser utilizado para essa funcionalidade... http://www.winton.org.uk/zebedee/
  6. Creio que não... Não sei o que o "SocketServer" da Borland faz... mas provavelmente ele implementa um Servidor com algum protocolo específico... O ACBrTCPServer é um Servidor de Socket genérico, sem a implementação de um protocolo específico... você pode ver exemplos de funcionamento, na pasta Exemplos\ACBrTCP Outro exemplo, é o ACBrMonitorPLUS, nele usamos o ACBrTCP, para receber dados, que são tratados usando o protocolo do ACBrMonitor...
  7. Vc está usando Impressão por Spool do Windows... Por isso, você precisa configurar, nas propriedades da Impressora, uma folha de papel com dimensões maiores...
  8. Ainda não consegui passar pela assinatura... a chave continua chegando com Null... Poderia por favor testar com os fontes que estou trabalhando ? Fontes.zip
  9. Obrigado pela correção... enviei para o SVN...
  10. Veja esse artigo: http://ericksasse.com.br/como-assinar-digitalmente-seus-aplicativos/
  11. Em: TDFeOpenSSL.LerPFXInfo, você tem um exemplo de como ler a informação do Certificado da Tag <X509Certificate>, da NFe assinada, e transformar o mesmo no formato "DER" (subprocedure "CertToDER") Nesse mesmo método, ele também tem uma subprocedure, que le a informação CNPJ de um Certificado (cert: pX509)... Isso porém, só funcionará em OpenSSL...
  12. Experimente reportar o problema na página deles, no GitHub https://github.com/fortesinformatica/fortesreport-ce/issues
  13. O ACBrETQ não faz nenhuma programação do tamanho da Etiqueta... Isso é controlado pelo próprio equipamento, através do "gap" na etiqueta... Verifique se a Etiqueta está carregada do lado correto, e se esse modelo possui o "gap"
  14. Já experimentou assinar o .EXE comum certificado digital ?
  15. Obrigado pelos fontes... notei pequenas diferenças com o meu, e já sincronizei... mas mesmo assim... não consegui executar a assinatura...a chave privada carregada em " dsigCtx^.signKey ", pelo método "CreateCtx", continua chegando NULL
  16. Experimente com a Unit em anexo... ACBrUtil.pas
  17. Parece fazer sentido, essa modificação... tentei aplicar a mesma, mas continuo sem conseguir a execução na assinatura... Poderia por favor anexar um Zip com as suas Units da ACBrDFeOpenSSL ?
  18. Você poderia complementar a tabela do CNIEE, informando um tipo com o "protocolo" do ECF... poderia ainda, fazer uma definição hierárquica, definido primeiro o protocolo por Fabricante, Modelo, Versão
  19. Para ver as mensagens de erro da libxmlsec, rode o programa diretamente pela linha de comando... Baixei os fontes da XMLSEC e fiz algumas modificações, para debugar melhor o problema... Notei que a Chave está chegando "nula", para a LibXMLSec.. (dsigCtx^.signKey = NULL)... porém nos fontes do ACBrDFeOpenSSL ela está corretamente atribuída... Deve ser alguma diferença de "tipos", entre 32 e 64 bits, que faz com que a chave fique Nula, quando é informada para a chamada do método da DLL
  20. Waldir, Muito obrigado pela analise, correção e adição dos Testes Unitários... parabéns... Enviei para o SVN, com pequenas modificações...
  21. Parece ser um problema do Fortes Report... Se não me engano, li algo a respeito, de que a configuração do Tamanho da Fonte do Windows pode influenciar a geração do PDF no Fortes... (tente deixar o tamanho padrão) Outra opção é usar o DANFE em Fast Report (Delphi)
  22. As modificações de TLibHandle realmente são necessárias... pois em Linux elas apontam para outra Unit. TLibHandle = PtrInt; Mesmo assim ele falha ao executar a assinatura, vazando o seguinte erro : SignResult := xmlSecDSigCtxSign(FdsigCtx, SignNode); func=xmlSecDSigCtxProcessKeyInfoNode:file=xmldsig.c:line=871:obj=unknown:subj=unknown:error=45:key is not found: func=xmlSecDSigCtxProcessSignatureNode:file=xmldsig.c:line=565:obj=unknown:subj=xmlSecDSigCtxProcessKeyInfoNode:error=1:xmlsec library function failed: func=xmlSecDSigCtxSign:file=xmldsig.c:line=303:obj=unknown:subj=xmlSecDSigCtxSignatureProcessNode:error=1:xmlsec library function failed: TApplication.HandleException Erro -1: Falha ao assinar o Documento Lendo os fontes do xmlsec, notei que o único ponto onde o erro 45 ( XMLSEC_ERRORS_R_KEY_NOT_FOUND ) poderia ocorrer é em: https://github.com/lsh123/xmlsec/blob/master/src/xmldsig.c#L947 Mas a chave foi carregada com sucesso em FdsigCtx^.signKey,.. e se chamarmos manualmente o método "xmlSecKeyMatch", ele retorna 1 (sucesso) Ret := xmlSecKeyMatch(FdsigCtx^.signKey, nil, @FdsigCtx^.keyInfoReadCtx.keyReq); Não sei qual pode ser o problema...
  23. Verifique se o comando do VB, que você está usando para enviar... não está adicionando um "LineBreak"
  24. consegui reproduzir o problema, em um OpenSuse64... estou analisando o caso...
  25. Não creio que a modificação seja necessária... dynlibs.inc TLibHandle = System.THandle; sysutilh.inc THandle = System.THandle;
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...