Re: [delphi-br] Nota Fiscal Eletrônica - NFe

Fri, 28 Nov 2008 03:04:15 -0800 

Como vc fez para assinar Ricardo? Usou algum outro componente ou outra DLL?

No site da microsoft achei um código em VB para assinar documentos e 
converti pra Delphi, mas a assinatura gerada é diferente.

http://msdn.microsoft.com/en-us/library/aa387760(VS.85).aspx

Abaixo o código convertido:

function Signfile(InputFileName: String; OutputFileName: String): Boolean  ;
var
   s : String;
   MyStore : IStore;
   Signobj : ISignedData ;
   Assinador  : ISigner ;
   SigningTime : IAttribute;
   Cert         : ICertificate2;
   Certs        : ICertificates;
   V            : OleVariant;
   i : Integer;
   Entrada, Saida : TStringList;
   Texto : WideString;
begin
  try
    MyStore := CoStore.Create;

    MyStore.Open( CAPICOM_CURRENT_USER_STORE, 'MY', 
CAPICOM_STORE_OPEN_READ_ONLY );

    V := 'd2a870a1b8ee246a7703c57cc2abf1aac51b2c56';

    Certs := MyStore.Certificates ;
    Assinador := CoSigner.Create;

    i := 0;
    while i < Certs.Count do
     begin
       Cert := IInterface( Certs.Item[ i+1 ] ) as ICertificate2;
       if UpperCase(Cert.Thumbprint) = UpperCase(V) then
        begin
          Assinador.Certificate := IInterface( Certs.Item[ i+1 ] ) as 
ICertificate;
          i := Certs.Count;
        end;
       i := i + 1;
    end;

    Entrada := TStringList.Create;
    Entrada.LoadFromFile(InputFileName);
    Texto := Entrada.Text;

    Signobj := CoSignedData.Create;
    Signobj.Content := Texto;

    SigningTime := CoAttribute.Create;
    SigningTime.Name  := CAPICOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME;
    SigningTime.Value := Now;
    Assinador.AuthenticatedAttributes.Add(SigningTime);

    s := Signobj.Sign(Assinador, True, CAPICOM_ENCODE_BASE64) ;

    Saida := TStringList.Create;
    Saida.Text := s;
    Saida.SaveToFile(OutputFileName);

    Result := True;
  except
    on E: Exception do
    begin
       Result := False;
       MessageDlg(E.Message, mtError, [mbOk], 0);
    end;
  end;
end;

André F. Moraes

----- Original Message ----- 
From: "Ricardo Kenji" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, November 28, 2008 8:13 AM
Subject: Re: [delphi-br] Nota Fiscal Eletrônica - NFe


> Para realizar a conexão segura para o webservice, apenas os componentes
> nativos do delphi já resolvem. Agora para a assinatura em si, o componente
> capicom não me resolveu o problema, pois não achei suporte para assinar o
> XML de acordo com as especificações da Secretaria....
>
> []s
> ----- Original Message ----- 
> From: André Moraes - GMail
> To: delphi-br@yahoogrupos.com.br
> Sent: Thursday, November 27, 2008 1:51 PM
> Subject: Re: [delphi-br] Nota Fiscal Eletrônica - NFe
>
>
> Não gostaria de usar outra dll além da capicom que já estou usando pra
> conexão segura, mas obrigado pela dica.
>
> ----- Original Message ----- 
> From: "Andreano Lanusse" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Thursday, November 27, 2008 2:50 PM
> Subject: RE: [delphi-br] Nota Fiscal Eletrônica - NFe
>
> Da uma olhada
>
> http://nf-eletronica.com/blog/
>
> ________________________________
> From: delphi-br@yahoogrupos.com.br [EMAIL PROTECTED] On 
> Behalf
> Of André Moraes - GMail [EMAIL PROTECTED]
> Sent: Thursday, November 27, 2008 8:45 AM
> To: delphi-br@yahoogrupos.com.br
> Subject: [delphi-br] Nota Fiscal Eletrônica - NFe
>
>
>
> ------------------------------------
>
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>

Responder a