Tipo de Certificado para o envio de NFSe [Resolvido]

[edilsystem]

Bom dia pessoal,

Estou desenvolvendo uma solução para envio da NFSe e estou utilizando um token do tipo A-3, gostaria de saber se o componente desenvolvido para o envio de NFSe tem destinção do tipo de token.

No momento do envio estou tendo alguns problemas.

Sem mais agradeço desde já.

Att,

[edilsystem]

Pessoal,

O erro ao qual me refiro acontece nas linhas abaixo:

 Store := CoStore.Create;

 Store.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_STORE_NAME, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);

Gerando uma exceção "Classe não registrada".

Lembrando que o certificado que estou usando é um A-3 e está devidamente instalado em minha maquina.

Alguém saberia informar o possível erro?

Att,

[Régys Silveira]

Esse erro é porque a capicom na versão que o ACBr utiliza não está instalada, vá até o diretório "\DLLs\Capicom" e copie as dlls para a pasta system e logo após registre-as no sistema operacional, ou utilize o .bat que esta na pasta para isso.

[edilsystem]

Boa tarde Regys,

Fiz o procedimento citado por você e o erro foi solucionado, porém agora está dando um novo erro que é o seguinte:

'CoInitialize não foi chamado'

Saberia me informar o que seria isso?

Obrigado...

Att,

[edilsystem]

Olá pessoal, problema foi resolvido.

O que acontece é que uso uma thread que gerencia filas de processamento FIFO, então coloquei a seguinte instrução 'CoInitialize(nil)', conforme código abaixo.

 

class function CoStore.Create: IStore3;

begin

  CoInitialize(nil);

  Result := CreateComObject(CLASS_Store) as IStore3;

end;

Mais uma vez valeu pessoal.